[Ayuda] ComboBox en VB6 [Solucionado]

Iniciado por DeSsy, 11 Febrero 2011, 16:10 PM

0 Miembros y 1 Visitante están viendo este tema.

DeSsy

Hola de nuevo, esta vez, como dije anteriormente... estoy creando un "keygen", bien, he estado liada un tiempo, y ahora vuelvo...

Lo que me gustaría crear es un "keygen", pero completo, en el que haya varios en uno solo... me explico..
Lo que quiero es que con una aplicación genere los serials que yo introduzca en el código pero que desde un ComboBox se pueda cambiar a buscar los serials de otro software, (así como una lista de los programas en ComboBox), si alguien me facilita algún pequeño código de base se lo agradecería, y perdonen... pero aún estoy aprendiendo vb, jeje.

Un besiico!

Edu

Mirate esto y luego lo haces a tu gusto.

Código (vb6) [Seleccionar]


Private Sub Command1_Click()
MsgBox Combo1.Text
End Sub

Private Sub Form_Load()

Combo1.AddItem "Nod32"
Combo1.AddItem "AVG"
Combo1.AddItem "Avast"
Combo1.Text = "Avast"
End Sub


El combo1 le cambias la propiedad Style a 2-

79137913

HOLA!!!

Ejem... suponiendo que tenes los programas en un Vector (Array) los agregas asi al combo:

Código (vb) [Seleccionar]
For x = 0 to Ubound(Programas)
   Combo1.Additem Programas(x)
Next


Y despues consultas el Combo1.Text para saber que eligio la persona.

GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

DeSsy

#3
Muchisimas gracias chicos, solucionado! :D

Un besiico!

Una última cosa, y ¿como podría añadir un serial distinto a cada programa? osea, cada vez que elija un programa diferente en el Text1 salga el serial que le corresponde... Gracias

Psyke1

Código (vb,7) [Seleccionar]

'...
Dim strSerial As String
Select Case text1.Text
    Case "CS 1.6"
        strSerial = "345J -356Ñ - 4444 - WER6"
    Case "FrogCheat"
        strSerial = "Google existe..."
End Select
MsgBox strSerial
'...


DoEvents! :P

DeSsy

Gracias Mr. Frog

CitarstrSerial = "Google existe..."

Se que existe, pero por lo que tengo entendido este foro está creado para el fin de aprender y ayudar ¿no?, en fin, perdona por mis pocos (nada) conocimientos en vb...

Lo dicho, muchas gracias, un beso..

Psyke1

Lo puse porque este tipo de preguntas te las podrías responder tú misma si leyeras algún tutorial de vb, o simplemente buscando en Google, mira:
http://www.recursosvisualbasic.com.ar/htm/tutoriales/control_list_box.htm
Tu primera pregunta estaba resuelta. ;)

DoEvents! :P

DeSsy

Pues eso... perdona por mi ignorancia.

saludos