现在正在写个简单的记事本程序。。。是书上的例子。。。下面红色程序部分是为了实现在菜单栏里显示出四个最近打开的文档路径，包括文件名。。但是当我打开一个文档的时候，文本文件已经读入文本框。。但是我设置的原本visible为flase的子菜单里的菜单项（为了显示路径而设）却加载不进来。。。不知道为什么。。。。请各位看一下。。。问题到底在什么地方？我把工程文件也放上来吧。。。我只对那个打开进行编程了。。。
Dim Imenucount%, i%
Private Sub fileexit_Click()
End
End Sub
Private Sub fileopen_Click()
Dim inputdata As String
On Error GoTo nofile
CommonDialog1.ShowOpen
Text1.Text = ""
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
Text1.Text = Text1.Text & inputdata & vbCrLf
Loop
Close #1
Imenucount = Imenucount + 1
If Imenucount < 5 Then
bar3.Visible = True
Load runmenu(Imenucount)
runmenu(Imenucount).Caption = CommonDialog1.FileName
runmenu(Imenucount).Visible = True
Else
i = Imenucount Mod 4
If i = 0 Then i = 4
runmenu(i).Caption = CommonDialog1.FileName
End If
Exit Sub
nofile:
If Err.Number = 32755 Then Exit Sub
End Sub
JfLLaOAe.rar
