窗体上有一个名称为CD1的通用对话框,通过菜单编辑器建立如图1所示的菜单。程序运行时,如果单击“打开”菜单项,则执行打开文件的操作,当选定了文件(例如:G:WBk2010 9\in.txt)并打开后,该文件的文件名会被添加到菜单中,如图2所示,各菜单项的

admin2010-11-02  30

问题 窗体上有一个名称为CD1的通用对话框,通过菜单编辑器建立如图1所示的菜单。程序运行时,如果单击“打开”菜单项,则执行打开文件的操作,当选定了文件(例如:G:WBk2010  9\in.txt)并打开后,该文件的文件名会被添加到菜单中,如图2所示,各菜单项的名称和标题等定义如下表。

以下是单击“打开”菜单项的事件过程,请填空。
Dim mnuCounter As Integer
Pivate Sub mnuopen_Click()
  CD 1 ShowOpen
  If CD1.FileName<>””Then
    Open ________For InputAs#1
    mnuCounter=mnuCounter+1
    Load FName(mnuCounter)
    FName(mnuCounter).Caption=CD 1.FileName
    FName(mnuCotInter)._______:True
    Close#1
  End If
End Sub

选项

答案Cdl.FileName Visible

解析 语句Open Cd1.FileName For Input As≠1的作用是读取文件的内容,而Cd1.FileName属性就是打开文件操作时用户选中的in.txt文件的名字(包含文件的绝对路径),所以第一空填Cd1.FileName。由于菜单FName的visible属性是false,为了要将其显示,第二空须填Visible。
转载请注明原文地址:https://jikaoti.com/ti/j1g0FFFM
0

最新回复(0)