對話框（拓展素材）

——用戶界面GIS技術與應用消息對話框標準對話框重新定制菜單欄上各菜單的順序Note“ToDisplayaMessage”Note語句建立一個顯示消息的對話框，對話框有一個“確定”按鈕對話框設計消息對話框詢問對話框選擇文件對話框詢問對話框DeclareSubMainSubMainDimflagAsLogicalflag=Ask("想繼續(xù)嗎?","Ok","Cancel")EndSub

用Ask()函數(shù)可顯示一個帶一條提示信息和兩個按鈕的對話框（Ok和Cancel）。若按Ok按鈕，函數(shù)返回一個真值（True），否則返回假（False）。DeclareSubMainSubMainDimflagAsLogicalflag=Ask(“想繼續(xù)嗎?”,“是”,“否")EndSub可改變按鈕選擇文件對話框

用FileOpenDlg()函數(shù)可顯示一個打開文件對話框

若用戶選擇一個文件，函數(shù)返回被選擇的文件名，若用戶取消對話框，函數(shù)返回一個空串。

FileOpenDlg(path,filename,filetype,prompt）

注意：該函數(shù)只給用戶提供選擇文件名的對話框，打開文件需要另外提供語句。DimS_FilenameAsStringS_Filename=FileOpenDlg("","","TAB","打開表")自定義對話框

使用Dialog語句可創(chuàng)建用戶對話框。使用Control子句添加控件。對控件的尺寸、按鈕位置都可設置。Include"MapBasic.def"DeclareSubMainSubMainDims_searchforAsStringDialogTitle"Search"ControlStaticText創(chuàng)建用戶對話框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靜態(tài)文本控件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窗口，包括標準窗口、地圖窗口、瀏覽窗口、布局窗口、專題圖窗口、信息窗口。