Retroceder   Foros del Web > Temas generales de computación > Programación > Visual Basic

Respuesta
 
Herramientas Desplegado
Antiguo 29-may-2006, 03:28   #1 (permalink)
niqel ha deshabilitado el karma
 
Fecha de Ingreso: febrero-2006
Mensajes: 10
ayuda con el obtion button

hola a todos:

el detalle esta asy, estoy haciendo un programita muy sensillo solo que soy nuevo en esto. El programa trata de frutas y las plagas que las atacan, hice una lista de obtion button de arriba hacia abajo cada obtion button tiene el nombre de una fruta ejemplo
manzana
fresa
naranja

cada fruta es un obtion button, al final de la lista hay un command button
y abajo del comand button un label, el comand button se llama (dar nombre de plagas) lo que intento es que si esta seleccionado manzana y le das click al boton me de el nombre de la plaga en el label, me podrian ayudar con ese codigo por favor. espero su respuesta
niqel está desconectado   Responder Citando
Antiguo 29-may-2006, 06:31   #2 (permalink)
Damntry ha deshabilitado el karma
 
Fecha de Ingreso: mayo-2006
Mensajes: 13
weno... creo que mas que preguntar por cada pequeño problema que te encuentres deberias buscar un tutorial o te vas a acabar amargando. Hay muy buenos cursos faciles de seguir en elguille.info

Pero respondiendo a tu pregunta... siendo algo simple no te voy a quebrar mucho la cabeza y te lo voy a poner de la forma mas facil y cutre.

No dices si estas usando VB 6 o VB .NET, ten en cuenta que cuando ponga .text, en vb 6 se escribiria .caption, y .cheked seria .value creo

Escribe este codigo en el evento de pulsar el boton y adaptalo segun los nombres que les hayas puesto a los controles y demas:

if optionButton1.checked=true then
label1.text = "La plaga de la manzana es tal y cual"
elseif optionButton2.checked=true then
label1.text = "La plaga de la fresa es tal y cual"
elseif optionButton3.checked=true then
label1.text = "La plaga de la naranja es tal y cual"
end if

Como ya te dije hay maneras mas "elegantes" pero con eso bastara. Espero haberte ayudado
Damntry está desconectado   Responder Citando
Antiguo 30-may-2006, 01:43   #3 (permalink)
niqel ha deshabilitado el karma
 
Fecha de Ingreso: febrero-2006
Mensajes: 10
la version es visual basic 6.0
niqel está desconectado   Responder Citando
Antiguo 30-may-2006, 01:46   #4 (permalink)
niqel ha deshabilitado el karma
 
Fecha de Ingreso: febrero-2006
Mensajes: 10
la version es visual basic 6.0

if optionButton1.value = true then
label1.text = "La plaga de la manzana es tal y cual"
End if
lo hice de esta forma ya que checked no existia, bueno ese error me marcaba
y el otro error que me marcaba es que no jalaba con un label, pero lo cambie por un texbox y ya funcion. muchas gracias por la ayuda
niqel está desconectado   Responder Citando
Antiguo 30-may-2006, 20:39   #5 (permalink)
Damntry ha deshabilitado el karma
 
Fecha de Ingreso: mayo-2006
Mensajes: 13
En vb6 en lugar de label1.text seria laberl1.caption como ya dije ;)

De nadas, si tienes cualquier duda ya sabes
Damntry está desconectado   Responder Citando
Respuesta

No hay votos aún.


Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder temas
No puedes subir archivos adjuntos
No puedes editar tus mensajes

BB code is Activado
Caritas están Activado
[IMG] está Activado
Código HTML está Desactivado


La Zona horaria es GMT -6. Ahora son las 14:04.


Message Board Statistics

LinkBacks Enabled by vBSEO 3.1.0

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93