Visual Basic - Option Button

Life is soft - evento anual de software empresarial
 
Vista:

Option Button

Publicado por vane (19 intervenciones) el 23/10/2004 17:15:05
Buenas, querias saber si esto es posible de hacer, quiero colocar un conjuto de option button pero la cantidad de option button depende de un numero que el programa debe pedir antes...ejemplo...el programa pide un numero de cargas que llame "n" en la siguiente ventana quiero que aparezca un par de option button por cada carga, "n"...como se haria eso????? gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Option Button

Publicado por miguel (1042 intervenciones) el 23/10/2004 17:48:10
Te paso un ejemplo a tu correo!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Option Button

Publicado por Ruri (583 intervenciones) el 23/10/2004 18:31:13
Crea un botón de opción y poné la propiedad Index a 0. Luego podés adaptar este código para realizar la tarea:

Private Sub Command1_Click()
Dim T As Single, H As Single, n As Single, ub As Single, k As Long
n = Val(InputBox("Indique cuantos botones de opción creará", "Creaciónde botones de opción", "1"))
If n < 1 Then Exit Sub
With opReply
ub = .UBound
With .Item(ub)
H = .Height
T = .Top + H
End With
ub = .UBound + 1
For k = ub To ub + n - 1
Load opReply(k)
With opReply(k)
.Top = T
T = .Top + H
.Caption = "Opción " & k
.Visible = True
End With
Next k
End With
End Sub
En el ejemplo el OptionButon que creé en tiempo de diseño lo llamé opReply (el del índice 0)

Espero que te sirva
Saludos Ruri
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar