Página 1 de 1
Duda Option en VB6.0
Publicado: 11 Feb 2013, 14:40
por ZØøM
pues en un formulario he agregado 3 opciones con matriz, uno es Option(1), otro Option(2) y otro Option(3)
Cuando el form se inicia por defecto se active el Option(1) y cuando hago click en otra option para cambiar se me queda activada la anterior, he probado con este código pero no funciona:
Código: Seleccionar todo
If option(3).Value = True Then
option(1).Value = False
option(2).Value = False
Else
If option(1).Value = True Then
option(3).Value = False
option(2).Value = False
Else
If option(2).Value = True Then
option(1).Value = False
option(3).Value = False
End If
End If
End If
End Sub
Alguien sabe a q se debe ?
Re: Duda Option en VB6.0
Publicado: 11 Feb 2013, 16:05
por Naker90
No te he terminado de entender pero, has probado con el evento GotFocus?
Re: Duda Option en VB6.0
Publicado: 11 Feb 2013, 16:20
por Metal_Kingdom
Si lo has metido dentro de otro control (ej. Frame), sácalo.
De todos modos si ese código lo has metido en el form_load normal que no funcione... sólo hace las comprobaciones al ejecutarse, lo que tienes que hacer es codear dentro de los Option1_Click(i), para que las comprobaciones surtan efecto cuando haces click en cada control.
Re: Duda Option en VB6.0
Publicado: 11 Feb 2013, 16:21
por ZØøM
Naker90 escribió:No te he terminado de entender pero, has probado con el evento GotFocus?
nop no le probé, mira en esta foto se ve lo que pasa
Se ve que presione RC4, pero la XOR sigue marcada, y no consigo que se desmarque :/
Edit , gracias
Metal , si lo meti en un frame, ahora pruebo lo q me dijiste
Re: Duda Option en VB6.0
Publicado: 11 Feb 2013, 23:15
por Pink
Si no creas matriz al darle click a uno el otro automáticamente pierde la selección.
Re: Duda Option en VB6.0
Publicado: 12 Feb 2013, 10:24
por ZØøM
Pink escribió:Si no creas matriz al darle click a uno el otro automáticamente pierde la selección.
Al final quite la matriz, y funciona , quedo tal que asi, xq no perdió la seleccion
Código: Seleccionar todo
Private Sub option1_Click()
option2.Value = False
option3.Value = False
End Sub
Private Sub option2_Click()
option1.Value = False
option3.Value = False
End Sub
Private Sub option3_Click()
option1.Value = False
option2.Value = False
End Sub
