VB.NET有很多值得學習的地方，這里我們主要介紹VB.NET Integer，包括介紹VB.NET的文本框等方面。VB.NET的文本框沒有直接提供取當前行號的功能，但我們可以有如下幾種方法實現(xiàn)：

一．用windows API函數(shù)，這也是VB的方法

先聲明如下API函數(shù)，注意參數(shù)類型是用VB.NET Integer，因為VB.NET Integer是32位的：

Private Declare Function SendMessageinteger Lib "user32" Alias "SendMessageA" 
(ByVal hwnd As Integer, ByVal wMsg As Integer, 
ByVal wParam As Integer, ByVal lParam As Integer) As Integer  
Const EM_LINEFROMCHAR = &HC9  
'計算文本框的當前行號  
Friend Function LineNo(ByVal txthwnd As Integer) As Integer  
'計算文本框的當前行號////////////////////////////徐應(yīng)成  
'參數(shù)txthwnd是文本框的句柄(handle)  
Try  
Return Format$( SendMessageinteger(txthwnd, EM_LINEFROMCHAR, -1&, 0&) + 1, "##,###")  
Catch ex As Exception  
End Try  
End Function 

二．累加計算

通過計算累加每行字符總數(shù)是否大于插入點前總字符數(shù)，來確定當前行數(shù)。

'不使用API函數(shù)  
Friend Function LineNo(ByVal sender As Object) As Integer  
'計算文本框的當前行號////////////////////////////徐應(yīng)成  
Try  
Dim txtbox As TextBox  
Dim charCount As Integer  
Dim i As Integer  
txtbox = CType(sender, TextBox)  
For i = 0 To txtbox.Lines.GetUpperBound(0) '計算行數(shù)  
charCount += txtbox.Lines(i).Length + 2 '一個回車符長度2  
If txtbox.SelectionStart < charCount Then  
Return i + 1  
End If  
Next  
Catch ex As Exception  
End Try  
End Function 

【編輯推薦】

1. 深入探討VB.NET重載方法
2. 簡單討論VB.NET使用缺省屬性
3. VB.NET Sub創(chuàng)建方法簡介
4. 輕松實現(xiàn)Flash控制VB.NET程序
5. 講解VB.NET開發(fā)語言和C#簡單結(jié)合