求助＂文件＂菜单中＂打开＂菜单项的代码．有急用．谢谢

Question

标准菜单系统中＂文件＂－＂打开＂是怎样实现其打开功能的？请各位高手给出代码哦．

Answer 1

用CommonDialog控件就可以实现 ：
CommonDialog.Filter = "Access文件(*.mdb)|*.mdb"
（后面的文件类型你可以自己定义，这里打开的是access数据库文件）

Answer 2

这是我的程序里一段自定义加载窗体背景的代码，应该对你有帮助：
Private Sub 自定义_Click()
On Error Resume Next
    Dim strPicTemp As String
    MDIFmain.CommonDialog1 = "加载背景图片"
    MDIFmain.CommonDialog1.Filter = "bmp位图(*.bmp)|*.bmp|ico图标(*.ico)|*.ico|JPEG图片(*.jpg)|*.jpg|GIF图片(*.gif)|*.gif|"
    MDIFmain.CommonDialog1.FileName = ""
    MDIFmain.CommonDialog1.ShowOpen
    strPicTemp = MDIFmain.CommonDialog1.FileName
        If Len(strPicTemp) = 0 Or picPath = strPicTemp Then Exit Sub
        picPath = strPicTemp
        Me.Hide
        Me.Picture = LoadPicture(picPath)
        Me.Show
End Sub

Answer 3

CTRL+T，找microsoft windows commondialog