Visual Basic - Tildados 2

Life is soft - evento anual de software empresarial
   
Vista:

Tildados 2

Publicado por Domingo (13 intervenciones) el 29/10/2010 04:00:51
Hola Sr. estoy aciendo un trabajo en Visual Basic 6.0 y para terminar me falta la parte que cuando yo ago clik en OptionButton Procesador Pentium que también se quede tildado OptionButton Sistema Operativo Windows 95 (Los dos OptionButtton queden tildados) ....Gracias aguardo sua respuesta..... Email : barriosdf@hotmail.com
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:Tildados 2

Publicado por Antoni Masana (79 intervenciones) el 29/10/2010 11:27:10
Debes poner dos objetos Frame y dentro de cada un el grupo de OptiomButton

Es decir en el Frame1 pones los OptiomButton del Sistema Operativo y en el Frame2 pones los OptiomButton del tipo de procesador.

Si no deseas que que se vean los Frame debes ponerles BordeStyle=0

Y solucionado.
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

Tildados 2

Publicado por Domingo (13 intervenciones) el 30/10/2010 03:37:07
Hola Antoni gracia por la respuesta pero no entendi , te aclaro solamente tengo 1 FRAME que dentro se encuentra sistema operativo y sin FRAME esta procesador , yo tengo que tildar un procesador y automaticamente se tiene que tildar un sistema operativo osea los 2 OptionButtion quedar tildados...Aguardo repuestas....
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:Tildados 2

Publicado por Antoni Masana (79 intervenciones) el 01/11/2010 12:02:37
Para marcar un OptionButton desde programa

OptionButton2.Value = True

o si los tienes con indice

OptionButton(2).Value = True

Cambia OptionButton por el nombre que le assignes al objeto
Cambia el 2 por la opcion que corresponda.

En este ejemplo se marcara el OptionButton 2 y se desmarcan automáticamente los demas que esten en el mismo grupo.

Los Frame sirven entre otras cosas para hacer grupos de OptionButton en el mismo formulario
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

COCADENAR

Publicado por Domingo (13 intervenciones) el 02/11/2010 02:04:34
Hola Sr. Amigo ...!!! Tengo un trabajo que terminar (Visual Basic 6.0) , me falta que el "TEXT1" aparesca la fase :
(UD. Tiene Un Procesador 486 con el Sistema Operativo Windows 95)
(UD. Tiene Un Procesador 486 con el Sistema Operativo Windows 98)
(UD. Tiene Un Procesador 486 con el Sistema Operativo Windows ME)
(UD. Tiene Un Procesador 486 con el Sistema Operativo Windows NT)

...Seleccionando un Procesador y luego un Sistema Operativo. Aguardo respuesta desde ya Gracias ...

COCADENAR: Significa que podemos a un TEXTO ir acoplandole la información que queremos.

Private Sub cmdcerrar_Click()
End
End Sub
Private Sub cmdnuevo_Click()
Opt486.Enabled = True
optpentium.Enabled = True
optpentiumpro.Enabled = True
optwindows95.Enabled = True
optwindows98.Enabled = True
optwindowsme.Enabled = True
optwindowsnt.Enabled = True
text1.Text = ""
Opt486.Value = 0
optpentium.Value = 0
optpentiumpro.Value = 0
optwindows95.Value = 0
optwindows98.Value = 0
optwindowsme.Value = 0
optwindowsnt.Value = 0
End Sub
Private Sub Opt486_Click()
text1.Text = "Procesador 486"
Opt486.Enabled = True
optpentium.Enabled = False
optpentiumpro.Enabled = False

End Sub
Private Sub optpentium_Click()
text1.Text = "Procesador Pentium"
Opt486.Enabled = False
optpentium.Enabled = True
optpentiumpro.Enabled = False

End Sub
Private Sub optpentiumpro_Click()
text1.Text = "Procesador Pentium Pro"
Opt486.Enabled = False
optpentium.Enabled = False
optpentiumpro.Enabled = True

End Sub
Private Sub optwindows95_Click()
text1.Text = "Sistema Operativo Windows 95"
End Sub
Private Sub optwindows98_Click()
text1.Text = "Sistema Operativa Windows 98"
End Sub
Private Sub optwindowsme_Click()
text1.Text = "Sistema Operativo Windows ME"
End Sub
Private Sub optwindowsnt_Click()
text1.Text = "Sistema Operativo Windows NT"
End Sub
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