如果你是指自定义控件的话,可用Usercontrol.Left,Usercontrol.Top
解决方案 »
- 如何做VB计时器
- VB里面通过ADO连接Oracle数据库,执行查询语句,就是查不出结果,但是一模一样的SQL语句拿到PL/SQL Developer中却能查出结果,真是搞不明
- 看帮忙看看对象NEW实例化影响集合类add的问题
- Run-time error"35761" Request timed out的问题!
- 如何在VB里截获正在运行的程序向网络发送的数据?
- 程序员的一天。
- 高分请教:关于报表显示问题
- 很奇怪的问题数据丢失,在线等,急急!
- 件可否自动调整大小的问题,如何将一些不支持height、left控件跳过?为什么On Error Resume Next不管用?
- 有个小问题:如何可以在treeview和listvuew之间加个分隔条,可以自由拉动?
- 网上的图片,直接自动存到本地硬盘。
- 关于报表问题,怎么才能在报表中打印程序中的变量?
在Usercontrol中的代码里,Usercontrol.left和Usercontrol.Top的调用是非法的
Operand1 = Text1.Text
End Property
Public Property Let Operand1(ByVal vNewValue As Variant)
Text1.Text = vNewValue
PropertyChanged "Operand1"
End Property
Public Property Get Operand2() As Variant
Operand2 = Text2.Text
End Property
Public Property Let Operand2(ByVal vNewValue As Variant)
Text2.Text = vNewValue
PropertyChanged "Operand2"
End Property
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "Operand1", Text1.Text
PropBag.WriteProperty "Operand2", Text2.Text
End Sub
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Text1.Text = PropBag.ReadProperty("Operand1", 0)
Text2.Text = PropBag.ReadProperty("Operand2", 0)
这是我自己做的控件里的代码,我在窗体上有text1,和text2
这些代码是为了分别得到他们text属性,你完成代码编译后,把自创控件加载到工程里就能看到operand1,operand2属性了,这就是text属性了
你只要摹仿创建就行了
创建一个永久属性这四个部分必不可少