Textボックスで選択されている行番号を取得するには？ (ID:121476)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VB6と仮定してますが、以下を組み込んで試してみてください。 Yに選択行、Zに選択されている行数が入ります。 難しい事をしていないので、ヘルプなどで調べてください。 Dim x As Long Dim y As Long Dim z As Long x = 0 y = 1 z = 1 Do x = InStr(x + 1, Text1.Text, vbCrLf) If x <= 0 Then Exit Do If x < Text1.SelStart Then y = y + 1 If (x > Text1.SelStart) And (x < Text1.SelStart + Text1.SelLength) Then z = z + 1 Loop