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

VB中使用shape控件畫(huà)圖形顯示在窗體上要怎么做？

將形狀控件添加到窗體并設(shè)置其形狀屬性。形狀1。Shape=0“（默認(rèn)值）矩形shape1。形狀=1“正方形1。形狀=2“橢圓形1。形狀=3“圓形1。形狀=4“圓角矩形形狀1。Shape=5“圓角正方形

Shape control有六個(gè)Shape屬性值，分別為0~5，分別表示矩形、正方形、橢圓、圓形和四邊形有六種形狀：圓角矩形和圓角正方形。默認(rèn)形狀為矩形，值為0。

通過(guò)設(shè)計(jì)shape控件的什么屬性可以繪制多種形狀的圖形？

不。形狀只能顯示一些點(diǎn)和線。如果你有很強(qiáng)的能力，你可以用點(diǎn)陣法來(lái)畫(huà)你的畫(huà)。也就是說(shuō)，用n個(gè)不同的顏色點(diǎn)來(lái)“組合”成你的圖片

形狀：控制數(shù)組，索引屬性為0到5

然后用隨機(jī)函數(shù)來(lái)生成數(shù)組索引

稍微修改一下下面的代碼就可以達(dá)到你想要的效果了：

dimisinteger

privatesubcommand1_u2;Click（）

dimsindexinteger因?yàn)镮=0到4

形狀1（I）。Visible=false

nexti

random

sindex=int（rnd（）*5）“生成0到4之間的隨機(jī)整數(shù)

shape1（sindex）。Visible=true

random

sindex=int（rnd（）*5）“生成0到4之間的隨機(jī)整數(shù)

shape1（sindex）。Visible=true

random

sindex=int（rnd（）*5）“生成0到4之間的隨機(jī)整數(shù)

shape1（sindex）。Visible=true

random=int（rnd（）*5）“生成0到4之間的隨機(jī)整數(shù)

shape1（sindex）

EndSub

PrivateSubFormuuuo（）Load（）

forI=0到4

shape1（I）。Visible=false

nexti

endsub

“時(shí)間控件是必需的。代碼如下：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