对话框（拓展素材）

——用户界面GIS技术与应用消息对话框标准对话框重新定制菜单栏上各菜单的顺序Note“ToDisplayaMessage”Note语句建立一个显示消息的对话框，对话框有一个“确定”按钮对话框设计消息对话框询问对话框选择文件对话框询问对话框DeclareSubMainSubMainDimflagAsLogicalflag=Ask("想继续吗?","Ok","Cancel")EndSub

用Ask()函数可显示一个带一条提示信息和两个按钮的对话框（Ok和Cancel）。若按Ok按钮，函数返回一个真值（True），否则返回假（False）。DeclareSubMainSubMainDimflagAsLogicalflag=Ask(“想继续吗?”,“是”,“否")EndSub可改变按钮选择文件对话框

用FileOpenDlg()函数可显示一个打开文件对话框

若用户选择一个文件，函数返回被选择的文件名，若用户取消对话框，函数返回一个空串。

FileOpenDlg(path,filename,filetype,prompt）

注意：该函数只给用户提供选择文件名的对话框，打开文件需要另外提供语句。DimS_FilenameAsStringS_Filename=FileOpenDlg("","","TAB","打开表")自定义对话框

使用Dialog语句可创建用户对话框。使用Control子句添加控件。对控件的尺寸、按钮位置都可设置。Include"MapBasic.def"DeclareSubMainSubMainDims_searchforAsStringDialogTitle"Search"ControlStaticText创建用户对话框Title"EnterStringtoFind:"ControlEditTextIntos_searchforControlOkButtonTitle"OK"ControlCancelButtonTitle"Cancel"IfCommandInfo(CMD_INFO_DLG_OK)Thenprints_searchforEndIfEndSub控件的位置Position语句控件的大小Width（宽）和Height（高）单位采用对话框单位为单位，以对话框的左上角为原点，它的位置是(0，0)。若未指定位置和大小就按默认位置放置控件的位置和大小DialogTitle"按省份名"ControlStaticTextTitle"请输省份名:"ControlEditTextControlOkButtonWidth20Height12Title"确定"Position60,32ControlCancelButtonWidth20Height12Title"取消"Position100,32静态文本控件DialogControlStaticTextTitle"Entermaptitle"Position15,20ControlEditTextControlOkButtonControlCancelButton控件类型输入文本控件ControlStaticTextControlEditText组合框控件DialogControlGroupBoxTitle“LevelofDetail"Position5,30Height40Width70ControlOkButtonControlCancelButtonControlGroupText单选项组合控件DialogControlRadioGroupTitle“&FullDetails;&PartialDetails”Position15,42ControlOkButtonControlCancelButtonControlRadioGroupPicker选取对象类控件DialogControlFontPickerPosition140,42ControlOkButtonControlCancelButtonControlControlSymbolPickerFontPickerSymbolPickerPentPickerBrushPickerListBox列表框控件DialogControlListBoxTitle"1stQuarter;2ndQuarter;3rdQuarter;4thQuarter"Position10,92Height40ControlOkButtonControlCancelButtonControlListBox多重列表框控件DialogControlMultiListBoxTitle“Streets；Highways;Towns;Countries;States"Position10,92Width64Height35ControlOkButtonControlCancelButtonControlMultiListBox下拉列表框控件DialogControlPopupMenuTitle“Town;County;Territory;Region;Entire_state”Position10,15ControlOkButtonControlCancelButtonControlPopupMenu复选框控件DialogControlCheckBoxTitle“Include&Legend”Position115,155ControlOkButtonControlCancelButtonControlCheckBox窗口设计

MapBasic应用程序能够控制所有的MapInfo窗口，包括标准窗口、地图窗口、浏览窗口、布局窗口、专题图窗口、信息窗口。