2.询问对话框 语法 Ask(提示信息,确定文本取消文本 【例9-7】下面的例子用生成一个简单询问对话框。 Dim more as logical MapInfo more=Ask( " Do you want to o Doyuroit ante continue? ",OK ," Stop 运行结果如图9-8所示。 OK
2. 询问对话框 语法： Ask (提示信息,确定文本,取消文本) 【例9-7】下面的例子用生成一个简单询问对话框。 Dim more As Logical more = Ask("Do you want to continue?", "OK", "Stop") 运行结果如图9-8所示。 图9-8 询问对话框
3选择文件对话框 语法: FileopenDlg(路径文件名,文件类型标题) 【例9-8】下面的程序用 Fileopendlgo函数 显示提示用户打开一个文件的对话框。 Dim s filename As String s filename= FileOpenDIg(", TAB", "Open Table") 运行结果如图9-9所示
3. 选择文件对话框 语法： FileOpenDlg(路径,文件名,文件类型,标题) 【例9-8】下面的程序用FileOpenDlg()函数 显示提示用户打开一个文件的对话框。 Dim s_filename As String s_filename= FileOpenDlg("","","TAB","Open Table") 运行结果如图9-9所示
Open table ? 搜寻(): 我的文档 回团圈国 口Adbe Tables DMy Pictures Directory□控制测量资料 户王1236 Remote Tables Directory 文件名①): 打开 Import F1s文件类型(r): Table(*tab) 取消 Directory Workspaces irectory 图99选择文件对话框
图9-9 选择文件对话框
9.3.2自定义对话框制作 【例9-9】下面是生成一个自定义对话框的代码: Dialog title"按省份名" Control Statictext title"请输省份名 Control edittext Control okbutton Title"确定 Control cancelbutton Title"取消
9.3.2 自定义对话框制作 【例9-9】下面是生成一个自定义对话框的代码： Dialog title "按省份名" Control Statictext title "请输省份名:" Control Edittext Control Okbutton Title "确定" Control Cancelbutton Title "取消
按省价名 请输省份名:□ 确 取消 图9-10自定义对话框 按省价名 请输省份名厂 确定 取消 图9-11指定位置和大小
图9-10 自定义对话框 图9-11 指定位置和大小