Duda en visual Basic...

[RaKi0N]

Hola vereis,quiero hacer un tipo de "barrita" donde haya varios nombres,y al seleccionar alguno con el commandbuton

que salga en el text1 lo que yo quiera respecto a ese nombre de la barrita

"Un keygen" seleccionar un programa o un juego y al pulsar el commandbuton que salga en el text1 los serials

que yo le añada...

No sé si me explico...



No sé si lo entendeis..Una lista de juegos en el combox y al pinchar en el nombre de alguno y dé al boton

salga sus serials hay...

E dicho keygen de ejemplo...Aver si sabeis lo que digo

Thx =)

[MatU_MalO]

Hola!, aver, si es como entendi que queres hacer, acabo de hacer una forma, no es super practica pero te va a servir.

Primero creamos el Button, el Combo, y Dos textbox

al primero textbox lo poner como visible = Falso

Y en el codigo del button ponemos

Private Sub Command1_Click()
Text1.Text = Combo1.ListInd ex
If Text1.Text = 0 Then
Text2.Text = "Aqui va el Keygen"
End If
End Sub

entonces, cada vez que vas a agregar un elemento nuevo, debajo de end if, agregar esto:
If Text1.Text = 0 Then
Text2.Text = "Aqui va el Keygen"
End If

Solo que cambias 0 Then, por 1 Then, y luego si agregas otro pones 2 Then y asi sucesivamente y donde dice Aqui va el keygen, lo cambias por el keygen del elemento seleccionado.

EJemplo, suponete que mi programa tiene los keygen del kapersky, el warcraft 3 y el san andreas.
Entonces en el codigo iria:

Private Sub Command1_Click()
Text1.Text = Combo1.ListInd ex
If Text1.Text = 0 Then
Text2.Text = "1234-5678-241235427"
MsgBox ("Aqui tienes el keygen del San Andreas!, disfrutalo ")
End If
If Text1.Text = 1 Then
Text2.Text = "1234-5678-666"
MsgBox ("Toma el keygen del Kapersky!")
End If
If Text1.Text = 2 Then
Text2.Text = "1235-5978-0800"
MsgBox ("Genial, has conseguido el keygen del w3!!")
End If
End Sub

(El msgbox no es necesario solo lo puse para que quede mas copado xD)

Saludos!!

[Rakzo-Fimbres]

Por mi parte tenia la misma idea que matu_malo 
Si te refieres a que ya tienes grabado todos los seriales en tu PC, entonces agregaria puros setenciales if

private sub command1_click
text1.text = ""
if combo1.text = "Nero7" then
text1.text = "1234-5678-9022..."
else if combo1.text = visual studio 6 then
text1.text = "12345..."
else: msgbox "elige un programa"

Lo acabe de hacer rapido en otra pc que no tiene vB6
Espero que se entienda, en fin es como el de matu_talo solamene agrega sentencia if para cada programa y listo

[RaKi0N]

y como añado a la lista combo1 los nombres? :S

[Rakzo-Fimbres]

private sub form_load
combo1.additem "nero 7"
combo1.additem "visual studio 6"
combo1.additem "photoshop CS"
end sub

Te recomiendo que uses en este caso el with end
Por ejemplo

private sub form_load
with combo1
.additem "nero 7"
.additem "photoshop CS"
.additem "bla bla bla"
end with
end sub

espero que se entienda rakion

[RaKi0N]

Gracias halo, eso me sirvió...

ahora tengo que hacer el keygen

seleccionar el nombre del programa y al pulsar el boton que aparezca una lista

de codigos que yo le aya metido...

En C si se,pero VB no lo utilizo apenas...

A ver si me sale xD

[MatU_MalO]

Lo que puso Halofiembrers es lo mismo que puse yo nada mas que envez de poner el index (0,1,2,3...) puso nombres (nero,etc)

Gracias halo, eso me sirvió...

ahora tengo que hacer el keygen

seleccionar el nombre del programa y al pulsar el boton que aparezca una lista

de codigos que yo le aya metido...

En C si se,pero VB no lo utilizo apenas...

A ver si me sale xD

Esto seria lo mismo nada mas que en vez de poner el segundo TextBox, pones un Listbox, y envez de poner

Private Sub Command1_Click()
Text1.Text = Combo1.ListInd ex
If Text1.Text = 0 Then
Text2.Text = "Aqui va el Keygen"
End If
End Sub

pones

Private Sub Command1_Click()
Text1.Text = Combo1.ListInd ex
If Text1.Text = 0 Then
List1.Additem = "Aqui va el Keygen"
List1.Additem = "Aqui va otro keygen para el mismo"
End If
End Sub

[RaKi0N]

Lo que puso Halofiembrers es lo mismo que puse yo nada mas que envez de poner el index (0,1,2,3...) puso nombres (nero,etc)

Esto seria lo mismo nada mas que en vez de poner el segundo TextBox, pones un Listbox, y envez de poner

Private Sub Command1_Click()
Text1.Text = Combo1.ListInd ex
If Text1.Text = 0 Then
Text2.Text = "Aqui va el Keygen"
End If
End Sub

pones

Private Sub Command1_Click()
Text1.Text = Combo1.ListInd ex
If Text1.Text = 0 Then
List1.Additem = "Aqui va el Keygen"
List1.Additem = "Aqui va otro keygen para el mismo"
End If
End Sub

Da un error al compilar en el ADditem... :S

Añadi el combox,el comandbuton y el text1

y nada,me salto ese error

[MatU_MalO]

nono, tenes que añadir un combobox, un command button, un textbox y un listbox, te falto el listbox

[RaKi0N]

nono, tenes que añadir un combobox, un command button, un textbox y un listbox, te falto el listbox

Argument no ocional

me sale algo así...

[MatU_MalO]

Proba esto  :

Para ver este enlace Registrate o Inicia Sesion

http://w16.easy-share.com/1700207341.html

Mira bien las propiedades y el codigo y todo eso

salu2