Copiar y pegar codigo no tiene merito y no se aprende (mucho), te recomiendo luego de probar el ejemplo escribir las variables y darle valores para que veas lo facil que se hace programar definiendo tipos y enum (enumerando opciones).
Codigo para el modulo (Al proyecto nuevo agregar modulo - Menu: Proyecto - Agregar modulo)
Option Explicit
Enum Zecso ' Hay que decirlo en voz alta. ;)
Masculino = True
Femenino = False
End Enum
Masculino = True
Femenino = False
End Enum
Type MiTipo
Nombre As String * 20
Edad As Integer
Sexo As Zecso
End Type
Nombre As String * 20
Edad As Integer
Sexo As Zecso
End Type
Public Usuarios(0 To 100) As MiTipo
'==========================
' En el formulario:
' Form Load (carga del formulario)
'==========================
Private Sub Form_Load()
Dim X As Integer ' variable para contador
Me.AutoRedraw = True ' autodibuje el formulario
Me.FontName = "Lucida Console"
Randomize Timer ' opciones al azar basadas en el "timer" valor muy variable
For X = 0 To 100
With Usuarios(X) ' abrimos una variable para ingresar datos, se escribe menos codigo
.Nombre = String(Rnd * 15 + 4, Chr(Rnd * 30 + 64))
.Edad = Rnd * 80
.Sexo = Femenino + Rnd * 1
End With
Next X
For X = 0 To 100
With Usuarios(X)
Print " Nombre: " + .Nombre;
Print " - Edad:" + Format(.Edad, "@@"); ' formato personalizado para la presentación de los datos.
Print " - Sexo: " + IIf(.Sexo, "Masculino", "Femenino") ' iif <- un metodo if en una sola linea.
End With
Next X
End Sub
Dim X As Integer ' variable para contador
Me.AutoRedraw = True ' autodibuje el formulario
Me.FontName = "Lucida Console"
Randomize Timer ' opciones al azar basadas en el "timer" valor muy variable
For X = 0 To 100
With Usuarios(X) ' abrimos una variable para ingresar datos, se escribe menos codigo
.Nombre = String(Rnd * 15 + 4, Chr(Rnd * 30 + 64))
.Edad = Rnd * 80
.Sexo = Femenino + Rnd * 1
End With
Next X
For X = 0 To 100
With Usuarios(X)
Print " Nombre: " + .Nombre;
Print " - Edad:" + Format(.Edad, "@@"); ' formato personalizado para la presentación de los datos.
Print " - Sexo: " + IIf(.Sexo, "Masculino", "Femenino") ' iif <- un metodo if en una sola linea.
End With
Next X
End Sub
'==========================
Saludos,
Briand
----- Original Message -----From: Jorge Gutierrez FaundezTo: DesarrolloVB@...Sent: Saturday, April 01, 2006 8:21 PMSubject: Re: [VB] COMBOBOXTe lo agradecería mucho..Jorge
Briand Bernal <briand.bernal@...> escribió:Estan buenos, podes hacer array de tipos propios, es como si crearas objetos con propiedades.Luego busco algo y te envio.Saludos,Briand----- Original Message -----From: Jorge Gutierrez FaundezTo: DesarrolloVB@...Sent: Saturday, April 01, 2006 3:20 PMSubject: Re: [VB] COMBOBOXaja... ok... probaré con un array.. jamás he hecho uno en VB pero investigaré en el manual...
Gracias Briand.
Jorge
Briand Bernal <briand.bernal@...> escribió:Tenes 2 caminos, o consultas en la tabla el codigo que tiene a su nombre si los nombres no se repiten, o creas un array con los codigos.Por ej. nombre(posicion devuelta del combo)=codigo.Saludos,Briand----- Original Message -----From: Jorge Gutierrez FaundezTo: DesarrolloVB@...Sent: Saturday, April 01, 2006 5:14 AMSubject: [VB] COMBOBOXOk gracias... así es como lo tengo hecho, a mano...(Ya instalé el SP6 para VB6 y tengo completa compatibilidad con las bases de datos de Access XP... millones de gracias por ese dato)Ahora, tengo otra consulta respecto a los combos... les daré un ejemplo para que entiendan lo que quiero hacer.:Tengo una tabla por ejemplo de equipos de Futbol:CODIGO NOMBRE PAIS001 U de Chile Chile002 River Plate Argentina003 Boca Jr Argentina004 Barcelona España005 Tigres Méxicoetc etc etc...En otra tabla ingresaré jugadores de futbol:CODIGO NOMBRE_JUGADOR CLUBPara que el usuario ingrese un nuevo jugador, debe seleccionar el CLUB, para ello utilizo un combo, llenado manualmente con el nombre de los equipos (BOCA JR, RIVER, BARCELONA, etc..etc...)Pero al momento de guardar el registro, en el campo CLUB de la tabla JUGADORES debo guardar el CODIGO del equipo...COMO HAGO ESO? mi idea es que en cada valor que le agrego al COMBO, agregarle el campo CODIGO del EQUIPO, pero que no se vea en el combo..se entiende?Saludos y graciasJorge
-= Waldo DJ =- <waldodj2000@...> escribió:Hay controles, que se pueden enlazar a una tabla o consulta, ( Bound ) como por ej. el DataBound Combo, o DataBound ListA este control lo enlazas con un DataControl y le decis de que campo queres que tome los datos.Pero particularmente, si no son muuuchos los datos, yo prefiero poner un combo comun y llenarlo a mano.Saludos----- Original Message -----From: Jorge Gutierrez FaundezTo: DesarrolloVB@...Sent: Thursday, March 30, 2006 6:44 AMSubject: [VB] SQL - COMBOBOXUna pequeña consulta:
¿Puedo llenar un COMBOBOX con una consulta SQL ?
La idea es poner en un COMBOBOX los datos de una tabla para que un usuario "seleccione" el registro deseado.
En este momento yo los lleno mediante código, o sea, registro por registro con el COMBO1.ADDITEM.
Saludos y gracias
Jorge
Jorge Gutiérrez FaúndezJgUty
Villahermosa, Tabasco, México
LLama Gratis a cualquier PC del Mundo.
Llamadas a fijos y móviles desde 1 céntimo por minuto.
http://es.voice.yahoo.com
Jorge Gutiérrez Faúndez
Villahermosa, Tabasco, México
LLama Gratis a cualquier PC del Mundo.
Llamadas a fijos y móviles desde 1 céntimo por minuto.
http://es.voice.yahoo.com
Jorge Gutiérrez Faúndez
Villahermosa, Tabasco, México
LLama Gratis a cualquier PC del Mundo.
Llamadas a fijos y móviles desde 1 céntimo por minuto.
http://es.voice.yahoo.com
Jorge Gutiérrez Faúndez
Villahermosa, Tabasco, México
LLama Gratis a cualquier PC del Mundo.
Llamadas a fijos y móviles desde 1 céntimo por minuto.
http://es.voice.yahoo.com
Sin conexión 
Enviar correo