想问一下 如何实现“打开”窗口

Question

小项目  其中一个功能让用户点击菜单 “文件”下的“打开”   弹出一个打开文件的窗体 不知道这个功能如何实现？

Answer 1

　　　　Private Sub mnuFileOpen_Click ()
　　　　　　'CancelError 为 True。
　　　　　　On Error GoTo ErrHandler
　　　　　　'设置过滤器。
　　　　　　CommonDialog1.Filter = "All Files (*.*)|*.*|Text _
　　　　　　Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat"
　　　　　　'指定缺省过滤器。
　　　　　　CommonDialog1.FilterIndex = 2
　　　　　　'显示“打开”对话框。
　　　　　　CommonDialog1.ShowOpen
　　　　　　'调用打开文件的过程。
　　　　　　OpenFile (CommonDialog1.FileName)
　　　　　　Exit Sub　　　　ErrHandler:
　　　　　　'用户按“取消”按钮。
　　　　　　Exit Sub
　　　　End Sub

Answer 2

这破图像也PS啊,我还以为又是CSDN的啥毛病呢……