建站
咨詢(xún)
售后
建站咨詢(xún)
新聞中心
這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷(xiāo)解決方案
迅速讀懂VB.NET Integer
VB.NET有很多值得學(xué)習(xí)的地方，這里我們主要介紹VB.NET Integer，包括介紹VB.NET的文本框等方面。VB.NET的文本框沒(méi)有直接提供取當(dāng)前行號(hào)的功能，但我們可以有如下幾種方法實(shí)現(xiàn)：
成都創(chuàng)新互聯(lián)堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：做網(wǎng)站、網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時(shí)代的梁平網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！
一．用windows API函數(shù)，這也是VB的方法
先聲明如下API函數(shù)，注意參數(shù)類(lèi)型是用VB.NET Integer，因?yàn)閂B.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
- '計(jì)算文本框的當(dāng)前行號(hào)
- Friend Function LineNo(ByVal txthwnd As Integer) As Integer
- '計(jì)算文本框的當(dāng)前行號(hào)////////////////////////////徐應(yīng)成
- '參數(shù)txthwnd是文本框的句柄(handle)
- Try
- Return Format$( SendMessageinteger(txthwnd, EM_LINEFROMCHAR, -1&, 0&) + 1, "##,###")
- Catch ex As Exception
- End Try
- End Function
二．累加計(jì)算
通過(guò)計(jì)算累加每行字符總數(shù)是否大于插入點(diǎn)前總字符數(shù)，來(lái)確定當(dāng)前行數(shù)。
- '不使用API函數(shù)
- Friend Function LineNo(ByVal sender As Object) As Integer
- '計(jì)算文本框的當(dāng)前行號(hào)////////////////////////////徐應(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) '計(jì)算行數(shù)
- charCount += txtbox.Lines(i).Length + 2 '一個(gè)回車(chē)符長(zhǎng)度2
- If txtbox.SelectionStart < charCount Then
- Return i + 1
- End If
- Next
- Catch ex As Exception
- End Try
- End Function
【編輯推薦】
- 深入探討VB.NET重載方法
- 簡(jiǎn)單討論VB.NET使用缺省屬性
- VB.NET Sub創(chuàng)建方法簡(jiǎn)介
- 輕松實(shí)現(xiàn)Flash控制VB.NET程序
- 講解VB.NET開(kāi)發(fā)語(yǔ)言和C#簡(jiǎn)單結(jié)合
網(wǎng)站名稱(chēng)：迅速讀懂VB.NET Integer
URL鏈接：http://m.5511xx.com/article/ccchhdp.html
