如何在运行状态用form2的command打开form1的代码窗口呢?
一开始打算用记事本记录代码,但是在文本框输出会乱码,而且显得麻烦了,如果能用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编辑过]