Páginas
viernes, 25 de mayo de 2018
VISUALBASIC: EJERCICIO9
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Shape1.Top = Y
Shape1.Left = X
End If
End Sub
If Button = 1 Then
Shape1.Top = Y
Shape1.Left = X
End If
End Sub
miércoles, 23 de mayo de 2018
VISUALBASIC :EJERCICIO 10
Dim seg, minu, hor As Integer
Private Sub Form_Load()
seg = 0
minu = 0
hor = 0
End Sub
Private Sub Timer1_Timer()
seg = seg + 1
If seg = 60 Then
minu = minu + 1
seg = 0
If minu = 60 Then
hor = hor + 1
minu = 0
If hor = 24 Then
hor = 1
End If
Private Sub Form_Load()
seg = 0
minu = 0
hor = 0
End Sub
Private Sub Timer1_Timer()
seg = seg + 1
If seg = 60 Then
minu = minu + 1
seg = 0
If minu = 60 Then
hor = hor + 1
minu = 0
If hor = 24 Then
hor = 1
End If
martes, 22 de mayo de 2018
ELEMENTOS BLOG
1. RELOJ
2. CONTADOR
VISITAS.
3. CALENDARIO
CON UBICACIÓN.
4. PREDICCION
DEL TIEMPO.
5. ENTRADA DE
VIDEO.
6. ENTRADAS CON
HIPERVÍNCULO.
7. ALBUM:
GOOGLE FOTOS COMPARTIDO.
8. FICKR: VISOR
FOTOS.
9. RSS :
MARCA-HERALDO O SIMILAR.
10. BARRA DE VIDEO.
11. FAVICON.
12. FORMULARIO.
13. PRESENTACIÓN.
14.-MUSICA
15.-OTROS EFECTOS.
viernes, 11 de mayo de 2018
Suscribirse a:
Entradas (Atom)