GUIA EXPRESS VISUAL BASIC

GUIA EXPRESS VISUAL BASIC

[pic 1]

[pic 2]

[pic 3]

[pic 4]

[pic 5]

EN TEXTO

Private Sub Commandl_Click()

If Textl.Text = "merezco.abundancia" Then -- Anteponer el "If" antes de cualquier sentencia, se crea una

condición --

acción. --

-- Se lee: If (Si) la condición es:          

Then (Entonces) realiza la siguiente

Me.Hide -- Sirve para cerrar la ventana al abrir la nueva -- Form2.Show  -- Te lleva al siguiente formulario --

Else -- Sino -- Ejecuta una acción diferente. MsgBox "Error, inténtalo nuevamente"

End If -- Se cierra la condición If --

End Sub -- Se cierra el programa. --

Textl.Text = " " -- Limpia la caja de texto al presionar un botón -- Private Sub Command3_Click()

End  -- Cierras el programa en ejecución con un botón --

End Sub

Private Sub Commandl_Click()

Text24.Text = Val(Text8.Text) * Val(Textl6) -- Val(se antepone a cualquier operación matemática)"

Text25.Text = Val(Textl7.Text) + Val(Textl8.Text) + Val(Textl9.Text) + Val(Text20.Text) _ -- Un guión bajo da continuidad --

+ Val(Text2l.Text) + Val(Text22.Text) + Val(Text23.Text) + (Text24.Text)

End Sub

Private Sub Commandl_Click()

Dim nom As String -- Se define el tipo de variable (String, Interger, etc.) -- Dim Respuesta As Integer

nom = "Pepito" -- nom queda como variable fija, siempre será "Pepito" en este caso --

MsgBox ("Hola " & nom) -- MsgBox Muestra ventana con texto y variable, con o sin parétesis muestra lo mismo

--

MsgBox "Hola " & nom

MsgBox "Mira el titulo ", , "Pongo el titulo que quiero" -- MsgBox Muestra contenido de la caja , , titulo

de la caja --

MsgBox "Observa este" & vbCrLf & "texto que ocupa" & _

vbCrLf & "tres lineas", , "Titulo" -- & vbCrLf & es un salto de linea -- MsgBox "Mira el icono de " & vbCrLf & "pregunta", _

vbQuestion, "Icono Interrogacion" -- MsgBox Muestra contenido de la caja , "vbQuestion" es un icono, titulo de la caja --

MsgBox ("Hola " & nom)

MsgBox "Otro icono", vbCritical, "Icono Critico" -- "vbCritical" es un icono --

MsgBox "otro", vbExclamation, "Icono Exclamacion" -- "vbExclamation" es un icono --

MsgBox "otro mas ", vbInformation, "Icono Informacion" -- "vbInformation" es un icono --

Respuesta = MsgBox("Observa que al incluir mas" & _ -- guarda en Respuesta un texto para una acción --

vbCrLf & "de un boton, en el MsgBox" & _

vbCrLf & "pongo parentesis y utilizo" & vbCrLf _

& "Una variable, que recogera" & _

vbCrLf & "el boton que hemos pulsado", vbYesNo + _  -- El "vbYesNo" coloca un botón condicional si y no -- vbQuestion, "Dos botones")

Forml.Print "Dos botones = " & Respuesta -- Imprime respuesta

Respuesta = MsgBox("tres botones", vbYesNoCancel + _ -- El "vbYesNoCancel" coloca un botón condicional si,

no y cancelar--

vbInformation, "Con icono informacion") Forml.Print "tres botones " & Respuesta

Respuesta = MsgBox("tres botones pero" & vbCrLf & _ vbCritical + vbDefaultBotton2, "Icono critico") Forml.Print "Tres botones pero ..." & Respuesta

End Sub

Private Sub Command2_Click()

Dim a As Double, b As Double -- Se define el tipo de variable --

Dim s As Double, salida As String -- Se define el tipo de variable --

b = InputBox("Base del Rectangulo") -- Guadamos valores en las variables -- a = InputBox("Altura del rectangulo")

...