VB中使用shape控件畫圖形顯示在窗體上要怎么做？將形狀控件添加到窗體并設置其形狀屬性。形狀1。Shape=0“（默認值）矩形shape1。形狀=1“正方形1。形狀=2“橢圓形1。形狀=3“圓形1。

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