VB點(diǎn)虐 怎么顯示RichTextBox的行數(shù)、列數(shù)和總行數(shù)啊？

求行：

目前創(chuàng)新互聯(lián)已為1000多家的企業(yè)提供了網(wǎng)站建設(shè)、域名、虛擬空間、網(wǎng)站托管、企業(yè)網(wǎng)站設(shè)計(jì)、道里網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

RichTextBox1.GetLineFromChar(RichTextBox1.SelStart)+1

這個(gè)代碼呢，我的理解呢，是獲取在selstart的地方的行數(shù)。一般來講selstart的地方都是光標(biāo)的地方，然后會(huì)給你返回line。不過返回的時(shí)候要自己加1。不是很懂這個(gè)語法，有懂得可以教我一下

以上是求行數(shù)。

求列：

For i = 0 To RichTextBox1.SelStart

If RichTextBox1.GetLineFromChar(RichTextBox1.SelStart) - RichTextBox1.GetLineFromChar(RichTextBox1.SelStart - i) 0 Then Exit For

j = j + 1

Next i

這個(gè)for循環(huán)呢，講的是檢查這一行光標(biāo)前有多少個(gè)列，然后用J輸出列的個(gè)數(shù)。

因?yàn)閂B6.0沒有RichTextBox1.GetFirstCharIndexOfCurrentLine這種語法。所以扮陪就得自己模擬這個(gè)過程。

具體怎么檢查的呢，首先將 i 從0循環(huán)到光標(biāo)處，

如果 【光標(biāo)字符數(shù)】處的行數(shù) 減去 【光標(biāo)字符數(shù)減去 i 個(gè)字符數(shù)】處的行數(shù)小于0了，我寫了個(gè)不為零。但此時(shí)寫小于零就可以。那么代表著換行了，同時(shí)也代表著光標(biāo)到上一行之間有多少字。用j存儲(chǔ)循環(huán)次數(shù)，得出正殲對(duì)應(yīng)列數(shù)。（我們中文習(xí)慣是叫第一列，但程序?qū)嶋H上是第零列，但在循環(huán)的時(shí)候就注意到并解決這個(gè)問題了）

如果你替換寫法，例如

If RichTextBox1.GetLineFromChar(RichTextBox1.SelStart) - RichTextBox1.GetLineFromChar(RichTextBox1.SelStart + i) 0 Then Exit For

j = j + 1

Next i

這個(gè)廳清蠢 J 就對(duì)應(yīng)著光標(biāo)到該行結(jié)尾有幾個(gè)字符了，如果有需要可以使用，但一般不需要。

那么就像上面說的那樣，行列都求出來了，最后用事件和TEXT或者caption表現(xiàn)出來就好了

至于說總行數(shù)

RichTextBox1.GetLineFromChar(Len(RichTextBox1.Text)) + 1

通過對(duì)最后一個(gè)字符的位置（總長度）的行來判斷唄，不過也得加一。

VB.NET中，如何獲得文本框中可見區(qū)域的首行的行號(hào)？

通過向文本框沒如傳遞EM_LINEFROMCHAR消息枯禪啟可以襲蘆得到光標(biāo)所在的行號(hào)：

contst

EM_LINEFROMCHAR

=

0xC9

Dim

I

as

Long

I

=

SendMessage(textBox1.Hwnd,

EM_LINEFROMCHAR,

-1,

0)

怎樣在VB代碼中增加行號(hào)

1）在VB代碼前添加行號(hào)需借助第三方控件或自己添加在代碼行前。

Private?Sub?Form_Load()

0???Dim?cnn?As?New?Connection

1???Dim?rs?As?New?Recordset

2???Dim?sql?As?String

3???Dim?ARR

5???攔喊宏cnn.Open?"Provider=Microsoft.Jet.OLEDB.4.0;Data?Source=C:\wdOld.mdb;Persist?Security?Info=False"

6???sql?=?"select?故障名稱?滲橡from?guzhang_bm"

7???rs.Open?sql,?cnn

8???Combo1.Text?=?"故障名稱"

9???Do?While?Not?rs.EOF

10??????Combo1.AddItem?rs("故障名稱")

11??????rs.MoveNext????'打開表

12??Loop

13??rs.Close

14??cnn.Close

End?Sub

用來識(shí)別一行代碼。行號(hào)可以是任何數(shù)值的組合，在使用行號(hào)的模塊內(nèi)，該組合是唯一的。行號(hào)必須在從一列開始。

2）VB的集成IDE編程窗口的工具欄中有行號(hào)和列號(hào)顯示簡冊(cè)。

網(wǎng)頁題目：vb點(diǎn)虐 代碼顯示行號(hào)的簡單介紹
URL標(biāo)題：http://www.chinadenli.net/article26/ddpgsjg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供做網(wǎng)站、Google、網(wǎng)站維護(hù)、App設(shè)計(jì)、企業(yè)建站、品牌網(wǎng)站設(shè)計(jì)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)