如果我有十个菜单，打开十个窗体，每个窗体的属性、界面都大致相同，有什么简便办法来实现，比如说用类，我不太懂，请给例子，在Delphi里

Question

如果我有十个菜单，打开十个窗体，每个窗体的属性、界面都大致相同，有什么简便办法来实现，比如说用类，我不太懂，请给例子，在Delphi里有继承，还能另设私有属性！VB能不能？

Answer 1

lfshf() ：
没有别的办法吗？修改一次窗体就再来十次！
我试了一下，连代码一起拷了过去，那以后窗体里有了过程，岂不是连过程一起拷了！

Answer 2

Dim frm As New Form2
    
    frm.Show

Answer 3

cuizm(射天狼) ：Dim frm As New Form2
    frm.Show
这个我会，但是整体上我不会写，多写几个字吧！我需要十个窗体，不然十个窗体里的不同过程写到那里去，我想做的就是每个窗体上的各种控件和窗体的风格，能被同样的复制，改头一个其他的也就一起变化了，接近于继承。一个MDIForm1窗体，Form2是头一个设置好的窗体，那Form3、Form4...等怎么用Dim form3 As New Form2？？

Answer 4

一样的东西为什么在那么多窗体？　　你内存很多吗？　　你需要你的程序执行的慢一点吗？有很多的办法的
你可以把你第一个窗体做成一个壳子，可以适合很多的不同的界面用。只要在不同的界面下变一下相应的属性就可以了！这个程序又方便，而且还快！编译出来的应用程序也小。编译文件大这已经是VB的缺点了，你现在还要造成这种现象，你和VB有仇吗？你要是高手可以做一些DLL　或资源文件，我做过一个程序是多语言版的，用得就是这个方法！虽然笨点。但方法可用。　　　　　　　　　　　　　　　　　　　　我们编程的要像艺术家一样有丰富的想像力和创造力

Answer 5

窗体不需要多!既然类型相近,可以用Frame控件来当作窗体.由那个菜单触发窗口显示,就相应显示那一个Frame吧!

Answer 6

lfshf() 
可以将一些相同或类似的过程、函数封装到模块里，大大减少代码量，维护起来也方便。举例，如Form1.width=4200、rst来源为aa 如何封装，然后使它被Form2引用，我又可以在Form2的窗体代码里控制rst来源为cc－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
kmzs(.:RNPA:.山水岿濛) 
用一个窗体加变量控制我原来就是这么做的，先识别是那个菜单触发的，给一个变量，然后根据变量在同一个窗体下执行某一段代码。后来有一个朋友是用Delphi的，演示了一下继承和私有属性的用法，很好啊，VB怎么间接实现相同的功能！难道你们都是新建十个窗体，再把很多相同的代码重写十遍！Form1.width＝4200改成Form2.width=4200!
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－99175776(99175776) 
一样的东西为什么在那么多窗体？　　
如我有一个数据库，要操作几十个表，可能操作界面大同小异，难到我把那么多过程都放到一个表里！？你可以把你第一个窗体做成一个壳子，可以适合很多的不同的界面用。只要在不同的界面下变一下相应的属性就可以了！
是用类吧？就是Form1界面上的一堆控件已经设定好了，怎样使Form2也一样，也许Form2要增加几个控件，并且要写不同的rst来源，不同的处理过程，写在哪？？？？？给个例子吧。

Answer 7

飘兄:
　　你要是会用类你还跑这儿来问什么呀！
　　刚上大学时我自己的程序开始用了三十个窗体，把做记录修改的也做成独成的窗体，后我用了上面的办法，自己改动后，现在只用了二十一个窗体！而且还是多国语言版的。置于如果设置字段名和几个表。那得看你到数据的了解了，其实　，还有办法。可以对。INI文件进行操作，每个相同的窗体在重新调用时读。INI 写入信息这样，即使你对数据不懂也可以完成你的工作。
                      我们编程的要像艺术家一样有丰富的想像力和创造力，还要学会动脑子

Answer 8

如我有一个数据库，要操作几十个表，可能操作界面大同小异，难到我把那么多过程都放到一个表里！？
你会VB的函数吗？为什么不做呢! 自己做过程呀!
是用类吧？就是Form1界面上的一堆控件已经设定好了，怎样使Form2也一样，也许Form2要增加几个控件，并且要写不同的rst来源，不同的处理过程，写在哪？？？？？方法 ：  既然是几个相同的，那么就先将几个近似的窗体用一个FORM写，每个界面可以隐藏几个不要的。   这个你总会吧!   先要进行为类! 不要认为多就是麻烦! 不一定的! 有很多巧的办法的，相同的类型的控件最好 的控件数组写这样很方便查询!以下是相近似的窗体数据表。(零时写的，你在完善)                 FORM1    form2     form3       form4
label1            姓名     我爱你     分手吧      (空)
text1            (男\女)   $4500     (空)        (空)
text1            我结婚了   (空)     但我爱你     别急嘛!   (其实这个就是TEXT1的数组，你可以换名字，我做的是通过 的。)
                                                 你不是艺术家。