Se tiene que repetir 8 veces...
Hola amigos, mi inquietud es lograr que se repita la instrucci贸n que muestro abajo, para que pueda seleccionar textos diferentes de una cadena y almacenar las selecciones respectivas en un vector que se llama Text3(i).
El c贸digo funciona pero para una sola selecci贸n con el rat贸n. Es decir, que si quiero seleccionar varios valores de un String no lo puedo hacer, ya que s贸lo me toma la selecci贸n inicial y la almacena en la posici贸n 0 del vector.
Porfa, d铆ganme que falta y que tengo mal. Es urgente!!!
En este c贸digo he omitido la parte donde deber铆a estar el ciclo que permite recorrer el vector (de 8 posiciones por cierto), y cargar las diferentes selecciones, para evitar que se envicien con mis errores.
Le agradezco de antemano a quien me pueda ayudar.
Private Sub Form_Load()
Texto1 = "01/02/05 00:01:00 002 45852 00:02 00:00:50 0058002502765149818258362 02"
HP3.Text2.Text = Texto1
HP3.Text3(2).Text = Texto
End Sub
Private Sub Text2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a As String, i As Integer
If Button = 1 Then
If Text2.SelLength <> 0 Then GoSub Texto
TSel = Texto
MsgBox TSel
Exit Sub
Texto:
For i = Text2.SelStart + 1 To (Text2.SelStart + Text2.SelLength)
a = a & Mid(Text2, i, 1)
Next i
Texto = a
Return
End If
End Sub
El c贸digo funciona pero para una sola selecci贸n con el rat贸n. Es decir, que si quiero seleccionar varios valores de un String no lo puedo hacer, ya que s贸lo me toma la selecci贸n inicial y la almacena en la posici贸n 0 del vector.
Porfa, d铆ganme que falta y que tengo mal. Es urgente!!!
En este c贸digo he omitido la parte donde deber铆a estar el ciclo que permite recorrer el vector (de 8 posiciones por cierto), y cargar las diferentes selecciones, para evitar que se envicien con mis errores.
Le agradezco de antemano a quien me pueda ayudar.
Private Sub Form_Load()
Texto1 = "01/02/05 00:01:00 002 45852 00:02 00:00:50 0058002502765149818258362 02"
HP3.Text2.Text = Texto1
HP3.Text3(2).Text = Texto
End Sub
Private Sub Text2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a As String, i As Integer
If Button = 1 Then
If Text2.SelLength <> 0 Then GoSub Texto
TSel = Texto
MsgBox TSel
Exit Sub
Texto:
For i = Text2.SelStart + 1 To (Text2.SelStart + Text2.SelLength)
a = a & Mid(Text2, i, 1)
Next i
Texto = a
Return
End If
End Sub