VB编程中TextBox如何获取行列数值

VB编程中TextBox如何获取行列数值

答案或建议：

以 Text1 为对象：
Public Function GetTextInfo() As String
On Error GoTo errTextInfo
Dim txtLine() As String, lenLine() As Long, sumLen As Long
Dim LineVal As Long, ColumnVal As Long, virText As String
virText = Text1.Text
If virText = "" Then
GetTextInfo = "Line = 1/1,Column = 1/1"
Exit Function
Else
virText = virText + vbCrLf
End If
txtLine = Split(virText, vbCrLf): sumLen = 0
ReDim lenLine(UBound(txtLine))
For i = 0 To UBound(txtLine)
lenLine(i) = Len(txtLine(i)) + 2
DoEvents
Next i
For j = 0 To UBound(txtLine)
If sumLen <= Text1.SelStart Then
sumLen = sumLen + lenLine(j)
Else
LineVal = j
Exit For
End If
DoEvents
Next j
ColumnVal = lenLine(LineVal - 1) - (sumLen - Text1.SelStart) + 1
GetTextInfo = "Line = " + CStr(LineVal) + "/" + CStr(UBound(txtLine)) + ",Column = " + CStr(ColumnVal) + "/" + CStr(lenLine(LineVal - 1) - 1)
Exit Function
errTextInfo:
GetTextInfo = "Error"
End Function

转载请保留：http://www.baikewenda.com/tech/dev/7/7/a182417255.htm