Question

vb picturebox中画圆

PictureBox 控件中心绘制一个直径为 40 像素的红色圆。如下：
Dim x As Integer
Dim y As Integer
Picture1.ScaleMode = vbPixels '这话什么意思啊？
x = Picture1.ScaleWidth / 2
y = Picture1.ScaleHeight / 2
Picture1.Circle (x, y), 20, vbRed

然后如果要画成是实心的红色圆，应该加上什么代码啊?请教下~~
还有如果想让这个圆自动放大，缩小又要写什么啊？在timer1.timer()中要怎么写呢、?

Answer 1

Picture1.ScaleMode 指的是picture的坐标度量尺寸，vbPixels 指的是以1像素为1单位度量，在vb中，1像素=3默认单位
画红这样画
Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
Picture1.ScaleMode = vbPixels '这话什么意思啊？
x = Picture1.ScaleWidth / 2
y = Picture1.ScaleHeight / 2
Picture1.FillStyle = solid
Picture1.FillColor = vbRed
Picture1.Circle (x, y), 20, vbRed
End Sub

Answer 2

设FillColor=vbRed
设fillstyle=0
就行了。

Answer 3

FillColor设成vbRed就行了