# Re: 各位VB的高手们好.....小弟想要在执行阶段建立Shape控制项,不知可否????

Posted by Yeong huann on December 13, 1998 at 03:02:54:

In Reply to: 各位VB的高手们好.....小弟想要在执行阶段建立Shape控制项,不知可否???? posted by VB初学者... on December 09, 1998 at 12:48:36:

: 因程式需要,必须要在执行阶段依使用者之需求建立多个shape控制项,不知是否可以做到??

请在表单中置入 command1及Shape1两个控制项,并将Shape1设为控制项阵列

Dim SHA Integer
Private Sub Command1_Click()

SHA = SHA + 1
Load Shape1(SHA)
'在此写程式码指定新生成控制项的属性
'你可以开一个新表单,利用Textbox设定属性
'再将设定好的值传给新生成的控制项即可
Shape1(SHA).Top = 0
Shape1(SHA).Left = Shape1(SHA).Width * SHA
Shape1(SHA).Visible = True
End Sub

Follow Ups:

- 谢谢....感激不尽.... VB初学者 14:09:53 12/14/98 (0)