| Codigo: Para los
controles:
<INPUT TYPE="Button" NAME="cmdTenerNombre" VALUE="Haz clic
aqui para ingresar tu nombre">
<INPUT TYPE="Button" NAME="cmdMostrarNombre" VALUE="Decir
hola!">
<INPUT TYPE="Edit" NAME="txtNombre"
VALUE="VBEspaniol">
Para el Script:
<SCRIPT LANGUAGE="VBScript">
Sub cmdTenerNombre_OnClick()
Dim MiNombre
MiNombre = InputBox("Hola!, ¿Cual es tu nombre?","Obtener nombre")
txtNombre.Value = MiNombre
MsgBox "Hola, " & txtNombre.Value & "! Como andas?", vbOKOnly,
"VBScript por VBESpaniol"
End Sub
Sub cmdMostrarNombre_OnClick()
MsgBox "Hola, " & txtNombre.Value & "! Como andas?", vbOKOnly,
"VBScript por VBESpaniol"
End Sub
</SCRIPT> |