Strings_Module
Amjad Moustafa :: VB6 :: Modules
صفحة 1 من اصل 1
Strings_Module
Function SelectText(TXT As String, s As Long, L As Long) As String
SelectText = Right(Left(TXT, s - (-L)), L)
End Function
'Get mouse position in text (columes)
Function MouseC(TXT As String, s As Long) As Long
Dim TT As String
TT = Left(TXT, s)
If MouseL(TXT, s) = 1 Then
MouseC = s
Else
For A = 1 To Len(TT) - 2
If SelectText(TT, Len(TT) - A, 2) = vbNewLine Then
MouseC = A - 2
If MouseC = -1 Then MouseC = 0
Exit Function
End If
Next
End If
End Function
'Get mouse position in text (lines)
Function MouseL(TXT As String, s As Long) As Long
Dim TT As String
TT = Left(TXT, s)
MouseL = UBound(Split(TT, vbNewLine)) + 1
If MouseL = 0 Then MouseL = 1
End Function
Function Lines_Count(TXT As String) As Long
On Error Resume Next
Lines_Count = UBound(Split(TXT, vbNewLine)) + 1
End Function
'Splite text to lines and add lines to listbox
Function Splite_Lines(TXT As String, L As ListBox)
On Error Resume Next
Dim NN As Long, N As Long
Dim MyText() As String
N = UBound(Split(TXT, vbNewLine)) + 1
MyText() = Split(TXT, vbNewLine)
For s = 1 To N
L.AddItem MyText(NN)
NN = NN - (-1)
Next
End Function
SelectText = Right(Left(TXT, s - (-L)), L)
End Function
'Get mouse position in text (columes)
Function MouseC(TXT As String, s As Long) As Long
Dim TT As String
TT = Left(TXT, s)
If MouseL(TXT, s) = 1 Then
MouseC = s
Else
For A = 1 To Len(TT) - 2
If SelectText(TT, Len(TT) - A, 2) = vbNewLine Then
MouseC = A - 2
If MouseC = -1 Then MouseC = 0
Exit Function
End If
Next
End If
End Function
'Get mouse position in text (lines)
Function MouseL(TXT As String, s As Long) As Long
Dim TT As String
TT = Left(TXT, s)
MouseL = UBound(Split(TT, vbNewLine)) + 1
If MouseL = 0 Then MouseL = 1
End Function
Function Lines_Count(TXT As String) As Long
On Error Resume Next
Lines_Count = UBound(Split(TXT, vbNewLine)) + 1
End Function
'Splite text to lines and add lines to listbox
Function Splite_Lines(TXT As String, L As ListBox)
On Error Resume Next
Dim NN As Long, N As Long
Dim MyText() As String
N = UBound(Split(TXT, vbNewLine)) + 1
MyText() = Split(TXT, vbNewLine)
For s = 1 To N
L.AddItem MyText(NN)
NN = NN - (-1)
Next
End Function
Amjad Moustafa :: VB6 :: Modules
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى