vb的形状控件问题 怎么做不出来啊 我是菜鸟 请教高手
发布网友
发布时间：2022-04-25 12:19
共1个回答
热心网友
时间：2024-10-30 21:14
不知道你的准确意思，是想在一行按固定间距显示图形控件，并依次设置控件的shape的属性为1——5。
如果是：按下法：
在窗口放置一个图形控件，名为shape1，index为0.
Private
Sub
Form_Click()
FontSize
=
12
CurrentX
=
350
Print
"0";
For
i
=
1
To
5
load
shape1(i)
shape1(i).visible=true
Shape1(i).Left
=
Shape1(i
-
1).Left
+
1050
Shape1(i).Shape
=
i
CurrentX
=
CurrentX
+
750
Print
i;
Next
i
End
Sub
