一开始打算用记事本记录代码，但是在文本框输出会乱码，而且显得麻烦了，如果能用COMMAND直接打开form1的代码窗口显得更简单.
但是我只知道工程状态下进入代码编辑区域，运行状态就不懂了。
我想到的代码在这里：
Private Sub Command3_Click()
    If Form2.third(0).Checked = True Then
    Text1.Visible = True
    With CommonDialog1
    .FileName = "31"
        .InitDir = App.Path
        .Filter = "文本文件|*.txt"
        .ShowOpen
    End With
    Open CommonDialog1.FileName For Input As #1
       Dim str As String
    Do While Not EOF(1)
        Input #1, str
        Text1.Text = Text1.Text & vbNewLine & str
    Loop
    Close #1
    End If
End Sub
'third(i)是菜单控件组

[此贴子已经被作者于2017-6-15 17:10编辑过]