Producción de VB del calendario de reloj temático
Esto utiliza imágenes para mostrar la hora.
Agregue una Imagen1, agregue una imagen digital, agregue una Imagen2, agregue una imagen de dos puntos, agregue un Temporizador1, luego copie el código a continuación en el programa y ejecútelo para ver el efecto.
Privado
p>Declarar
Función
GdiTransparentBlt
Lib
"gdi32"
(PorVal
hdc1
Como
Largo,
PorVal
X1
Tanto
Largo,
PorVal
Y1
Tan
Largo,
ByVal
W1
Como
Largo,
ByVal
H1
Tan
Largo,
ByVal
Hdc2
Tan
Largo,
PorVal
X2
Como
Largo,
PorVal
Y2
Como
Largo,
PorVal
W2
Como
Largo,
PorVal
H2
Como
Largo,
PorVal
Color
Como
Largo)
Tanto
Largo
Dim
PicW
Como
Largo,
Foto
Como
Largo
Privado
Sub
Form_Load()
'Configurar la ventana para que se redibuje automáticamente
Me.AutoRedraw
=
True
'Establece las propiedades de Imagen1
Imagen1.AutoRedraw
=
True
Imagen1.AutoSize
=
Verdadero
Imagen1.ScaleMode
=
3
Imagen1.Visible
=
False
'Establecer las propiedades de Imagen2
Picture2.AutoRedraw
=
Verdadero
Imagen2.AutoSize
=
Verdadero
Imagen2.ScaleMode
=
3
Picture2.Visible
=
False
'Establecer el intervalo de tiempo
Timer1.Interval
=
1000
'Calcular el ancho y alto de cada número
PicW
=
Imagen1.ScaleWidth
Imagen
=
Imagen1.ScaleHeight
/
10<
/p>
Fin
Sub
Privado
Sub
Timer1_Timer()
Atenuado
S
Como
cadena,
T
como
cadena,
I
Tan
Largo,
X
Tan
Largo p>
'Borrar el formulario
Me.Cls
'Obtener la hora
T
=
Formato(Hora,
"HH:MM:SS")
'Visualización de bucle
Para
I
=
1
A
Len(T)
S
=
Medio$(T,
I,
1)
Si
S
>
":"
Luego
'Mostrar dos puntos
GdiTransparentBlt
Yo. hDC,
X,
0,
ImagenW,
ImagenH,
Imagen2.hDC,
0,
0,
Imagen,
Imagen,
RGB(0,
0,
0)
Else
'Mostrar número
GdiTransparentBlt
Me.hDC ,
p>
X,
0,
ImagenW,
ImagenH,
Imagen1 .hDC,
0,
Val(S)
*
Imagen,
Imagen,
Imagen,
RGB(0,
0,
0)
Fin
Si
X
=
X
PicW
Siguiente
Yo .Refresh
Fin
Sub