編集

名前

ホームページ(ブログ、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

テキストボックス内でのカーソルの行位置の取得 (ID:88225)