Private Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As LongPrivate Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As LongPrivate Sub Form_Load() Form1.AutoRedraw = TrueRectangle Form1.hdc, 50, 50, 200, 200 Ellipse Form1.hdc, 50, 50, 200, 200 Rectangle Form1.hdc, 50, 250, 300, 300 Ellipse Form1.hdc, 50, 250, 300, 300 End Sub
Form1.AutoRedraw = TrueRectangle Form1.hdc, 50, 50, 200, 200
Ellipse Form1.hdc, 50, 50, 200, 200
Rectangle Form1.hdc, 50, 250, 300, 300
Ellipse Form1.hdc, 50, 250, 300, 300
End Sub
FillMemory
CopyMemory
ZeroMemory
要想控制计算机,去学汇编