ベストアンサー

テキストボックスに表示された行の番号を取得したい

2003/08/23 08:44

VB.NETで簡単なテキストエディタを作っています。テキストボックスをフォームに張り付けることにより、画面表示及び入力は出来るようになりました。それで、ほかのエディタ（秀丸など）のように、カーソルが、ある行にきたとき、その行番号を画面の下のほうに表示しようと考えています。そのため、まず、カーソルが位置づけられている行の行番号を取得したいのですが、その方法がわかりません。テキストボックスのプロパティ、メソッドを探したのですが、そのようなものは見あたりませんでした。どなたかご存じの方おりましたら、ご教授ください。

tatsu99
お礼率93% (133/143)

Visual Basic
回答数2
ありがとう数2

みんなの回答 （2）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

fantasis
ベストアンサー率26% (14/52)

2003/08/25 09:18 回答No.2

.NETではどうかわかりませんが、VB6.0でそのような関数があります。簡単に解説でも。 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long Const EM_LINEFROMCHAR = &HC9 'カーソルがある列数（縦）を取得 Const EM_GETLINECOUNT = &HBA 'テキストボックスでの最大列数（縦）を取得する Const EM_LINEINDEX = &HBB 'カーソルがある行（横）の位置を取得する Const EM_LINELENGTH = &HC1 'カーソルがある行（横）の最大行数を取得する Const EM_GETSEL = &HB0 'カーソルが何行目（横）にあるかを取得する Private Sub GetInfomation() Dim Line as Long, Midle as Long 'Lineには列数を、Midleには何行目かを格納します。 Line = SendMessage(Text1.hwnd, EM_LINEFROMCHAR, -1, 0) + 1 Midle = SendMessage(Text1.hwnd, EM_GETSEL, 0, 0) Midle = Midle \ 65536 - Top + 1 End Sub ただし、MidleにはLenB関数のように、全角なら2、半角なら1と計算されますので、Midle=文字数とは限りません。