Question

用VB画出同心圆

Answer 1

Option Explicit

Private Sub Form_Load()
PaintOnForm Me
End Sub

Public Function PaintOnForm(f As Form)
Dim i As Integer, b As Boolean
i = f.ScaleMode
b = f.AutoRedraw
f.ScaleMode = 3
f.AutoRedraw = True
f.Circle (100, 100), 50
f.Circle (100, 100), 80
f.AutoRedraw = b
f.ScaleMode = i
f.Refresh
End Function

Public Function PaintOnPic(p As PictureBox)
Dim i As Integer, b As Boolean
i = p.ScaleMode
b = p.AutoRedraw
p.ScaleMode = 3
p.AutoRedraw = True
p.Circle (100, 100), 50
p.Circle (100, 100), 80
p.AutoRedraw = b
p.ScaleMode = i
p.Refresh
End Function

'如果在PictureBox上画就用第二个函数