Text Box (Código Visual Basic)


cajatxtMicrosoft 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

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s