高手进来救命!!!

[123BMW666]

怎样在程序中创建一个shape控件，用set sh=new shape不行。
还有一个问题：怎么在picture控件上画矩形？

[Fanks]

1.试试控件数组
2.用line方法

[123BMW666]

用line太麻烦了，我要画好多的矩形，还要定位它们的坐标。
就是在一个picture容器中，有没有做过的朋友，给出个建议。
本人会非常感谢!一定送高分100

[WQ771211]

画图最好用gdi32.dll中的API
用控件来堆不是明智的做法

在paint事件中，用Rectangle画矩形

[123BMW666]

能不能给个例子做参考呀!多谢 WQ771211(SyanSea)

[flyingscv]

就用line画，你用控件不用定位坐标？

[WQ771211]

首先申明api函数，再调用就可以了
打开vb的api浏览器，在里面去找

[123BMW666]

坐标是可以定位的，只是不想在窗体上画控件，想直接在程序中创建控件--不知道能不能实现
别的控件好像可以的，只是这个shape好像不能实现。

[SoHo_Andy]

可以动态添加啊
你试试看，我的机子可以

Option Explicit
Private WithEvents btnObj As Shape
Private Sub Form_Load()
Set btnObj = Controls.Add("VB.Shape", "btnObj")
With btnObj
.Visible = True
.Width = 2000
.Top = 1000
.Left = 1000
End With
End Sub

[landongfang]

可以实现假设有Shape1(0)，Shape1(1)
Load Me.Shape1(2)
Me.Shape1(2).Visible = True
Me.Shape1(2).Left = 200
可以添加n个