Visual Basic - Anular / Quitar

Life is soft - evento anual de software empresarial
   
Vista:

Anular / Quitar

Publicado por Domingo (13 intervenciones) el 26/10/2010 03:00:02
Hola ...!!! Asi son los codigos como yo puse en mi trabajo .... aguardo sua respuesta gracias...Email : barriosdf@hotmail.com

Asi dice el TEXT como hacer el trabajo

Al seleccionar un Procesador y un sistema operativo devera aparecer en el TEXT una leyenda con "UD. Tiene un procesador pentium con el sistema operativo windows 98" Por ejemplo:
El botón cmdnuevo devera vaciar el TEXT y quitar la seleccion de las OPTIÓN ( No se podra cambiar la selección entre los OPTIÓN) El BOTÓN de cmdcerrar finalizara la ejecución del formulario.

Private Sub cmdnuevo_Click()
Opt486.Enabled = True
optpentium.Enabled = True
optpentiumpro.Enabled = True
End Sub

Private Sub Opt486_Click()
Text1.Text = "ud. tiene un procesador 486"
Opt486.Enabled = True
optpentium.Enabled = False
optpentiumpro.Enabled = False
End Sub

Private Sub optpentium_Click()
Text1.Text = "ud. tene un procesador pentium"
Opt486.Enabled = False
optpentium.Enabled = True
optpentiumpro.Enabled = False
End Sub

Private Sub optpentiumpro_Click()
Text1.Text = "ud. tiene un procesador pentium pro"
Opt486.Enabled = False
optpentium.Enabled = False
optpentiumpro.Enabled = True
End Sub

Private Sub optwindows95_Click()
Text1.Text = "ud. tiene un sistema operativo windows 95"
End Sub

Private Sub optwindows98_Click()
Text1.Text = "ud.tiene un sistema operativa windows 98"
End Sub

Private Sub optwindowsme_Click()
Text1.Text = "ud. tiene un sistema operativo windows me"
End Sub

Private Sub optwindowsnt_Click()
Text1.Text = "ud. tiene un sistema operativo windows nt"
End Sub
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:Anular / Quitar

Publicado por XHkrElite (518 intervenciones) el 26/10/2010 07:12:07
esto entendi

Private Sub cmdnuevo_Click()
Rem vaciamos el text
Text1.Text = ""
Rem quitamos el foco de las options
Option1.Value = 0
Option3.Value = 0
Option2.Value = 0
Rem las activanos
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
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

RE:Anular / Quitar

Publicado por Domingo (13 intervenciones) el 29/10/2010 03:43:43
Hola XHkrElite gracias por responder me sirvio una parte , pero me falta la parte que cuando yo ago clik en un OptionButton que quede otro OptionButton tildado también ... Ejemplo: los dos OptionButton queden tildados....Gracias aguardo sua respuesta..... Email : barriosdf@hotmail.com
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