掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストボックス内でのカーソルの行位置の取得 (ID:88225)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
たくさんのお返事有難うございます! LESIAさん サンプル有難うございます。 .basの意味も分かってない初心者なのでそこから調べて何とか動きました。 じゃんぬねっとさんのサンプルとあわせて、カレットの位置を検出して 表示することには成功したのですが、キャレットが動いたときに作動するようには出来ないのですか?一応プログラムは作ってみたのですが・・・ (.frm) だけ書いています。 Option Explicit Dim v As Double Dim lngLineFromCharCharIndex As Long Dim lngLineFromCharLineIndex As Long Private Sub KeyDown() v = Text1.SelStart ' 先頭からの文字目を指定 lngLineFromCharCharIndex = v ' 指定文字番目が含まれる行番号を取得 lngLineFromCharLineIndex = _ SendMessage(Text1.hWnd, _ EM_LINEFROMCHAR, _ lngLineFromCharCharIndex, _ ByVal CLng(0)) ' 結果を表示 Label5.Caption = lngLineFromCharLineIndex End Sub Private Sub MouseDown() v = Text1.SelStart ' 先頭からの文字目を指定 lngLineFromCharCharIndex = v ' 指定文字番目が含まれる行番号を取得 lngLineFromCharLineIndex = _ SendMessage(Text1.hWnd, _ EM_LINEFROMCHAR, _ lngLineFromCharCharIndex, _ ByVal CLng(0)) ' 結果を表示 Label5.Caption = lngLineFromCharLineIndex End Sub Private Sub Text1_Change() v = Text1.SelStart ' 先頭からの文字目を指定 lngLineFromCharCharIndex = v ' 指定文字番目が含まれる行番号を取得 lngLineFromCharLineIndex = _ SendMessage(Text1.hWnd, _ EM_LINEFROMCHAR, _ lngLineFromCharCharIndex, _ ByVal CLng(0)) ' 結果を表示 Label5.Caption = lngLineFromCharLineIndex + 1 End Sub
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.