免费观看又色又爽又黄的小说免费_美女福利视频国产片_亚洲欧美精品_美国一级大黄大色毛片

vb點虐 代碼顯示行號的簡單介紹

VB點虐 怎么顯示RichTextBox的行數、列數和總行數啊?

求行:

目前創新互聯已為1000多家的企業提供了網站建設、域名、虛擬空間、網站托管、企業網站設計、道里網站維護等服務,公司將堅持客戶導向、應用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協力一起成長,共同發展。

RichTextBox1.GetLineFromChar(RichTextBox1.SelStart)+1

這個代碼呢,我的理解呢,是獲取在selstart的地方的行數。一般來講selstart的地方都是光標的地方,然后會給你返回line。不過返回的時候要自己加1。不是很懂這個語法,有懂得可以教我一下

以上是求行數。

求列:

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

這個for循環呢,講的是檢查這一行光標前有多少個列,然后用J輸出列的個數。

因為VB6.0沒有RichTextBox1.GetFirstCharIndexOfCurrentLine這種語法。所以扮陪就得自己模擬這個過程。

具體怎么檢查的呢,首先將 i 從0循環到光標處,

如果 【光標字符數】處的行數 減去 【光標字符數減去 i 個字符數】處的行數小于0了,我寫了個不為零。但此時寫小于零就可以。那么代表著換行了,同時也代表著光標到上一行之間有多少字。用j存儲循環次數,得出正殲對應列數。(我們中文習慣是叫第一列,但程序實際上是第零列,但在循環的時候就注意到并解決這個問題了)

如果你替換寫法,例如

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

j = j + 1

Next i

這個廳清蠢 J 就對應著光標到該行結尾有幾個字符了,如果有需要可以使用,但一般不需要。

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

至于說總行數

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

通過對最后一個字符的位置(總長度)的行來判斷唄,不過也得加一。

VB.NET中,如何獲得文本框中可見區域的首行的行號?

通過向文本框沒如傳遞EM_LINEFROMCHAR消息枯禪啟可以襲蘆得到光標所在的行號:

contst

EM_LINEFROMCHAR

=

0xC9

Dim

I

as

Long

I

=

SendMessage(textBox1.Hwnd,

EM_LINEFROMCHAR,

-1,

0)

怎樣在VB代碼中增加行號

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

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

用來識別一行代碼。行號可以是任何數值的組合,在使用行號的模塊內,該組合是唯一的。行號必須在從一列開始。

2)VB的集成IDE編程窗口的工具欄中有行號和列號顯示簡冊。

網頁題目:vb點虐 代碼顯示行號的簡單介紹
URL標題:http://m.newbst.com/article26/ddpgsjg.html

成都網站建設公司_創新互聯,為您提供做網站Google網站維護App設計企業建站品牌網站設計

廣告

聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯

商城網站建設