problemas con optionbutton

[elbano66]

buenos dias una pregunta como puedo hacer yo si coloco 3 frames y dentro de estos tres frame en cada uno coloco 3 optionbutton como hago para que pueda seleccionar un option button en cada frame, alguine sabra??

[vbx3m]

Puedes crear una matriz de controles... Que cuando selecciones uno de los option los demas pasen a falso...

[elbano66]

ok copio un option pego y creo la matriz?? como lo pongo false

[elbano66]

Iniciado por vbx3m

Puedes crear una matriz de controles... Que cuando selecciones uno de los option los demas pasen a falso...

fijate lo probe como me djistes pero hay un detalle al yo copiar el option y pego dos en el mismo frame que es el primero cuando seleccionao uno lo hace bien pero cuando quiero cambio la opcion el otro queda seleccionado como hago hay???

[vbx3m]

Iniciado por elbano66

fijate lo probe como me djistes pero hay un detalle al yo copiar el option y pego dos en el mismo frame que es el primero cuando seleccionao uno lo hace bien pero cuando quiero cambio la opcion el otro queda seleccionado como hago hay???

Usas un select case index en el evento click del option... Algo como:

Select case Index
case 0
option(n).value=false
option(n).value=false
case 1
option(n).value=false
option(n).value=false
...
...

[elbano66]

eexcelente funciona hay un detalle esos option los estoy colocando para realizar una suma de varias pregunta la cual tienen valor cada una yo lo hice haci:
Dim X As Integer
Dim Resultado As Long
Resultado = 0
For X = 0 To 30
If Option1(X).Index = 1 Then
Resultado = Resultado + Val(Option1(X).Tag)
End If
Next X
Text1.Text = Resultado


es un matriz clao pero al sumar no me toma los valores de cada option y no me lo muestra en text1.text, que pasara ahy??

[vbx3m]

Resultado = Resultado + Val(Option1(X).Tag)


es un matriz clao pero al sumar no me toma los valores de cada option y no me lo muestra en text1.text, que pasara ahy??

Si tienes escirto los valores en la propiedad tag te deberia funcionar... Si ya muestras los valores en el caption de los option pues:

Código:

Resultado = Resultado + Val(Option1(X).Caption)

[elbano66]

NO funciona con ninguna propiedad creo que no funciona los option o nose si alguien sabe por favor me diga le agradeceria