![[填空题] 窗体上有一个名称为CD1的通用对话框。通过菜单编辑器建立如图1所示的菜单。程序运行时,如果单击“打开”菜单项,则执行打开文件的 *** 作,当选定了文件(例如: G:VB2010-9in.txt),第1张 [填空题] 窗体上有一个名称为CD1的通用对话框。通过菜单编辑器建立如图1所示的菜单。程序运行时,如果单击“打开”菜单项,则执行打开文件的 *** 作,当选定了文件(例如: G:VB2010-9in.txt),第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E7%AA%97%E4%BD%93%E4%B8%8A%E6%9C%89%E4%B8%80%E4%B8%AA%E5%90%8D%E7%A7%B0%E4%B8%BACD1%E7%9A%84%E9%80%9A%E7%94%A8%E5%AF%B9%E8%AF%9D%E6%A1%86%E3%80%82%E9%80%9A%E8%BF%87%E8%8F%9C%E5%8D%95%E7%BC%96%E8%BE%91%E5%99%A8%E5%BB%BA%E7%AB%8B%E5%A6%82%E5%9B%BE1%E6%89%80%E7%A4%BA%E7%9A%84%E8%8F%9C%E5%8D%95%E3%80%82%E7%A8%8B%E5%BA%8F%E8%BF%90%E8%A1%8C%E6%97%B6%EF%BC%8C%E5%A6%82%E6%9E%9C%E5%8D%95%E5%87%BB%E2%80%9C%E6%89%93%E5%BC%80%E2%80%9D%E8%8F%9C%E5%8D%95%E9%A1%B9%EF%BC%8C%E5%88%99%E6%89%A7%E8%A1%8C%E6%89%93%E5%BC%80%E6%96%87%E4%BB%B6%E7%9A%84%E6%93%8D%E4%BD%9C%EF%BC%8C%E5%BD%93%E9%80%89%E5%AE%9A%E4%BA%86%E6%96%87%E4%BB%B6%EF%BC%88%E4%BE%8B%E5%A6%82%EF%BC%9A+G%3AVB2010-9in.txt%EF%BC%89.png)
[填空题] 窗体上有一个名称为CD1的通用对话框。通过菜单编辑器建立如图1所示的菜单。程序运行时,如果单击“打开”菜单项,则执行打开文件的 *** 作,当选定了文件(例如: G:VB2010-9in.txt)并打开后,该文件的文件名会被添加到菜单中,如图2所示。各菜单项的名称和标题等定义如下表。以一下是单击“打开”菜单项的事件过程,请填空。 Dim mnuCounter As Integer Private Sub tnnuOpen_ Click() CDI.Show0pen If CD I .FileName<>""Then Open_【14】_For Input As#1 mnuCounter=mnuCounter+1 Load FName(mnuCounter) FName(mnuCounter).Caption=CD I.FileName FName(mnuCounter)._【15】_=True Close#1 End If End Sub
正确答案:Cd1.FileName
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)