cajatxt


Microsoft Visual Basic 2010 Express
  • Un programa para mostrar un formulario sencillo, siguiendo los siguientes pasos:
  •   Agrega cajas de texto que acepten el nombre, dirección, número de teléfono y dirección de email del usuario.
  •  Agrega un botón Enviar al formulario.
  •  Una vez que el usuario introduce la información en todas las cajas de texto y hace clic en el botón Enviar, muestre el mensaje correspondiente.
 cajas_txtModule.vb

Module cajas_txtModule
Dim x, y, cuadroTextoNombre, cuadroTextoDirección, cuadroTextoFono, cuadroTextoCorreo, botónEnviar, botónCancelar, nombre, dirección, fono, correo As Primitive
Sub Main()
GraphicsWindow.Show()
GraphicsWindow.Width = 340
GraphicsWindow.Height = 250
GraphicsWindow.Top = (Desktop.Height – 450) / 2
GraphicsWindow.left = (Desktop.Width – 600) / 2
GraphicsWindow.Title = “Formulario”
x = 30
y = 37
‘Escriba el nombre
GraphicsWindow.DrawText(x, y, “Nombre:”)
cuadroTextoNombre = Controls.AddTextBox(150, 35)
Controls.SetSize(cuadroTextoNombre, 150, 20)
‘Dirección
GraphicsWindow.DrawText(x, y + 40, “Dirección:”)
cuadroTextoDirección = Controls.AddMultiLineTextBox(150, 70)
Controls.SetSize(cuadroTextoDirección, 150, 40)
‘Detalles de teléfono
GraphicsWindow.DrawText(x, y + 90, “Teléfono:”)
cuadroTextoFono = Controls.AddTextBox(150, 125)
Controls.SetSize(cuadroTextoFono, 150, 20)
‘Correo electrónico
GraphicsWindow.DrawText(x, y + 125, “Correo electrónico:”)
cuadroTextoCorreo = Controls.AddTextBox(150, 160)
Controls.SetSize(cuadroTextoCorreo, 150, 20)
‘Enviar
botónEnviar = Controls.AddButton(“Enviar”, x + 30, y + 160)
Controls.SetSize(botónEnviar, 90, 30)
‘Cancelar
botónCancelar = Controls.AddButton(“Cancelar”, x + 150, y + 160)
Controls.SetSize(botónCancelar, 70, 30)
AddHandler Controls.ButtonClicked, AddressOf EnviarFormulario
End Sub
Sub EnviarFormulario()
nombre = controls.GetTextBoxText(cuadroTextoNombre)
dirección = controls.GetTextBoxText(cuadroTextoDirección)
fono = controls.GetTextBoxText(cuadroTextoFono)
correo = controls.GetTextBoxText(cuadroTextoCorreo)
If Controls.GetButtonCaption(Controls.LastClickedButton) = CType(“Enviar”, Primitive) Then
If (nombre = CType(“”, Primitive)) or (dirección = CType(“”, Primitive)) or (fono = CType(“”, Primitive)) or (correo = CType(“”, Primitive)) Then
GraphicsWindow.ShowMessage(“Complete todos los cuadros.”, “Mensaje de error”)
Else
GraphicsWindow.ShowMessage(“Sus datos fueron enviados correctamente.”, “¡Enhorabuena!”)
End If
ElseIf Controls.GetButtonCaption(Controls.LastClickedButton) = CType(“Cancelar”, Primitive) Then
Program.End()
End If
End Sub
End Module

Deja un comentario