窗体如何能整体复制呀？

[myhelp_110]

窗体如何能整体复制呀？
比如两个窗体基本功能都差不多，只要改一点就行。我想复制成另一个窗体，如何做呀？
谢谢了。

[pweixing]

1、首先进入窗体设计，ctrl+a，ctrl+c，然后新建一个frm，ctrl+v，然后进入代码界面，重复。

方法2、退出vb，把frm文件和frx文件都复制一次，取个新名字，然后进vb，先把原来的frm改个名字，然后添加一个已经存在的frm，添加好后再把名字改了

[zuoxingyu]

窗体如何能整体复制呀？
比如两个窗体基本功能都差不多，只要改一点就行。我想复制成另一个窗体，如何做呀？
============================================================================
答: pweixing(幸运米，幸运得米！) 说的完全正确

[byeshuang]

差不多啦

[province_]

Right.

[threenewbee]

如果常用的，建议楼主做成模板，就像VB里About Login Option Splash那样。具体看VB目录里有示范的。

[laidon]

这些天在考虑一个问题,如果一个窗体在运行后如何复制自己呢?注:运行后用户可能会修改窗体上的很多内容,怎么样才能随时复制呢?

[myhelp_110]

方法2、退出vb，把frm文件和frx文件都复制一次，取个新名字，然后进vb，先把原来的frm改个名字，然后添加一个已经存在的frm，添加好后再把名字改了
-------------------------------------------
为什么要先把原来的frm改个名字才行呢？道理何在呀？请教。

[缪军]

因为name属性，一个工程里不允许两个窗体的Name是一样的
你可以先修改那个窗体，然后选择另存为...
（这时新窗体被保存和加载，原先窗体会被排除出工程）
最后选加载已知窗体，把原先的窗体加载近来

[缪军]

建议不要直接使用窗体，最好在模块中使用
这样就可以设计一个窗体，然后重复使用了
这要求工程从Sun Main() 启动
在Sub Main() 中启动主窗体
然后在主窗体中调用模块中的代码加载其它窗体
下面给一段模块代码：
Option Explicit
Private m_frmISB As frmISB

'*******************************************************************
'PURPOSE: 初始化
'SUPPOSE:
'EFFECT:
'INPUTS:
'RETURNS: String(a Empty String Or aSafe Err Message String)
'*******************************************************************
Public Function Init_ISB() As String
On Error GoTo ErrTrap
Init_ISB = ""


Set m_frmISB = New frmISB
With m_frmISB


.Caption = "入库单查询"
Call .StatusBar1.Panels.Add(Key:="BillRcc", Text:="入库单：0条", Style:=sbrText)
.StatusBar1.Panels("BillRcc").Width = 2000
Call .StatusBar1.Panels.Add(Key:="DetailRcc", Text:="明细：0条", Style:=sbrText)
.StatusBar1.Panels("DetailRcc").Width = 2000
Call .StatusBar1.Panels.Add(Key:="Help", Style:=sbrText)
.StatusBar1.Panels("Help").AutoSize = sbrSpring
.dtpEnd = MyApp.LoginTime
.dtpStart = MyApp.LoginTime - 180
End With


Exit Function

ErrTrap:
Init_ISB = MyApp.dfSemCreate("mdISB.Init_ISB", Err.Number, Err.Description)
On Error GoTo 0
End Function


'*******************************************************************
'PURPOSE: 主函数
'SUPPOSE:
'EFFECT:
'INPUTS:
'RETURNS: String(a Empty String Or aSafe Err Message String)
'*******************************************************************
Public Function Main_ISB() As String
On Error GoTo ErrTrap
Main_ISB = ""

'初始化---------------------
Main_ISB = mdISB.Init_ISB()
If Main_ISB <> "" Then
Exit Function
End If


'加载功能窗体---------------
m_frmISB.Show vbModal


'注销-----------------------
Main_ISB = mdISB.Temin_ISB()
If Main_ISB <> "" Then
Exit Function
End If


Exit Function

ErrTrap:
Main_ISB = MyApp.dfSemCreate("mdISB.Main_ISB", Err.Number, Err.Description)
On Error GoTo 0
End Function

'*******************************************************************
'PURPOSE: 注销
'SUPPOSE:
'EFFECT:
'INPUTS:
'RETURNS: String(a Empty String Or aSafe Err Message String)
'*******************************************************************
Public Function Temin_ISB() As String
On Error GoTo ErrTrap
Temin_ISB = ""

Set m_frmISB = Nothing


Exit Function

ErrTrap:
Temin_ISB = MyApp.dfSemCreate("mdISB.Temin_ISB", Err.Number, Err.Description)
On Error GoTo 0
End Function

[缪军]

从上面代码可以看出，我在原先设计的窗体上
修改了Caption,添加了状态条栏目，当然也可以把窗体改得
面目全非

[wangxuejun]

保证可用的方法：

比如想把Form1窗体及相关文件都复制一份

一、在资源管理器中把Form1.*(全部以Form1为文件名的文件可能有几个不要丢，如至少还有一个.frx)都复制一份，将它们的文件名Form1全部改为Form1-1

二、用记事本打开Form1-1.frm，开头是二行内容
VERSION 5.00
Begin VB.Form Form1
将第二行的Form1改Form1-1
再向下，会有几行内容如下
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
这之后就是你在VB代码窗口中看到的全部内容了。
将第一行的Form1改为Form1-1
然后保存文件。
之后启动VB，打开源程序，添加窗体文件，选择这个Form1-1就可以了。