Question

VB中如何用statusbar控件来显示光标位置

如题~就是那段代码怎么写，写在哪个程序下面？

Answer 1

With Text1
Col = UBound(Split(Left(.Text, .SelStart), vbCrLf))
If Col < 0 Then Col = 0
If .SelStart > 0 Then
Row = .SelStart - InStrRev(.Text, vbCrLf, .SelStart) + IIf(Col = 0, 1, 0)
Else
Row = 1
End If
Col = Col + 1
? "行:" & Col & " 列:" & Row
End With

上面的代码演示了,取得文本框中,光标所在的行和列,你将其显示到statusbar中就可以了

Answer 2

With Text1
Col = UBound(Split(Left(.Text, .SelStart), vbCrLf))
If Col < 0 Then Col = 0
If .SelStart > 0 Then
Row = .SelStart - InStrRev(.Text, vbCrLf, .SelStart) + IIf(Col = 0, 1, 0)
Else
Row = 1
End If
Col = Col + 1
? "行:" & Col & " 列:" & Row
End With

上面的代码演示了,取得文本框中,光标所在的行和列,你将其显示到statusbar中就可以了

Answer 3

With Text1
Col = UBound(Split(Left(.Text, .SelStart), vbCrLf))
If Col < 0 Then Col = 0
If .SelStart > 0 Then
Row = .SelStart - InStrRev(.Text, vbCrLf, .SelStart) + IIf(Col = 0, 1, 0)
Else
Row = 1
End If
Col = Col + 1
? "行:" & Col & " 列:" & Row
End With

上面的代码演示了,取得文本框中,光标所在的行和列,你将其显示到statusbar中就可以了

Answer 4

With Text1
Col = UBound(Split(Left(.Text, .SelStart), vbCrLf))
If Col < 0 Then Col = 0
If .SelStart > 0 Then
Row = .SelStart - InStrRev(.Text, vbCrLf, .SelStart) + IIf(Col = 0, 1, 0)
Else
Row = 1
End If
Col = Col + 1
? "行:" & Col & " 列:" & Row
End With

上面的代码演示了,取得文本框中,光标所在的行和列,你将其显示到statusbar中就可以了（来自网络)

Answer 5

With Text1
Col = UBound(Split(Left(.Text, .SelStart), vbCrLf))
If Col < 0 Then Col = 0
If .SelStart > 0 Then
Row = .SelStart - InStrRev(.Text, vbCrLf, .SelStart) + IIf(Col = 0, 1, 0)
Else
Row = 1
End If
Col = Col + 1
? "行:" & Col & " 列:" & Row
End With

试试这段代码