建站
咨詢
售后
建站咨詢
新聞中心
這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
迅速讀懂VB.NET Integer
VB.NET有很多值得學(xué)習(xí)的地方，這里我們主要介紹VB.NET Integer，包括介紹VB.NET的文本框等方面。VB.NET的文本框沒有直接提供取當(dāng)前行號的功能，但我們可以有如下幾種方法實現(xiàn)：
成都創(chuàng)新互聯(lián)堅持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：做網(wǎng)站、網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時代的梁平網(wǎng)站設(shè)計、移動媒體設(shè)計的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！
一．用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
- '計算文本框的當(dāng)前行號
- Friend Function LineNo(ByVal txthwnd As Integer) As Integer
- '計算文本框的當(dāng)前行號////////////////////////////徐應(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ù)，來確定當(dāng)前行數(shù)。
- '不使用API函數(shù)
- Friend Function LineNo(ByVal sender As Object) As Integer
- '計算文本框的當(dāng)前行號////////////////////////////徐應(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
【編輯推薦】
- 深入探討VB.NET重載方法
- 簡單討論VB.NET使用缺省屬性
- VB.NET Sub創(chuàng)建方法簡介
- 輕松實現(xiàn)Flash控制VB.NET程序
- 講解VB.NET開發(fā)語言和C#簡單結(jié)合
新聞名稱：迅速讀懂VB.NET Integer
文章網(wǎng)址：http://www.5511xx.com/article/ccchhdp.html
