创建用户界面 1.3对话框( Dialog) 1、标准对话框 Do you want to continue? (1)询问对话框:Ask( prompt,ok Dim more As Logical Stop more= Ask("Do you want to continue?",OK,"Stop (2)显示信息对话框: Note message Mapin This is sub1! Note Total of records processed: Strs( (3)状态条: Progress Bar ProgressBar " Writing data."Calling (4)FileOpen DIg( path, filename Dim s filename As string filename=File Open DIg(", "" "TAE 5) File SaveAsDg( path, filename, 取消二一、创建用户界面 1.3 对话框（Dialog） 1、标准对话框： （1）询问对话框：Ask ( prompt , ok_text , cancel_text ) Dim more As Logical more = Ask("Do you want to continue?", "OK", "Stop") （2）显示信息对话框：Note message Note "Total # of records processed: " + Str$( i_count ) （3）状态条：ProgressBar ProgressBar "Writing data..." Calling write_out Range 600000 （4）FileOpenDlg( path , filename , filetype , prompt ) Dim s_filename As String s_filename = FileOpenDlg("","","TAB","Open Table") （5）FileSaveAsDlg ( path , filename, filetype, prompt )