如何在VB6.0里为按钮控件添加自定义属性？

Posted 2023-04-13

比如添加一个类型为整形的属性，用来接收（存储）它的一种暂时性质

参考技术A 这个到MSDN的VB论坛了请教高手吧.... 参考技术B 只能 借助原有的 控件，做一个自定义的控件了

vb.net 如何引用自定义类库

请问，我在visual studio里面新建了个项目A窗体应用程序，然后新建了个类库B，B里面放了个User.vb的类文件，然后怎么在项目A中使用user？

在项目A里添加引用，在“添加引用”对话框里找到项目B就可以了。也可以先把项目B生成dll文件，然后在项目A中添加对这个dll文件的引用。追问

恩，好了，然后再问下，visual studio怎么让vb.net类中的属性自动生成get和set方法？像java那样？不然有好多属性的话写的太麻烦？

追答

不好意思，Java是怎么样的我不太清楚……

其实我也不太明白你说的自动生成get和set方法是什么意思。

VB.NET里有下面几种写属性的模式：

输入Property然后按两次Tab键，Visual Studio会自动生成一个私有字段和一个公共属性，公共属性的Get和Set访问器都已经填好了，我们只需要给私有字段和公共属性命名。

手动输入Public Property PropertyName As Type然后按回车键，此时Visual Studio会自动生成一个隐含的私有字段，字段名是_PropertyName，并且不显示在代码文件中；这个属性的Get和Set访问器也不会显示在代码文件中；

利用“插入代码段”功能插入只读或只写属性。

追问

就是这个意思，谢谢啊，怎么加你，以后有问题请教啊？

追答

不敢说请教~我也只是业余的，我们互帮互助吧~我的QQ号是243297031，加的时候写上你的百度账户名就好了~

参考技术A 　　1，首先在要定义事件的类中声明事件，然后使用RaiseEvent 激发该事件．
　　Public Class Person
　　Private name As String
　　Public Event walked(ByVal distance As Integer)
　　Public Sub onwalk(ByVal distance As Integer)
　　RaiseEvent walked(distance)
　　End Sub
　　End Class
　　2. 使用WithEvents 声明该类的对象．
　　Friend WithEvents myperson As Person
　　3，编写事件处理代码．
　　Private Sub myperson_walked(ByVal distance As Integer)　－
　　Handles myperson.walked
　　TextBox1.Text = "walked" & distance
　　End Sub
　　4，调用事件．　　Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) 　Handles Button1.Click
　　myperson.onwalk(20)
　　End Sub