不可视组件对话框有方法：

设置进度对话框可取消；显示进度对话框；设置进度对话框信息；关闭进度对话框；显示进度对话框2；设置进度对话框进度；信息框；信息框2；信息框3；设置对话框语言类型；单选对话框；多选对话框；置输入框输入方式；输入框；颜色选择框；置日期选择框初始日期；显示日期选择框；置时间选择框初始时间；显示时间选择框。

这些方法使用起来很不方便，完全可以用对应的过程和函数代替。代码如下：

         变量 计数 为 整数型

         变量 按钮标志 为 整数型

 

事件 按钮_进度对话框.被单击()

         显示进度对话框("请稍等……")

         设置进度对话框信息("这是试验进度对话框")

         设置进度对话框进度(0)

         时钟1.时钟周期=1000

结束 事件

事件 时钟1.周期事件()

         计数=计数+1

         设置进度对话框信息(计数*10 & "％")

         如果 计数>9 则

                  关闭进度对话框()

                  计数=0

                  时钟1.时钟周期=0

         结束 如果

结束 事件

事件 按钮_进度对话框2.被单击()

         显示进度对话框2("进度对话框2","请稍等……",真)

         时钟2.时钟周期=1000

结束 事件

事件 时钟2.周期事件()

         计数=计数+1

         设置进度对话框信息(计数*10 & "％")

         设置进度对话框进度(计数*10)

         如果 计数>9 则

                  时钟2.时钟周期=0

             计数=0

             关闭进度对话框()

         结束 如果

结束 事件

事件 按钮_信息框2.被单击()

         按钮标志=信息框2("这里显示标题","这里显示信息","确定","取消")

         如果 按钮标志=0 则

                  信息框("这是标题","您按下的按钮为" & 代码转字符(34) & "确定"  & 代码转字符(34)  ,"确定")

         否则        

                  信息框("这是标题","您按下的按钮为" & 代码转字符(34) & "取消"  & 代码转字符(34)  ,"确定")

         结束 如果

结束 事件

事件 按钮_信息框3.被单击()

         变量 选择状态 为 逻辑型

         按钮标志=信息框3("这里显示标题","这里显示信息","您是成人吗？","确定","取消",假,选择状态)

         如果 按钮标志=0 则

                  如果 选择状态 则

                          信息框("标题","大朋友您好！"   ,"确定")

                  否则

                          信息框("标题","小朋友您好！"   ,"确定")

                  结束 如果

         结束 如果

结束 事件

事件 按钮_颜色选择.被单击()

         标签1.背景颜色=颜色选择框("请选择标签1背景色",标签1.背景颜色)

结束 事件

事件 按钮_显示日期选择框.被单击()

     置日期选择框初始日期(2019,7,25)

         显示日期选择框()

结束 事件

事件 主窗口.日期框被选择(日期 为 文本型)

         信息框("标题","您选择的日期为：" & 日期   ,"确定")

结束 事件

事件 按钮_选择时间.被单击()

    置时间选择框初始时间(13,25)

         显示时间选择框()

结束 事件

事件 主窗口.时间框被选择(时间 为 文本型)

         信息框("标题","您选择的时间为：" & 时间   ,"确定")

结束 事件