Visual Basic - Anular

Life is soft - evento anual de software empresarial
   
Vista:

Anular

Publicado por Domingo (13 intervenciones) el 24/10/2010 04:43:36
Hola amigos quiero su ayuda porque no estoy podiendo terminar un trabajo visual basic 6.0 , el problema es : tengo 7 opciones / 3 opciones son procesador y 4 opciones son sistema operativo + 2 boton de comandos (1 nuevo / 1 cerrar) y text , El boton de comando Nuevo devera vaciar el Text y Quitar La Seleccion de las opciones . El boton de comando Cerrar finaliza la ejecución del formulario... Aguardo suas respuestas urgente GRACIAS ...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:Anular

Publicado por XHkrElite (518 intervenciones) el 24/10/2010 06:38:52
Esto entendi Domingo

Inserta 1 option1
copialo hasta que quede (option1(0),option1(1) y asi sucesivamente
Inserta los dos botones(command1,command2)

coloca este texto en declaraciones
----------------------------------------------------------------------------------------------
Poner nombre a los botones
Private Sub Form_Load()
Command1.Caption = "Nuevo"
Command2.Caption = "Cerrar"
End Sub

rem boton de Nuevo
Private Sub Command1_Click()
'Borramos el texto
Text1.Text = ""
'Vaciamos las opciones
Dim i As Integer
For i = Option1.Count - 1 To 0 Step -1
Option1(i).Value = False
Next
End Sub

Rem salir del programa
Private Sub Command2_Click()
Set Form1 = Nothing
End 'Puedes poner Unload Me en vez de End es lo mismo
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

Anular / Quitar

Publicado por Domingo (13 intervenciones) el 24/10/2010 16:07:05
Hola ...!!! Gracias por la respuesta pero no entendi bién ,por esso te pongo los codigos como yo puse en mi trabajo .... Nuevamente aguardo sua respuesta gracias...barriosdf@hotmail.com

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 respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar