Ejemplos de Codigo y Eventos en Visual Basic 6 con Subrutinas
Eventos iniciales y carga de formularios
Command Form load: Combo1.AddItem (matri1)
nom1 = Right(Text1.Text, 3) Private Sub VScroll1_Change()
ape1 = Left(Text3.Text, 3) Label4.Caption = VScroll1.Value
matri5 = nom1 + ape1 If VScroll1.Value = 1 Then
Label6.Caption = matri5 Label2.Caption = 1 * 800
Manejo de condiciones y formularios
Private Sub Command1_Click()Día = InputBox("Para continuar escribe el día de la semana", "Día", "Lunes")
If Día = "Lunes" Then
lunes.Show Private Sub Form_Load()
Unload Me If semestre = "primero" Then
End If Combo1.Enabled = True
Contadores y asignacion de variables
Private Sub Command1_Click()cont = cont + 1 Private Sub Form_Load()
Label5.Caption = cont If Combo1.Text = cue1 Then
If cont = 1 Then Label1.Caption = Right(con1, 3)
alumno1 = Text1.Text Else
apellido1 = Text2.Text Private Sub Command1_Click()
matricula1 = alumno1 + apellido1 cuenta = cuenta + 1,2,3
semestre = Combo1.Text If cuenta = 1 Then
Label6.Caption = matricula1 usu1 = Text3.Text
Else cont1 = Text4.Text
Private Sub Text2_Click() Else
cont = 0
For cont = 0 To 2
pregunta = InputBox("pon tu matricul", "MATRICULA", "XXXXXXX")
If Text1.Text = alumno1 And pregunta = matricula1, 2, 3.... Then
Form3.Show
Unload Me
Exit For
Else
Validacion de contraseñas con bucles
Private Sub Command3_Click()intentos = 1
Do Until intentos = 3
cuenta = InputBox("Ingresa tu contraseña", "Contraseña", "")
If Combo1.Text = usu1 And cuenta = cont1 Then
bandeja.Show
Unload Me
bandeja.Label3.BackColor = vbRed
bandeja.Label1.BackColor = vbBlue
Exit Do
Else
intentos = intentos + 1
End If
If Combo1.Text = usu2 And cuenta = cont2 Then
bandeja.Show
Unload Me
Control de accesos mediante Do Until y Do While
Private Sub Command1_Click()cont = 0
Do Until contra = "bienvenido" Or contra = "Bienvenido" Or contra = "BIENVENIDO"
contra = InputBox("BIENVENIDO", "Inserta tu contraseña", "xxxxxxxxxx")
cont = cont + 1
If cont > 3 Then
End
End If
Loop
Form2.Show
Unload Me
Private Sub Command2_Click()cont = 0
Do While contra <> "bienvenido" Or contra = "Bienvenido" Or contra = "BIENVENIDO"
contra = InputBox("BIENVENIDO", "Inserta tu contraseña", "xxxxxxxxxx")
cont = cont + 1
If cont > 3 Then
End
End If
Loop
Form2.Show
Unload Me
Private Sub Command3_Click()cont = 0
For cont = 1 To 3
contra = InputBox("bienvenido", "Inserta tu contraseña", "xxxxxxxxxx")
If contra = "bienvenido" Then
Form2.Show
Unload Me
Exit For
End If
Next cont
If cont > 3 Then
End
End If
Funciones de tiempo y mensajes emergentes
Private Sub Command1_Click()cont = 0
Do Until contra = "hola" Or contra = "Hola" Or contra = "HOLA"
contra = InputBox("Bienvenid@ cuentame tus secretos", "Inserta tu contraseña", "contraseña")
cont = cont + 1
If cont > 5 Then
End
End If
Loop
Form2.Label7.Caption = Day(6)
Form2.Label8.Caption = Month(march)
Form2.Label9.Caption = Year(2018)
Form2.Label10.Caption = Time.Now(10)
Form2.Show
Unload Me
Private Sub Command1_Click()
problema = MsgBox("¿Tienes algun problema de salud?", vbYesNo, "Responde")
si=6 no=7
Notas importantes sobre la sintaxis
Primero se pone la variable=lo que contiene, primero se llaman/cargan los forms