VB OCX控件属性封装
控件属性的暴露方式，VB 的 VB_OCX 其实还蛮有意思的。通过添加Drive属性，把子控件Drive1的驱动器值直接暴露出来，不用写一堆中转代码，简直太省事。
打开 ActiveX 控件的设计窗口，点菜单加个过程，选择类型是属性，命名叫Drive。VB 就会自动帮你生成Get和Let的两个方法模板，挺贴心。
在Get里返回Drive1.Drive，Let里把新的值赋给它就行了。这样属性窗口就能看到Drive啦，用起来和原生控件一样顺滑，封装也更合理。
代码是这样：
Public Property Get Drive() As String
Drive = Drive1.Drive
End Property
Public Property Let Drive(ByVal New_Drive As String)
Drive1.Drive = New_Drive
End Property
对了，Drive的默认值可以设置成c:，让用户第一次打开控件时就能看到一个默认驱动器路径。用来做文件选择器控件方便。
如果你也在做 VB 的 ActiveX 控件封装，或者想让控件更好地和窗体交互，建议试试这种方式，简单高效。
文件大小：376.5KB
评论区