|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 qq641235265 于 2015-9-18 10:53 编辑
写代码突然想到的一个小技巧,让一个按键,当鼠标点击不同位置时候,可以让按钮执行不同的功能。
下面附上代码,另带小部分表格操作技巧,就不隐藏了,觉得好的给个回复,需要的就拿走吧。
- 功能 大区_选择改变()
- //这里添加你要执行的代码变量 账号,密码,大区,服务器,文本
- 变量 账号,密码,大区,文本
- 账号=编辑框获取文本("账号")
- 密码=编辑框获取文本("密码")
- 大区=下拉框获取选项("大区")
- 如果(账号!=""&&密码!=""&&大区!=-1)
- 文本=按钮获取文本("刷新")
- 如果(文本!="添加")
- 按钮设置文本("刷新","添加")
- 结束
- 结束
- 选择(大区)
- 条件 0
- 下拉框选项清空("服务器")
- 下拉框增加文本("服务器","a")
- 下拉框增加文本("服务器","b")
- 下拉框增加文本("服务器","c")
- 下拉框增加文本("服务器","d")
- 下拉框增加文本("服务器","e")
- 下拉框增加文本("服务器","f")
- 下拉框增加文本("服务器","g")
- 下拉框增加文本("服务器","h")
- 下拉框增加文本("服务器","i")
- 下拉框设置选项("服务器",0)
- 条件 1
- 下拉框选项清空("服务器")
- 下拉框增加文本("服务器","j")
- 下拉框增加文本("服务器","k")
- 下拉框增加文本("服务器","l")
- 下拉框增加文本("服务器","m")
- 下拉框增加文本("服务器","n")
- 下拉框增加文本("服务器","o")
- 下拉框增加文本("服务器","p")
- 下拉框设置选项("服务器",0)
- 条件 2
- 下拉框选项清空("服务器")
- 下拉框增加文本("服务器","q")
- 下拉框增加文本("服务器","r")
- 下拉框增加文本("服务器","s")
- 下拉框增加文本("服务器","t")
- 下拉框增加文本("服务器","u")
- 下拉框增加文本("服务器","v")
- 下拉框增加文本("服务器","w")
- 下拉框增加文本("服务器","x")
- 下拉框设置选项("服务器",0)
- 条件 3
- 下拉框选项清空("服务器")
- 下拉框增加文本("服务器","y")
- 下拉框设置选项("服务器",0)
- 结束
- 结束
- 功能 账号_内容改变()
- //这里添加你要执行的代码
- 变量 账号,密码,大区,文本
- 账号=编辑框获取文本("账号")
- 密码=编辑框获取文本("密码")
- 大区=下拉框获取选项("大区")
- 如果(账号!=""&&密码!=""&&大区!=-1)
- 文本=按钮获取文本("刷新")
- 如果(文本!="添加")
- 按钮设置文本("刷新","添加")
- 结束
- 结束
- 结束
- 功能 密码_内容改变()
- //这里添加你要执行的代码
- 变量 账号,密码,大区,文本
- 账号=编辑框获取文本("账号")
- 密码=编辑框获取文本("密码")
- 大区=下拉框获取选项("大区")
- 如果(账号!=""&&密码!=""&&大区!=-1)
- 文本=按钮获取文本("刷新")
- 如果(文本!="添加")
- 按钮设置文本("刷新","添加")
- 结束
- 结束
- 结束
- 功能 表格1_左键单击()
- //这里添加你要执行的代码
- 变量 r_row,r_col,文本,项
- 表格获取焦点选项("表格1",r_row,r_col)
- 调试输出(r_row)
- 如果(r_row>0)
- 按钮设置文本("刷新","删除")
- 否则
- 文本=按钮获取文本("刷新")
- 如果(文本=="删除")
- 按钮设置文本("刷新","刷新")
- 结束
- 结束
- 结束
- 功能 刷新_点击()
- 变量 文本=按钮获取文本("刷新")
- 选择(文本)
- 条件 "删除"
- 删除()
- 条件 "刷新"
- 刷新()
- 条件 "添加"
- 添加()
- 结束
- 结束
- 功能 添加()
- //这里添加你要执行的代码
- 变量 账号,密码,大区,服务器,r_row, r_col,行
- 账号=编辑框获取文本("账号")
- 密码=编辑框获取文本("密码")
- 大区=下拉框获取文本("大区")
- 服务器=下拉框获取文本("服务器")
- 行=数组("",账号,密码,大区,服务器)
- 如果(账号!=""&&密码!=""&&大区!=""&&服务器!="")
- 文件写日志(账号&"|"&密码&"|"&大区&"|"&服务器,"路径")
- 表格插入行("表格1",行)
- 编辑框设置文本("账号","")
- 编辑框设置文本("密码","")
- 按钮设置文本("刷新","刷新")
- 表格获取大小("表格1",r_row, r_col)
- 如果(r_row>14)
- 控件设置位置("表格1",5,53,526,320,0)
- 结束
- 否则
- 设置托盘气泡("请填写完整的资料","提示")
- 结束
- 结束
- 功能 删除()
- //这里添加你要执行的代码
- 变量 row,col
- 表格获取焦点选项("表格1",row,col)
- 表格删除行("表格1",row)
- 文件删指定行("路径",row-1)
- 表格获取大小("表格1",row, col)
- 如果(row<14)
- 控件设置位置("表格1",13,53,511,320,0)
- 结束
- 按钮设置文本("刷新","刷新")
- 结束
- 功能 刷新()
- //这里添加你要执行的代码
- 变量 行,文件,文本,内容=数组(),r_row, r_col
- 行=数组("","","","","","")
- 表格获取大小("表格1",r_row, r_col)
- 文件=文件读取内容("路径")
- 字符串分割(文件,"\r\n",文本)
- 长度=数组大小(文本)
- 如果(长度>13)
- 控件设置位置("表格1",5,53,526,320,0)
- 否则
- 控件设置位置("表格1",13,53,511,320,0)
- 结束
- 遍历(变量 i=0;i<长度-1;i++)
- 如果(i>r_row-2)
- 表格插入行("表格1",行)
- 结束
- 字符串分割(文本[i],"|",内容)
- 表格设置内容("表格1",i+1,1,内容[0])
- 表格设置内容("表格1",i+1,2,内容[1])
- 表格设置内容("表格1",i+1,3,内容[2])
- 表格设置内容("表格1",i+1,4,内容[3])
- 表格设置内容("表格1",i+1,5,内容[4])
- 表格设置内容("表格1",i+1,0,i+1)
- 结束
- 结束
复制代码
|
-
-
测试1.zip
744.32 KB, 下载次数: 441, 下载积分: 金币 -1 个
评分
-
查看全部评分
|