Visual Basic para Aplicaciones - Cocadenar

Life is soft - evento anual de software empresarial
   
Vista:

Cocadenar

Publicado por Domingo (1 intervención) el 31/10/2010 02:52:25
Hola Sres. ...!!! Tengo un trabajo que terminar , me falta que el "TEXT1" aparesca la fase (UD. Tiene Un Procesador 486 con el Sistema Operativo Windows 95) ...Seleccionando un Procesador y luego un Sistema Operativo. Aguardo respuesta claras Gracias mi email: barriosdf@hotmail.com

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

RE:Cocadenar

Publicado por cmgcharli (51 intervenciones) el 12/11/2010 11:06:00
text1.text=""
...
...
...

text1.text=text1.text & "Usted Tiene un procesador "
...
...
...
Text1.text=text1.text & "Pentiun 486"
...
...
...
...
Text1.text=text1.text & " con sistema operativo Windows 95"
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