如何實現VB.NET實現代碼在datagridview選中行,并在datagridview顯示區域居中

非常簡單

個舊網站制作公司哪家好，找創新互聯！從網頁設計、網站建設、微信開發、APP開發、成都響應式網站建設公司等網站項目制作，到程序開發，運營維護。創新互聯從2013年成立到現在10年的時間，我們擁有了豐富的建站經驗和運維經驗，來保證我們的工作的順利進行。專注于網站建設就選創新互聯。

一：如果知道要選中的行號

datagridview1.Rows(行號).Selected

=

True

datagridview1.FirstDisplayedScrollingRowIndex

=

行號

第一行是選中行號所在的行，第二行是移動滾動條將選中的行在顯示區域的最上放顯示出來。

二：根據內容選中行并顯示

For

i

=

To

datagridview1.Rows.Count

-

1

If

datagridview1.Rows(i).Cells("列的名稱").Value

=

要選中行列的值

Then

datagridview1.Rows(i).Selected

=

True

datagridview1.FirstDisplayedScrollingRowIndex

=

i

End

If

Next

而且，如果你不想選中的行顯示到最上面，可以這樣：

For

i

=

To

datagridview1.Rows.Count

-

1

If

datagridview1.Rows(i).Cells("列的名稱").Value

=

要選中行列的值

Then

datagridview1.Rows(i).Selected

=

True

Dim

indeI

As

Integer

=

i

-

15

If

indeI

1

Then

indeI

=

1

datagridview1.FirstDisplayedScrollingRowIndex

=

indeI

End

If

Next

上面的代碼是根據某列的值選中行，并且移動滾動條將選中的行在顯示區域的第15行顯示。

VB.net怎么顯示RichTextBox的行數、列數和總行數啊？

求行：

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.net顯示行號的簡單介紹
本文地址：http://m.newbst.com/article34/dodjose.html

成都網站建設公司_創新互聯，為您提供Google、面包屑導航、企業建站、品牌網站建設、網站設計、域名注冊

廣告

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