我的vb程序中窗体过多，但功能差不多，怎样实现代码共享，听说用controls可以实现，但具体怎么办？？？

Question

controls 是vb的一个新的功能，怎么用阿？

Answer 1

可以在模块里面定义函数，controls是集合对象，具体baidu....

Answer 2

把相同的封装成函数，放到模块里，
如果可以的话，可以封装成DLL。
用的时候引进来用就是了。

Answer 3

dim frmYouWant as form1
dim clsForm as collection 
dim intindex as long
for intindex=1 to formcount
set clsForm=clsForm.add,,"F" & intindex,"formcaption"
.....
next intindex
clsForm.show

Answer 4

类似的窗体做成通用的，使用New来调用，不通用的就没有办法了
使如 dim theForm1 as new Form1

Answer 5

自己看vb的help阿，那里面不是有例子么！
最好搞个类模块阿！

Answer 6

看我的:For Each ob In frm_guide.Controls
    If TypeOf ob Is TextBox Then        
        If ob.Text = "" And ob.name <> "txt_acc" Then
          MsgBox ob.ToolTipText & "不能为空", vbInformation, "信息"
          ValidCheck = False
          Exit Function
         End If
     End If     if ....
     end 
      
     if ....
     end  Next ob

Answer 7

VB没有继承，可以将相同的界面封装成 UserControl ，这样作最大程度可以提高程序重用性，其实多个窗口并不会降低速度，关键是增加了代码维护的难度

Answer 8

:我说一个在做数据库管理软件的例子，若N表的结构一样，制作一个FORM窗体就行，在BAS中定义一个全局变量，用来切换N个表的表名信息，再调整一下，窗体上的标题，参数即可。问题不大，我们对初始化的表【做过15个表】用一个窗体，进行编辑的管理（包括：增加、修改、删除）。