菜单和控件 Const HelpCnt=&HB ErrHandler 1 Private Sub Command 1_Click(Index As Case 2 Integer Cd1. CancelError True Select case index On error goto errhandler2 Case Cdl. Flags= cdIOFNHidereadOnl Cd1. CancelError= True Cdl Filter=All Files (. )* * Text On Error goto errhandler 1 files& Cd1. Flags=cdIOFNHideReadOnl ( txt)*. txt Batch Files Cd1 Filter="All Files(**)**/Text Files"(*. bat)l*.bat C. txt). txt Batch Files(*. bat)*. bat Cdl. filterlndex Cd1. filterlndex=2 Cdl. ShowOpen Cdl. ShowOpen Isg Box Cd1. FileName MsgBox Cd1. FileName Text1.Text=Cd1. FileName Text1. Text= Cd1. FileName ErrHandler2菜单和控件 Const HelpCNT = &HB Private Sub Command1_Click(Index As Integer) Select Case Index Case 1 Cd1.CancelError = True On Error GoTo ErrHandler1 Cd1.Flags = cdlOFNHideReadOnly Cd1.Filter = "All Files (*.*)|*.*|Text Files" "(*.txt)|*.txt|Batch Files (*.bat)|*.bat" Cd1.FilterIndex = 2 Cd1.ShowOpen MsgBox Cd1.FileName Text1.Text = Cd1.FileName ErrHandler1: Case 2 Cd1.CancelError = True On Error GoTo ErrHandler2 Cd1.Flags = cdlOFNHideReadOnly Cd1.Filter = "All Files (*.*)|*.*|Text Files" & _ "(*.txt)|*.txt|Batch Files (*.bat)|*.bat" Cd1.FilterIndex = 2 Cd1.ShowOpen MsgBox Cd1.FileName Text1.Text = Cd1.FileName ErrHandler2: