Informatica
Private Sub cmdexit_Click()
Dim resp As Integer
resp = MsgBox("desea salir del programa", 32 + 4, "mensaje")
If resp = 6 Then
End If
End
End Sub
Private SubForm_Load()
Me.ScaleMode = 3
Timer1.Interval = 100
Timer1.Enabled = True
direccion = 10
End Sub
Private Sub Timer1_Timer()
If Label1.Left + Label1.Width > Form2.ScaleWidth Then
direccion = -10End If
Label1.Left = Label1.Left + direccion
End Sub
Private Sub cmdcritico_Click()
MsgBox "hola,bienvenido" & vbCrLf & "Bienvenido a mi proyecto de Visual Basic 6", 16, "mensaje"End Sub
Private Sub cmdexclamacion_Click()
MsgBox "hola,bienvenido" & vbCrLf & "Bienvenido a mi proyecto de Visual Basic 6", 48, "mensaje"
End Sub
Private Sub cmdinformacion_Click()MsgBox "hola,bienvenido" & vbCrLf & "Bienvenido a mi proyecto de Visual Basic 6", 64, "mensaje"
End Sub
Private Sub cmdmensaje_Click()
MsgBox "Bienvenido a mi proyecto de Visual Basic 6"End Sub
Private Sub cmdpregunta_Click()
MsgBox "hola,bienvenido" & vbCrLf & "Bienvenido a mi proyecto de Visual Basic 6", 32, "mensaje"
End Sub
Private Sub Cmdsalir_Click()
End
EndSub
Private Sub xinputbox2_Click(Index As Integer)
Dim valor As String
valor = InputBox("ingrese numero:", "ingreso de datos", "1")
MsgBox "Usted ingreso el numero:" & valor
End SubPrivate Sub Cmdcalcularedadypeso_Click()
Dim edad As Integer
Dim estatura As Double
edad = Val(Txtedad.Text)
peso = Val(Txtpeso.Text)
If edad > 20 And peso > 1.65 Then
MsgBox "usted ha sidoseleccionado"
Else
MsgBox "usted no ha sido seleccionado "
End If
End Sub
Private Sub Cmdaleatorio_Click()
Dim i As Integer
For i = 0 To 2
Lblaleatorio(i).Caption = Int(Rnd * 9) + 1
Next
EndSub
Private Sub cmdsalir_Click()
Dim resp As Integer
resp = MsgBox("Desea salir de la aplicacion", 32 + 4, "mensaje")
If 6 Then
End
End If
End Sub
Private Sub Form_Load()
Dim i As...
Regístrate para leer el documento completo.