이것은 그림으로 시간을 보여주는 것이다.
그림 1 추가, 숫자 그림 추가, 그림 2 추가, 안에 콜론 그림 추가, Timer1 추가, 다음 코드를 프로그램에 복사하여 효과 확인,
Private
Declare
Function
GdiTransparentBlt
Lib
"gdi32"
(ByVal
Hdc1
As
Long,
ByVal
X1
As
Long,
ByVal
Y1
As
Long,
ByVal
W1
As
Long,
ByVal
H1
As
Long,
ByVal
Hdc2
As
Long,
ByVal
X2
As
Long,
ByVal
Y2
As
Long,
ByVal
W2
As
Long,
ByVal
H2
As
Long,
ByVal
Color
As
Long)
As
Long
Dim
PicW
As
Long,
PicH
As
Long
Private
Sub
Form_Load()
창을 자동으로 다시 그리도록 설정
Me.AutoRedraw
=
참
그림 1 의 속성 설정
그림 1. autoredraw
=
참
Picture1.AutoSize
=
참
그림 1. scalemode
=
3
Picture1.Visible