vb中shape控件怎么用 VB中使用shape控件画图形显示在窗体上要怎么做？
VB中使用shape控件画图形显示在窗体上要怎么做？
将形状控件添加到窗体并设置其形状属性。形状1。Shape=0“（默认值）矩形shape1。形状=1“正方形1。形状=2“椭圆形1。形状=3“圆形1。形状=4“圆角矩形形状1。Shape=5“圆角正方形
Shape control有六个Shape属性值，分别为0~5，分别表示矩形、正方形、椭圆、圆形和四边形有六种形状：圆角矩形和圆角正方形。默认形状为矩形，值为0。
通过设计shape控件的什么属性可以绘制多种形状的图形？
不。形状只能显示一些点和线。如果你有很强的能力，你可以用点阵法来画你的画。也就是说，用n个不同的颜色点来“组合”成你的图片
形状：控制数组，索引属性为0到5
然后用随机函数来生成数组索引
稍微修改一下下面的代码就可以达到你想要的效果了：
dimisinteger
privatesubcommand1_u2;Click（）
dimsindexinteger因为I=0到4
形状1（I）。Visible=false
nexti
random
sindex=int（rnd（）*5）“生成0到4之间的随机整数
shape1（sindex）。Visible=true
random
sindex=int（rnd（）*5）“生成0到4之间的随机整数
shape1（sindex）。Visible=true
random
sindex=int（rnd（）*5）“生成0到4之间的随机整数
shape1（sindex）。Visible=true
random=int（rnd（）*5）“生成0到4之间的随机整数
shape1（sindex）
EndSub
PrivateSubFormuuuo（）Load（）
forI=0到4
shape1（I）。Visible=false
nexti
endsub
“时间控件是必需的。代码如下：private sub formuload（）Shape1.BackStyle=1 Shape1.Shape=3 Timer1.Interval=500 Timer1.Enabled=TrueEnd SubPrivate sub Timer1utimer（）Shape1.BackColor=RGB（Int（255*Rnd）、Int（255*Rnd）、Int（255*Rnd））End sub
vb中shape控件怎么用 椭圆怎么画 vb中shape控件的属性
版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。
