Hola amigo pkj ...!!! Gracias por responder hice todo como me pediste y sirvio una parte , pero sigo con problema , como ago para que en el textbox tambien aparesca las opciones Ejemplo:
Prosesador 486 con un sistema operativo windows95
Prosesador 486 con un sistema operativo windows98
Prosesador 486 con un sistema operativo windowsme
Prosesador 486 con un sistema operativo windowsnt
Prosesador Pentium con un sistema operativo windows95
Prosesador Pentium con un sistema operativo windows98
Prosesador Pentium con un sistema operativo windowsme
Prosesador Pentium con un sistema operativo windowsnt
Prosesador PentiumPro con un sistema operativo windows95
Prosesador PentiumPro con un sistema operativo windows98
Prosesador PentiumPro con un sistema operativo windowsme
Prosesador PentiumPro con un sistema operativo windowsnt
Desde ya Muchas gracias...
Private Sub Form_Load()
sistema="sistema no definido"
PC="equipo no definido"
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
sistema="sistema no definido"
PC="equipo no definido"
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()
PC= "Procesador 486"
opt486.Enabled = True
optpentium.Enabled = False
optpentiumpro.Enabled = False
Text1.Text= "Tiene usted un " & PC & " con el " & sistema
End
Sub Private Sub optpentium_Click()
PC= "Procesador Pentium"
opt486.Enabled = False
optpentium.Enabled = True
optpentiumpro.Enabled = False
Text1.Text= "Tiene usted un " & PC & " con el " & sistema
End
Sub Private Sub optpentiumpro_Click()
PC= "Procesador Pentium Pro"
opt486.Enabled = False
optpentium.Enabled = False
optpentiumpro.Enabled = True
Text1.Text= "Tiene usted un " & PC & " con el " & sistema
End
Sub Private Sub optwindows95_Click()
Sistema = "Sistema Operativo Windows 95"
Text1.Text= "Tiene usted un " & PC & " con el " & sistema
End
Sub Private Sub optwindows98_Click()
Sistema = "Sistema Operativa Windows 98"
Text1.Text= "Tiene usted un " & PC & " con el " & sistema
End
Sub Private Sub optwindowsme_Click()
Sistema = "Sistema Operativo Windows ME"
Text1.Text= "Tiene usted un " & PC & " con el " & sistema
End
Sub Private Sub optwindowsnt_Click()
Sistema = "Sistema Operativo Windows NT"
Text1.Text= "Tiene usted un " & PC & " con el " & sistema
End Sub
Que significa y donde tengo que poner??
Dim Sistema as string
Dim PC as string