Mensajes

Tambien podrias usar esto:

Código (vb) [Seleccionar] Expandir

Dim reg(5) As String
Open "Archivo.txt" For Input As #1
  Line Input #1, reg(1)
  Line Input #1, reg(2)
  Line Input #1, reg(3)
  Line Input #1, reg(4)
  Line Input #1, reg(5)
MsgBox reg(4)

y puedes tener todas las lineas asignada a una variable ... claro que no es de mucha ayuda si tienes muchas lineas ...

puedes usar un flexgrid y visualizar todo lo que kieras en conjunto ...y dejar de usar los label...

no puedes poner todos los campos en un solo label... tiene que ser un campo en un label

Código (vb) [Seleccionar] Expandir

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

'Establesco la conexión
'Aqui establesco el proveedor
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
'Aqui establesco la conexión con la base de datos
cn.ConnectionString = "basedato.mdb"
'Habre la conexion
cn.Open
'Aqui se obtiene una serie de registros: en este caso de la
'tabla stock
rs.Open "select * from stock", cn, adoenkeyset, adLockOptimistic

Label1.Caption = rs.("codigo")
Label2.Caption = rs.("detalle")

Si no quieres que te vuelva a pasar ve el codigo que vas a ejecutar primero xD.

no es el codigo .. es la lista que lo cargo desde un texto al listbox y no me fije que tenia 177 lineas de texto 

ya lo termine y si tuve razon con esto solo me consume de 2 a 3 % de la cpu ...

vaya tan simple para recorrer item por item ... tambien habia tratado con for .. y ahora veo donde hize mal y ya no segui con for.. to .. next

pero esa es la idea de recorrer item a item y obtener el contenido del item y ponerlo en una etiketa.. lo pusiste en un msgbox y tuve que darle 177 click  ...


muchisimas gracias .. esto me sirve para terminar esta parte de mi proyecto ... y veo que no me consumira mucha cpu como otro metodo que hacia, la de cargar todo en una variable y crear objetos (labels) y mandarlos una linea a cada label creado con load y como es repetitivo tenia que descargar y esto hacia que consuma de 3 a 5 % de la cpu ...

Tengo un list box donde cargue una lista de un texto ... por ejemplo 50 lineas de texto, y lo que quiero obtener es poder leer item por item .. un item ala vez y poner el contenido en una misma etiketa reemplazandolo... empezando por el primer item hasta el ultimo ...

List1.ListCount  es el numero de items del listbox
List1.List(ListIndex) me muestra el primer item de la lista
List1.List(ListIndex + 1) me muestra el segundo item de la lista

con esto hago recorrer la lista

Código (vb) [Seleccionar] Expandir

List1.ListIndex = List1.ListIndex + 1
If List1.ListIndex = List1.ListCount - 1 Then List1.ListIndex = -1

alguna idea de como obtener lo explicado...

PD: ya revise lo de la api SendMessage...

http://www.recursosvisualbasic.com.ar/htm/listado-api/154-obtener-items-de-listbox-combo-con-sendmessage.htm

pero la verdad ni idea de como hacerlo para que lea item por item ... y lo ponga en un label ..

Sin usar muchas lineas de codigo puedes hacer esto:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
If Text1 <> Empty And Text2 <> Empty And Text3 <> Empty Then

'' aki pones codigo para que guarde en tu base de datos las cajas de texto           

Else
  MsgBox ("Advertencia!...Debe llenar todo los campos...")

End If


y para que solo te permita poner numeros en los text1 y Text3 puedes usar esto:

Código (vb) [Seleccionar] Expandir

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then
        KeyAscii = 0
    End If
End Sub

y lo mismo para el Text3 ...

Salu2.

Yo en mis proyectos pongo variables en ingles, español, y las funciones como me viene en gana. Porque algunas palabras en ingles son mas cortas...

No creo que hayas de poner en duda si lo ha programado el o no, solamente por que ya existan esa clase de proyectos. Ademas, que tu no puedas hacerlo en 20 minutos no significa que no pueda hacerlo nadie.

bueno tu no estas en la gran mayoria que mencione 

y de hecho yo no puedo hacerlo en 20 minutos .. pero si ubiese estudiado programacion pueda que si .... puesto que lo poco que se de visual basic lo aprendi con un par de libros y una pc vieja y muchos codigos de ejemplos .... lo mio es otra cosa nada que ver con programacion ... el vb es como una aficion nada mas porke me gusta..

y siguiendo con los 20 minutos  ... tu podrias hacer algo similar en 20 minutos ...

PD: no me atackes por dar una opinion... pues asi es, no todos te diran lo mismo... (comentarios positivos, negativos, que ponen en duda etc, etc..)

PD2: si heri los sentimientos de alguien ... pues lo siento mucho... no me disculpo para nada (eso lo aprendi en la universidad)... a menos que este ekivocado en el tema...

Salu2.

si te fijas mencione la mayoria ... yo tambien uso nombres de variables y funciones en ingles porke asi llegaron ... osea es codigo ajeno y lo dejo tal cual como esta...

si lo hizo en 20 minutos ... joder yo me tardo tipear una pagina en word ese tiempo ...

lo estuve chekeando y si es mutliconexion ... carga y descarga sockets... pero que lo hayas hecho en 20 minutos no te creo ... y la verdad ni sikiera estoy seguro que lo hayas hecho tu ... puesto que tiene el aspecto y casi todo de los codigos que andan por la red .. ademas usas algunas nombres de varibles en ingles asi como algunas funciones ... y en español tambien ... al parecer se te olvido cambiarle 

pues la mayoria que programa asi como yo no creo que mezclen idiomas en sus proyectos ...

vi un modulo iconchanger ... muy bueno... el mismo que usa E0N en su small joiner ...

http://foro.elhacker.net/analisis_y_diseno_de_malware/version_final_small_joiner_by_e0n_joiner_open_source_en_asm-t196618.0.html

y sobre los errores puede ser por las dimenciones de los iconos y la cantidad de colores que tienen ...