窗体上有一个名称为CD1的通用对话框,通过菜单编辑器建立如图1所示的菜单。程序运行时,如果单击“打
以下是单击“打开”菜单项的事件过程,请填空。
Dim mnuCounter As Integer
Pivate Sub mnuopen_Click()
CD 1 ShowOpen
If CD1.FileName<>””Then
Open ________For InputAs1
mnuCounter=mnuCounter+1
Load FName(mnuCounter)
FName(mnuCounter).Caption=CD 1.FileName
FName(mnuCotInter)._______:True
Close1
End If
End Sub