0

我有一个包含许多.frm文件的大型 VB6 应用程序。我想基本上从所有表单中“删除”代码，然后离开 GUI 设计。

快速执行此任务的最佳方法是什么？

4

2 回答 2

2

如果你真的有足够多的表单，你不能只打开每个表单并Ctrl + A，Del，Ctrl + S那么你总是可以编写一个快速的 VB 程序来完成它。Visual Basic 将显示窗体所需的信息放在文件开头，然后是代码。将每个 .frm 文件复制到备份，打开它并将所有内容写入最后一个Attribute ...行到具有原始文件名的新文件。很脏，但应该只需要大约 15-20 分钟的时间来写，并为你留下一个备份，以防出错。

.frm 内容示例

VERSION 5.00
Begin VB.Form Form1
    Caption = "Form1"
    ClientHeight = 3195
    ClientLeft = 60
    ClientTop = 345
    ClientWidth = 4680
    LinkTopic = "Form1"
    ScaleHeight = 3195
    ScaleWidth = 4680
    StartUpPosition = 3 'Windows Default
    Begin VB.CommandButton Command1
        Caption = "Command1"
        Height = 495
        Left = 1800
        TabIndex = 1
        Top = 1320
        Width = 1215
    End
    Begin VB.TextBox Text1
        Height = 495
        Left = 360
        TabIndex = 0
        Text = "Text1"
        Top = 240
        Width = 1215
    End
End

Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
    Text1.Text = "Hello World"
End Sub
Private Sub Form_Load()
    Text1.BackColor = vbBlue
End Sub
于 2011-11-21T04:36:57.960 回答
0

猜猜这是一个老问题，但如果您仍然对重构一些 VB6 项目感兴趣，请查看我的 VBFormDesign 过滤器工具，网址为http://zoomicon.com/tranxform/

于 2015-10-15T17:08:14.933 回答