
Crea un formulario con tres etiquetas, dos cajas de texto, dos botones, un reloj con intervalo de 1000 y escribe el siguiente código:
El botón Establecer la Alarma y Minimizar
Private Sub Command1_Click()
Form1.WindowState = 1
Timer1.Enabled = True
End Sub
El botón Salir
Private Sub Command2_Click()
Unload Me
End
End Sub
El reloj
Private Sub Timer1_Timer()
Dim horas As String
hora = Format(Time, "hh:mm")
If hora = Text1.Text Then
Beep
MsgBox Text2.Text, vbOKOnly + vbInformation, "Aviso de la Alarma"
Timer1.Enabled = False
Form1.WindowState = 0
End If
End Sub
Hay 34 opiniones. Opina sobre este curso.
| Cursos | Valoración | Alumnos | Vídeo | |
|---|---|---|---|---|
|
Crear un ojo en 3ds Max Con la ayuda de este curso aprenderás a crear un ojo con 3ds Max. e incorporarlo dentro de la cara de una persona. Ya verás como en sólo 15 minutos lo puedes conseguir. É... [19/10/05] |
|
1.188 | ||
|
Curso de Autocad El programa Auto Cad es un programa completo de diseño asistido por computadora con el cual se puede dibujar cualquier objeto, tanto bidimensional como tridimensionalment... [29/06/06] |
|
8.998 | ||
|
Breve teoría de la selección de canales en Photoshop Breve tutorial sobre selecciones de áreas por medio de composición del color en Photoshop. Cuando trabajamos sobre una imagen, lo hacemos siempre sobre una com... [09/03/05] |
|
6.643 | ||
Publicar en
del.icio.us
digg
meneame