Programación General > Visual Basic para principiantes

 Problema con TextBox y ListBox Resuelto..

<< < (5/6) > >>

F_Tanori:
entonces a tratar de conquistar el mundo :P


Saludos

IAO:
Holaaa:

Comprobado por varias vias, no me trabaja pero la idea es estupenda.
Da el mismo error:  El subindice está fuera de intervalo..

Bueno ni modo, seguiré indagando.

Gracias...
Bye('_')...

m0skit0:
Una pista IAO: InStr()

IAO:
Holaaaa:

Gracias sr. m0skit0 tampoco funciona, a sido duro esto. Pero ya logre algo.
--
Ya pude, pero de otra manera.. Todo lo que aparece en el Text1 Multilinea lo pude colocar en el List1 de esta manera.
Hoy trataré de utilizar el MID, Rigth o Left con el List1, a ver que me resulta.
Así esta quedando el código de la parte de entrada.

--- Código: Text ---     If Option1.Value = True Then        Select Case MSComm1.CommEvent            Case comEvReceive '''recibo 1 bytes            '''Recibe y lo almacena en sData.            sData = MSComm1.Input                        'Datos que se quieren modificar. Los retiro de la Variable            sData = Replace$(sData, "m", "")            sData = Replace$(sData, "s", "")            sData = Replace$(sData, "V", "")            'sData = Replace$(sData, " ", "")            'sData = Replace$(sData, Chr(9), " ")            'sData = Replace$(sData, Chr(13), "")            'sData = Replace$(sData, Chr(10), "")            '                        Text1 = Text1 & sData  'Derecha                        '''Borrar el contenido del listbox            List1.Clear            '''El TextBox pasa (el dato ), y el caracter delimitador            sDatos = Split(Text1, vbNewLine)            '''Recorremos el arreglo y vamos insertando los elementos del array            '''en el ListBox            For i = LBound(sDatos) To UBound(sDatos)            Me.List1.AddItem sDatos(i)            Next                     End Select    End If    End Sub  
En un rato pego una captura de la imagen......



Bye('_')....

IAO:
Holaaaaaa:

YuuuuuuuPiiiiiiii.....
Gracias por su ayuda sr. m0squit0 y sr. F_tanori. De verdad.
Miren como va quedando. Gracias por sus post, todavía falta es solo el principio.



Funcionó perfecto el MID, ahora sí.

--- Código: Text ---  For i = LBound(sDatos) To UBound(sDatos)   Me.List1.AddItem Mid(sDatos(i), 9, 6)  Next  Luego les doy todo el código cuando finalice el tratamiento de los datos y la graficación..Falta bastante.
Siempre paso mis programas terminados..es parte del apredizaje...
Bye('_')...

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior