创建ActiveX控件问题

[qianxiaoxi]

怎样把自己创建的ActiveX控件固定大小?
怎样定义Align属性?
在拉大和缩小控件时能自动改变ActiveX控件中基本控件之间的距离使他们能完全显示!
哪位高手能帮忙解决!感激不尽!

[LGYAN]

//怎样把自己创建的ActiveX控件固定大小?

Private Sub UserControl_Resize()
UserControl.Width = 240
UserControl.Height = 240
End Sub

[LGYAN]

//怎样定义Align属性?

在设计模块下设置UserControl的Alignable属性为True
Alignable 属性


返回或设置一个数值，此数值决定控件是否能对齐以及是否能使用扩展 Align 属性。在控件创建时，Alignable 属性可读可写，但在运行时，此属性不可用。

设置值

Alignable 的设置值为：

设置值 描述
True 控件能够对齐；容器将 Align 属性添加到扩展对象中。
False （缺省）控件不能对齐。

[LGYAN]

//在拉大和缩小控件时能自动改变ActiveX控件中基本控件之间的距离使他们能完全显示!

缩小的时候必需有一个最小的尺寸，否则神仙也没有办法让有些控件能够显示出来的。

在大于这个最小尺寸之后，使用等比放大即可。

[cso]

Private Sub UserControl_Resize()
UserControl.Width = ?
UserControl.Height = ?
End Sub

[落伍者]

在UserControl_Resize 事件中根据大小调整各控件之间的距离