e4a 对话框的 多选单选颜色日期时间

事件 按钮1.被单击()'单选 
'声明变量
变量 项目 为 文本型(4)
变量 状态 为 逻辑型(4)
变量 结果 为 文本型
'定义项目内容
项目(0)="你好帅啊"
项目(1)="你好酷啊"
项目(2)="你好炫啊"
项目(3)="你好拽啊"
'定义项目选中状态
状态(0)=假
状态(1)=真
状态(2)=假
状态(3)=假
'显示对话框直到返回选择结果
结果 = 单选对话框("单选对话框",项目,状态)
弹出提示(结果)
结束 事件

事件 按钮2.被单击()'多选
'声明变量
变量 项目 为 文本型(4)
变量 状态 为 逻辑型(4)
变量 结果 为 文本型
'定义项目内容
项目(0)="你好帅啊"
项目(1)="你好酷啊"
项目(2)="你好炫啊"
项目(3)="你好拽啊"
'定义项目选中状态
状态(0)=假
状态(1)=真
状态(2)=假
状态(3)=真
'显示对话框直到返回选择结果
结果 = 多选对话框("多选对话框",项目,状态)
弹出提示(结果)
结束 事件

事件 按钮3.被单击()'日期
显示日期选择框()
结束 事件

事件 按钮4.被单击()'时间
显示时间选择框()
结束 事件

事件 主窗口.日期框被选择(日期 为 文本型)
弹出提示(日期)
结束 事件

事件 主窗口.时间框被选择(时间 为 文本型)
弹出提示(时间)
结束 事件

事件 按钮5.被单击()'输入
变量 输入结果 为 逻辑型
变量 输入内容 为 文本型
输入内容 = 输入框("请输入任意字符","初始内容",输入结果)
如果 输入结果 = 真 则
弹出提示("你输入了:" & 输入内容)
否则	
弹出提示("你取消了输入" )
结束 如果
结束 事件

事件 按钮6.被单击()'颜色选择
标签1.背景颜色 = 颜色选择框("点击圆心确定颜色",标签1.背景颜色)
结束 事件

  

猜你喜欢

转载自www.cnblogs.com/--3q/p/11961444.html