易语言气球提示框菜单

易语言 2020-08-23 19:20:29

易语言气球提示框菜单

菜单项 = { “打开”, “选项”, “帮助”, “关于”, “退出” }
.计次循环首 (5, 计次)
菜单文本 = 菜单文本 + “” + 取空白文本 (22) + “
” + “ ” + 菜单项 [计次] + “ ” + “
” + 取空白文本 (33) + “
” + 选择 (计次 = 5, “”, “
”)
.计次循环尾 ()
提示框.圆角横向尺寸 = 3
提示框.圆角纵向尺寸 = 3
提示框.手柄宽度 = 9
提示框.手柄高度 = 5
提示框.弹出提示框 (取鼠标水平位置 (), 取鼠标垂直位置 () + 3, 菜单文本, -1, )

.子程序 _提示框_自定义超链接被单击