vb picturebox中画圆
PictureBox控件中心绘制一个直径为40像素的红色圆。如下:DimxAsIntegerDimyAsIntegerPicture1.ScaleMode=vbPixel...
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()中要怎么写呢、? 展开
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()中要怎么写呢、? 展开
展开全部
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
画红这样画
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
设FillColor=vbRed
设fillstyle=0
就行了。
设fillstyle=0
就行了。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
FillColor设成vbRed就行了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询