Text Box (Código Visual Basic)

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