13/04/2005, 19:05
|
 | | | Fecha de Ingreso: febrero-2005
Mensajes: 81
Antigüedad: 20 años, 2 meses Puntos: 0 | |
| Espero te sirva de algo.
Private TSel As String
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
If Text1.SelLength > 0 Then
TSel = Texto
MsgBox TSel
End If
End If
End Sub
Private Function Texto() As String
Dim a As String
For i = Text1.SelStart + 1 To (Text1.SelStart + Text1.SelLength)
a = a & Mid(Text1, i, 1)
Next i
Texto = a
End Function |