Anónimo
Option button
Hola
Tengo tres frames con 5 option cada, al iniciar no hay ninguno seleccionado (por que quiero que sea así )
Lo que quiero hacer es que si en un frame no hay ningún option seleccionado me aparezca un msgbox, cosa que no consigo
Gracias
Tengo tres frames con 5 option cada, al iniciar no hay ninguno seleccionado (por que quiero que sea así )
Lo que quiero hacer es que si en un frame no hay ningún option seleccionado me aparezca un msgbox, cosa que no consigo
Gracias
1 Respuesta
Respuesta de mrtool
1
La más simple un poco 'bravas'
Sub CompruebaFrame1()
dim Dummy as integer ' Solo por tener el código mer legible
dummy=0 ' inicializamos variable
if option1.value=true then dummy=1
if option2.value=true then dummy=1
if option3.value=true then dummy=1
Asi todos los options que tengas
'Validas
If Dummy=0 Then Msgbox " El mensaje que quieras"
end sub
' La que yo haria:
Para cada frame tendria un array de options y validaria
Sub ValidaFrame1(byref OpFrame )
dim Cont as integer
dim Dummy as integer
for cont=1 to OptFrame.count-1
if OptFrame(cont).value=true then Dummy=1
next cont
if Dummy=0 then msgbox " El que quieras"
end sub
Así puedes llamar a la función desde donde quieras y pasarle el nombre del array de optiones de cada frame. Tampoco te tienes que preocupar de añadir o quitar options ya que no tienes que cambiar el código.
Sub CompruebaFrame1()
dim Dummy as integer ' Solo por tener el código mer legible
dummy=0 ' inicializamos variable
if option1.value=true then dummy=1
if option2.value=true then dummy=1
if option3.value=true then dummy=1
Asi todos los options que tengas
'Validas
If Dummy=0 Then Msgbox " El mensaje que quieras"
end sub
' La que yo haria:
Para cada frame tendria un array de options y validaria
Sub ValidaFrame1(byref OpFrame )
dim Cont as integer
dim Dummy as integer
for cont=1 to OptFrame.count-1
if OptFrame(cont).value=true then Dummy=1
next cont
if Dummy=0 then msgbox " El que quieras"
end sub
Así puedes llamar a la función desde donde quieras y pasarle el nombre del array de optiones de cada frame. Tampoco te tienes que preocupar de añadir o quitar options ya que no tienes que cambiar el código.