### GUI函数 #### 内容 - GUI函数简介 - GUI功能函数 - 消息对话框的类型控制字 - 消息对话框的图标控制字 - 消息对话框的默认按钮控制字 - 消息对话框的模式控制字 - 消息对话框的其他控制字 - 消息对话框的返回字 #### GUI函数简介 GUI函数目前只能用于本地化执行，如WORD模板中，以及其他本地执行的应用中。GUI函数为TSL语言与用户提供一个运行中的交互提供了可能。如：显示消息对话框，显示文件打开对话框，显示输入对话框等等。 #### GUI功能函数 ##### 内容 - 对话框数据类别函数 - InputQuery - PromptForFileName - MessageBox - InputDialog - BuildOptionComboValue - ShowValue ##### 对话框数据类别函数 ###### 内容 - uiInteger - uiBoolean - uiString - uiDate - uiDouble - uiMarketList - uiIndexList - uiStockList - uiSelfBkList - uiSysBkList - uiRightStyle - uiCycle - uiReportDate - uiBasicIDList - uiUserDefine - uiOneDimArray - uiTwoDimDoubleArray - uiOneDimStringArray - uiTwoDimStringArray - uiOneDimDateArray - uiTwoDimDateArray - uiTable - uiUserData - uiRightDay - uiBasicID - uiYear - uiMonth - uiDay ###### uiInteger 用途：对话框数据类别函数相关函数。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiInteger(); // 结果：0 ``` ###### uiBoolean 用途：对话框数据类别函数相关函数。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiBoolean(); // 结果：1 ``` ###### uiString 用途：对话框数据类别函数相关函数。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiString(); // 结果：2 ``` ###### uiDate 用途：日期时间处理函数。 参数：无。 返回：日期或时间值。 范例 ```tsl return rdo2 uiDate(); // 结果：3 ``` ###### uiDouble 用途：对话框数据类别函数相关函数。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiDouble(); // 结果：4 ``` ###### uiMarketList 用途：对话框数据类别函数相关函数。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiMarketList(); // 结果：5 ``` ###### uiIndexList 用途：对话框数据类别函数相关函数。 参数：无。 返回：整数。 范例 ```tsl return rdo2 uiIndexList(); // 结果：6 ``` ###### uiStockList 用途：对话框数据类别函数相关函数。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiStockList(); // 结果：7 ``` ###### uiSelfBkList 用途：对话框数据类别函数相关函数。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiSelfBkList(); // 结果：8 ``` ###### uiSysBkList 用途：对话框数据类别函数相关函数。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiSysBkList(); // 结果：9 ``` ###### uiRightStyle 用途：进行字符串提取或替换处理。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiRightStyle(); // 结果：11 ``` ###### uiCycle 用途：对话框数据类别函数相关函数。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiCycle(); // 结果：12 ``` ###### uiReportDate 用途：日期时间处理函数。 参数：无。 返回：日期或时间值。 范例 ```tsl return rdo2 uiReportDate(); // 结果：13 ``` ###### uiBasicIDList 用途：对话框数据类别函数相关函数。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiBasicIDList(); // 结果：14 ``` ###### uiUserDefine 用途：对话框数据类别函数相关函数。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiUserDefine(); // 结果：17 ``` ###### uiOneDimArray 用途：对话框数据类别函数相关函数。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiOneDimArray(); // 结果：18 ``` ###### uiTwoDimDoubleArray 用途：对话框数据类别函数相关函数。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiTwoDimDoubleArray(); // 结果：19 ``` ###### uiOneDimStringArray 用途：对话框数据类别函数相关函数。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiOneDimStringArray(); // 结果：20 ``` ###### uiTwoDimStringArray 用途：对话框数据类别函数相关函数。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiTwoDimStringArray(); // 结果：21 ``` ###### uiOneDimDateArray 用途：日期时间处理函数。 参数：无。 返回：日期或时间值。 范例 ```tsl return rdo2 uiOneDimDateArray(); // 结果：22 ``` ###### uiTwoDimDateArray 用途：日期时间处理函数。 参数：无。 返回：日期或时间值。 范例 ```tsl return rdo2 uiTwoDimDateArray(); // 结果：23 ``` ###### uiTable 用途：对话框数据类别函数相关函数。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiTable(); // 结果：24 ``` ###### uiUserData 用途：对话框数据类别函数相关函数。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiUserData(); // 结果：25 ``` ###### uiRightDay 用途：进行字符串提取或替换处理。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiRightDay(); // 结果：27 ``` ###### uiBasicID 用途：对话框数据类别函数相关函数。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiBasicID(); // 结果：29 ``` ###### uiYear 用途：对话框数据类别函数相关函数。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiYear(); // 结果：31 ``` ###### uiMonth 用途：对话框数据类别函数相关函数。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiMonth(); // 结果：32 ``` ###### uiDay 用途：对话框数据类别函数相关函数。 参数：无。 返回：处理后的结果值。 范例 ```tsl return rdo2 uiDay(); // 结果：33 ``` ##### InputQuery 范例 ```tsl if not rdo2 inputquery("输入数据", "输入被除数", M1) then return "未输入被除数"; if not rdo2 inputquery("输入数据", "输入除数", M2) then return "未输入除数"; return strtofloat(M1) / strtofloat(M2); ``` 执行第一个if时，弹出如上对话框，输入3点击确定，这是执行第二个if弹出如下个对话框 输入6点击OK则返回的结果是0.5. ##### PromptForFileName 范例 ```tsl // 打开保存文件对话框 rdo2 PromptForFileName(data, 'Excelfiles ( * .xls)| * .xlsx|( * .XLS)|TSLfiles ( * .tsl)| * .TSL','.xls','保存对话框','C:\\DataStore',1); return data; // 打开打开文件对话框 rdo2 PromptForFileName(data, 'Excelfiles ( * .xls)| * .xlsx|( * .XLS)|TSLfiles ( * .tsl)| * .TSL','.xls','打开对话框','C:\\DataStore',0); return data; ``` ##### MessageBox 范例 范例1： ```tsl a := 3; if a > 2 then b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', rdo2 mb_YesNo()); if b = 6 then return 1; else return 0; ``` 显示的消息对话框如下： 其中，mb_YesNo()函数为控制字函数，各控制字函数可以参考链接： http://www.tinysoft.com.cn/tsdn/helpdoc/display.tsl?id=1380 范例2： 两个控制字函数相加的消息显示框,两个控制字函数相加用位或的运算符号.|，程序如下： ```tsl a := 3; c := rdo2 mb_YesNo() .| rdo2 mb_IconWarning(); if a > 2 then b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); if b = 7 then return 1; else return b; ``` 弹出的消息显示框则如下： 比范例1多了一个警告图标，即mb_IconWarning()是警告图标控制字函数参考消息对话框的返回字。 ##### InputDialog 范例 ```tsl Define := array(); define[0]['Name'] := 'Years'; define[0]['Comment'] := '年数'; define[0]['Type'] := rdo2 uiInteger(); define[0]['Value'] := 10; define[1]['Name'] := 'NeedFunds'; define[1]['Comment'] := '是否需要基金'; define[1]['Type'] := rdo2 uiBoolean(); define[1]['Value'] := ’true’; define[2]['Name'] := 'Name'; define[2]['Comment'] := '输入名称'; define[2]['Type'] := rdo2 uiString(); define[2]['Value'] := '天软'; define[3]['Name'] := 'GenDate'; define[3]['Comment'] := '生成日期'; define[3]['Type'] := rdo2 uiDate(); define[3]['Value'] := now(); if rdo2 InputDialog('测试输入', '测试', define, Result) then rdo2 ShowValue('测试显示', Result, false); ``` 显示如下： 当选择了确认之后，ShowValue的结果显示出来如下： ##### BuildOptionComboValue 范例 ```tsl // 返回结果值为1的Value值 s := 'abcd=0\r bcde=1\r'; return rdo2 BuildOptionComboValue(s, 1); // 返回结果值为0的Value值 s := 'abcd=0\r bcde=1\r'; return rdo2 BuildOptionComboValue(s, 0); ``` ##### ShowValue 范例 ```tsl // 显示一个数组数据 a := rand(10, 10); b := rdo2 ShowValue('测试显示', a, false); return b; // 显示一个字符串 a := '测试ABC'; b := rdo2 ShowValue('测试显示', a, false); return b; ``` #### 消息对话框的类型控制字 ##### 内容 - mb_AbortRetryIgnore - mb_Ok - mb_OkCancel - mb_RetryCancel - mb_YesNo - mb_YesNoCancel ##### mb_AbortRetryIgnore 范例 ```tsl a := 3; b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', rdo2 mb_AbortRetryIgnore()); return b; ``` 弹出如下消息对话框，选择“中止”则返回“中止”按钮id的返回字，选择“重试”则返回“重试”按钮id的返回字。选择“忽略”及返回“忽略”按钮Id的返回字。 ##### mb_Ok - mb_AbortRetryIgnore - mb_Ok - mb_OkCancel - mb_RetryCancel - mb_YesNo - mb_YesNoCancel ##### mb_OkCancel 范例 ```tsl a := 3; b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', rdo2 mb_OkCancel()); return b; ``` 弹出如下消息对话框，选择“确定”则返回“确定”按钮id的返回字，选择“取消”则返回“取消”按钮id的返回字。 ##### mb_RetryCancel 范例 ```tsl a := 3; b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', rdo2 mb_RetryCancel()); return b; ``` 弹出如下消息对话框，选择“重试”则返回“重试”按钮id的返回字，选择“取消”则返回“取消”按钮id的返回字。 ##### mb_YesNo 范例 ```tsl a := 3; b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', rdo2 mb_YesNo()); return b; ``` 弹出如下消息对话框，选择“是”则返回“是”按钮id的返回字，选择否则返回“否”按钮id的返回字。 参考MessageBox ##### mb_YesNoCancel 范例 ```tsl a := 3; b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', rdo2 mb_YesNoCancel()); return b; ``` 弹出如下消息对话框，选择“是”则返回“是”按钮id的返回字，选择“否”则返回“否”按钮id的返回字，选择“取消”则返回“取消”按钮id的返回字。 #### 消息对话框的图标控制字 ##### 内容 - mb_IconInformation - mb_IconExclamation - mb_IconWarning - mb_IconInfomation - mb_IconAsterisk - mb_IconQuestion - mb_IconStop - mb_IconError - mb_IconHand ##### mb_IconInformation 范例 ```tsl a := 3; c := rdo2 mb_YesNo() .| rdo2mb_IconInformation(); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` 弹出对话框如下： ##### mb_IconExclamation 范例 ```tsl a := 3; c := rdo2 mb_YesNo() .| rdo2 mb_IconExclamation(); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` 弹出消息显示框如下图，在控制字mb_YesNo()显示框的基础上加了一个感叹号图标。 ##### mb_IconWarning 范例 ```tsl a := 3; c := rdo2 mb_YesNo() .| rdo2 mb_IconWarning(); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` 弹出消息显示框如下图，在控制字mb_YesNo()显示框的基础上加了一个警告图标。 ##### mb_IconInfomation - mb_IconInformation - mb_IconExclamation - mb_IconWarning - mb_IconInfomation - mb_IconAsterisk - mb_IconQuestion - mb_IconStop - mb_IconError - mb_IconHand ##### mb_IconAsterisk 范例 ```tsl a := 3; c := rdo2 mb_YesNo() .| rdo2 mb_IconAsterisk(); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` 弹出消息显示框如下图，在控制字mb_YesNo()显示框的基础上加了一个星号图标。 ##### mb_IconQuestion 范例 ```tsl a := 3; c := rdo2 mb_YesNo() .| rdo2mb_IconQuestion (); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` 弹出消息显示框如下图，在控制字mb_YesNo()显示框的基础上加了一个问好图标。 ##### mb_IconStop 范例 ```tsl a := 3; c := rdo2 mb_YesNo() .| rdo2mb_IconStop(); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` 弹出消息显示框如下图，在控制字mb_YesNo()显示框的基础上加了一个停止图标。 ##### mb_IconError 范例 ```tsl a := 3; c := rdo2 mb_YesNo() .| rdo2mb_IconError(); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` 弹出消息显示框如下图，在控制字mb_YesNo()显示框的基础上加了一个错误图标。 ##### mb_IconHand 范例 ```tsl a := 3; c := rdo2 mb_YesNo() .| rdo2mb_IconHand(); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` 弹出消息显示框如下图，在控制字mb_YesNo()显示框的基础上加了一个手图标。 #### 消息对话框的默认按钮控制字 ##### 内容 - mb_DefButton1 - mb_DefButton2 - mb_DefButton3 - mb_DefButton4 ##### mb_DefButton1 范例 ```tsl a := 3; c := rdo2 mb_YesNo() .| rdo2mb_DefButton1(); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` 弹出消息显示框如下图，控制字mb_YesNo()消息显示框的第一个按钮呈浅蓝色。 ##### mb_DefButton2 范例 ```tsl a := 3; c := rdo2 mb_YesNo() .| rdo2mb_DefButton2(); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` 弹出消息显示框如下图，控制字mb_YesNo()消息显示框的第二个按钮呈浅蓝色。 ##### mb_DefButton3 范例 ```tsl a := 3; c := rdo2 mb_AbortRetryIgnore() .| rdo2mb_DefButton3(); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` 弹出消息显示框如下图，控制字mb_AbortRetryIgnore()消息显示框的第三个按钮呈浅蓝色。 ##### mb_DefButton4 范例 如没有第四个按钮，则从超出按钮个数起重新从第一个按钮数，如mb_AbortRetryIgnore() 在默认第四个按钮，由于mb_AbortRetryIgnore()只有三个按钮，则第四个显示的是第一个。 ```tsl a := 3; c := rdo2 mb_AbortRetryIgnore() .| rdo2mb_DefButton4(); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` 弹出消息显示框如下图，控制字mb_AbortRetryIgnore()消息显示框的第一个按钮呈浅蓝色。 #### 消息对话框的模式控制字 ##### 内容 - mb_ApplModal - mb_AppModal - mb_SystemModal - mb_TaskModal ##### mb_ApplModal 范例 ```tsl a := 3; c := rdo2 mb_AbortRetryIgnore() .| rdo2mb_ApplModal(); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` 弹出消息显示框如下图： ##### mb_AppModal - mb_ApplModal - mb_AppModal - mb_SystemModal - mb_TaskModal ##### mb_SystemModal 范例 ```tsl a := 3; c := rdo2 mb_AbortRetryIgnore() .| rdo2mb_SystemModal(); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` 弹出消息显示框如下图，如不返回选择按钮，消息显示框总是在最前端。 ##### mb_TaskModal 范例 ```tsl a := 3; c := rdo2 mb_AbortRetryIgnore() .| rdo2mb_TaskModal(); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` 弹出消息显示框如下图，如不返回选择按钮，将无法继续操作天软系统。 #### 消息对话框的其他控制字 ##### 内容 - mb_TopMost - mb_Default_Desktop_Only - mb_Help - mb_Right - mb_RtlReading - mb_SetForeGround - mb_SetTopMost - mb_Service_Notification - mb_Service_Notification_NT3X ##### mb_TopMost 范例 ```tsl a := 3; c := rdo2 mb_AbortRetryIgnore() .| rdo2mb_TopMost(); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` 弹出对话框如： ##### mb_Default_Desktop_Only 范例 ```tsl a := 3; c := rdo2 mb_AbortRetryIgnore() .| rdo2mb_Default_Desktop_Only(); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` 弹出消息显示框如下图 ##### mb_Help 范例 ```tsl a := 3; c := rdo2 mb_AbortRetryIgnore() .| rdo2mb_Help(); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` 弹出消息显示框如下图 ##### mb_Right 范例 ```tsl a := 3; c := rdo2 mb_AbortRetryIgnore() .| rdo2mb_Right(); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` 弹出消息显示框如下图 ##### mb_RtlReading 范例 ```tsl a := 3; c := rdo2 mb_AbortRetryIgnore() .| rdo2mb_RtlReading(); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` 弹出消息显示框如下图 ##### mb_SetForeGround 范例 ```tsl a := 3; c := rdo2 mb_AbortRetryIgnore() .| rdo2mb_SetForeGround(); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` 弹出消息显示框如下图 ##### mb_SetTopMost - mb_TopMost - mb_Default_Desktop_Only - mb_Help - mb_Right - mb_RtlReading - mb_SetForeGround - mb_SetTopMost - mb_Service_Notification - mb_Service_Notification_NT3X ##### mb_Service_Notification 范例 ```tsl a := 3; c := rdo2 mb_AbortRetryIgnore() .| rdo2mb_Service_Notification(); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` ##### mb_Service_Notification_NT3X 范例 ```tsl a := 3; c := rdo2 mb_AbortRetryIgnore() .| rdo2mb_Service_Notification_NT3X(); b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', c); return b; ``` 弹出消息显示框如下图 #### 消息对话框的返回字 ##### 内容 - idAbort - idCancel - idIgnore - idNo - idOk - idRetry - idYes ##### idAbort 范例 ```tsl a := 3; b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', rdo2 mb_AbortRetryIgnore()); if b = rdo2 idAbort () then return 1; else return 0; ``` 返回结果如选择Abort按钮，则返回1，否则返回0 。 ##### idCancel 范例 ```tsl a := 3; b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', rdo2 mb_OkCancel()); if b = rdo2 idCancel () then return 1; else return 0; ``` 返回结果如选择Cancel按钮，则返回1，否则返回0 。 ##### idIgnore 范例 ```tsl a := 3; b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', rdo2 mb_AbortRetryIgnore ()); if b = rdo2 idIgnore () then return 1; else return 0; ``` 返回结果如选择Ignore按钮，则返回1，否则返回0 。 ##### idNo 范例 ```tsl a := 3; b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', rdo2 mb_YesNo ()); if b = rdo2 idNo () then return 1; else return 0; ``` 返回结果如选择No按钮，则返回1，否则返回0 。 ##### idOk 范例 ```tsl a := 3; b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', rdo2 mb_OkCancel ()); if b = rdo2 idOk() then return 1; else return 0; ``` 返回结果如选择OK按钮，则返回1，否则返回0 。 ##### idRetry 范例 ```tsl a := 3; b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', rdo2 mb_AbortRetryIgnore()); if b = rdo2 idRetry () then return 1; else return 0; ``` 返回结果如选择Retry按钮，则返回1，否则返回0 。 ##### idYes 范例 ```tsl a := 3; b := rdo2 MessageBox('a>2,要继续吗？', '测试对话框', rdo2 mb_YesNo()); if b = rdo2 IdYes() then return 1; else return 0; ``` 返回结果如选择Yes按钮，则返回1，否则返回0 。