Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: DeSsy en 11 Febrero 2011, 16:10 pm



Título: [Ayuda] ComboBox en VB6 [Solucionado]
Publicado por: DeSsy en 11 Febrero 2011, 16:10 pm
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!


Título: Re: [Ayuda] ComboBox en VB6
Publicado por: Edu en 11 Febrero 2011, 16:32 pm
Mirate esto y luego lo haces a tu gusto.

Código
  1.  
  2. Private Sub Command1_Click()
  3. MsgBox Combo1.Text
  4. End Sub
  5.  
  6. Private Sub Form_Load()
  7.  
  8. Combo1.AddItem "Nod32"
  9. Combo1.AddItem "AVG"
  10. Combo1.AddItem "Avast"
  11. Combo1.Text = "Avast"
  12. End Sub
  13.  

El combo1 le cambias la propiedad Style a 2-


Título: Re: [Ayuda] ComboBox en VB6
Publicado por: 79137913 en 11 Febrero 2011, 16:34 pm
HOLA!!!

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

Código
  1. For x = 0 to Ubound(Programas)
  2.    Combo1.Additem Programas(x)
  3. Next

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

GRACIAS POR LEER!!!


Título: Re: [Ayuda] ComboBox en VB6
Publicado por: DeSsy en 11 Febrero 2011, 16:39 pm
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


Título: Re: [Ayuda] ComboBox en VB6 [Solucionado]
Publicado por: Psyke1 en 11 Febrero 2011, 17:06 pm
Código
  1. '...
  2. Dim strSerial As String
  3. Select Case text1.Text
  4.    Case "CS 1.6"
  5.        strSerial = "345J -356Ñ - 4444 - WER6"
  6.    Case "FrogCheat"
  7.        strSerial = "Google existe..."
  8. End Select
  9. MsgBox strSerial
  10. '...

DoEvents! :P


Título: Re: [Ayuda] ComboBox en VB6 [Solucionado]
Publicado por: DeSsy en 11 Febrero 2011, 17:18 pm
Gracias Mr. Frog

Citar
        strSerial = "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..


Título: Re: [Ayuda] ComboBox en VB6 [Solucionado]
Publicado por: Psyke1 en 11 Febrero 2011, 17:37 pm
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


Título: Re: [Ayuda] ComboBox en VB6 [Solucionado]
Publicado por: DeSsy en 11 Febrero 2011, 17:49 pm
Pues eso... perdona por mi ignorancia.

saludos