TC官方合作论坛

标题: 小技巧，大作用，让一个按钮能执行多种功能 [打印本页]

---

作者: qq641235265    时间: 2015-9-18 10:45
标题: 小技巧，大作用，让一个按钮能执行多种功能


写代码突然想到的一个小技巧，让一个按键，当鼠标点击不同位置时候，可以让按钮执行不同的功能。
下面附上代码，另带小部分表格操作技巧，就不隐藏了，觉得好的给个回复，需要的就拿走吧。

1. 功能 大区_选择改变()
   
2.     //这里添加你要执行的代码变量 账号,密码,大区,服务器,文本
   
3.     变量 账号,密码,大区,文本
   
4.     账号=编辑框获取文本("账号")
   
5.     密码=编辑框获取文本("密码")
   
6.     大区=下拉框获取选项("大区")
   
7.     如果(账号!=""&&密码!=""&&大区!=-1)
   
8.         文本=按钮获取文本("刷新")
   
9.         如果(文本!="添加")
   
10.             按钮设置文本("刷新","添加")
    
11.         结束
    
12.     结束
    
13.     选择(大区)
    
14.         条件 0
    
15.         下拉框选项清空("服务器")
    
16.         下拉框增加文本("服务器","a")
    
17.         下拉框增加文本("服务器","b")
    
18.         下拉框增加文本("服务器","c")
    
19.         下拉框增加文本("服务器","d")
    
20.         下拉框增加文本("服务器","e")
    
21.         下拉框增加文本("服务器","f")
    
22.         下拉框增加文本("服务器","g")
    
23.         下拉框增加文本("服务器","h")
    
24.         下拉框增加文本("服务器","i")
    
25.         下拉框设置选项("服务器",0)
    
26.         条件 1
    
27.         下拉框选项清空("服务器")
    
28.         下拉框增加文本("服务器","j")
    
29.         下拉框增加文本("服务器","k")
    
30.         下拉框增加文本("服务器","l")
    
31.         下拉框增加文本("服务器","m")
    
32.         下拉框增加文本("服务器","n")
    
33.         下拉框增加文本("服务器","o")
    
34.         下拉框增加文本("服务器","p")
    
35.         下拉框设置选项("服务器",0)
    
36.         条件 2
    
37.         下拉框选项清空("服务器")
    
38.         下拉框增加文本("服务器","q")
    
39.         下拉框增加文本("服务器","r")
    
40.         下拉框增加文本("服务器","s")
    
41.         下拉框增加文本("服务器","t")
    
42.         下拉框增加文本("服务器","u")
    
43.         下拉框增加文本("服务器","v")
    
44.         下拉框增加文本("服务器","w")
    
45.         下拉框增加文本("服务器","x")
    
46.         下拉框设置选项("服务器",0)
    
47.         条件 3
    
48.         下拉框选项清空("服务器")
    
49.         下拉框增加文本("服务器","y")
    
50.         下拉框设置选项("服务器",0)
    
51.     结束
    
52. 结束
    
53. 
    
54. 功能 账号_内容改变()
    
55.     //这里添加你要执行的代码
    
56.     变量 账号,密码,大区,文本
    
57.     账号=编辑框获取文本("账号")
    
58.     密码=编辑框获取文本("密码")
    
59.     大区=下拉框获取选项("大区")
    
60.     如果(账号!=""&&密码!=""&&大区!=-1)
    
61.         文本=按钮获取文本("刷新")
    
62.         如果(文本!="添加")
    
63.             按钮设置文本("刷新","添加")
    
64.         结束
    
65.     结束
    
66. 结束
    
67. 
    
68. 功能 密码_内容改变()
    
69.     //这里添加你要执行的代码
    
70.     变量 账号,密码,大区,文本
    
71.     账号=编辑框获取文本("账号")
    
72.     密码=编辑框获取文本("密码")
    
73.     大区=下拉框获取选项("大区")
    
74.     如果(账号!=""&&密码!=""&&大区!=-1)
    
75.         文本=按钮获取文本("刷新")
    
76.         如果(文本!="添加")
    
77.             按钮设置文本("刷新","添加")
    
78.         结束
    
79.     结束
    
80. 结束
    
81. 
    
82. 功能 表格1_左键单击()
    
83.     //这里添加你要执行的代码
    
84.     变量 r_row,r_col,文本,项
    
85.     表格获取焦点选项("表格1",r_row,r_col)
    
86.     调试输出(r_row)
    
87.     如果(r_row>0)
    
88.         按钮设置文本("刷新","删除")
    
89.     否则
    
90.         文本=按钮获取文本("刷新")
    
91.         如果(文本=="删除")
    
92.             按钮设置文本("刷新","刷新")
    
93.         结束
    
94.     结束
    
95. 结束
    
96. 功能 刷新_点击()
    
97.     变量 文本=按钮获取文本("刷新")
    
98.     选择(文本)
    
99.         条件 "删除"
    
100.         删除()
     
101.         条件 "刷新"
     
102.         刷新()
     
103.         条件 "添加"
     
104.         添加()
     
105.     结束
     
106. 结束
     
107. 
     
108. 功能 添加()
     
109.     //这里添加你要执行的代码
     
110.     变量 账号,密码,大区,服务器,r_row, r_col,行
     
111.     账号=编辑框获取文本("账号")
     
112.     密码=编辑框获取文本("密码")
     
113.     大区=下拉框获取文本("大区")
     
114.     服务器=下拉框获取文本("服务器")
     
115.     行=数组("",账号,密码,大区,服务器)
     
116.     如果(账号!=""&&密码!=""&&大区!=""&&服务器!="")
     
117.         文件写日志(账号&"|"&密码&"|"&大区&"|"&服务器,"路径")
     
118.         表格插入行("表格1",行)
     
119.         编辑框设置文本("账号","")
     
120.         编辑框设置文本("密码","")
     
121.         按钮设置文本("刷新","刷新")
     
122.         表格获取大小("表格1",r_row, r_col)
     
123.         如果(r_row>14)
     
124.             控件设置位置("表格1",5,53,526,320,0)
     
125.         结束
     
126.     否则
     
127.         设置托盘气泡("请填写完整的资料","提示")
     
128.     结束
     
129. 结束
     
130. 
     
131. 功能 删除()
     
132.     //这里添加你要执行的代码
     
133.     变量 row,col
     
134.     表格获取焦点选项("表格1",row,col)
     
135.     表格删除行("表格1",row)
     
136.     文件删指定行("路径",row-1)
     
137.     表格获取大小("表格1",row, col)
     
138.     如果(row<14)
     
139.         控件设置位置("表格1",13,53,511,320,0)
     
140.     结束
     
141.     按钮设置文本("刷新","刷新")
     
142. 结束
     
143. 
     
144. 功能 刷新()
     
145.     //这里添加你要执行的代码
     
146.     变量 行,文件,文本,内容=数组(),r_row, r_col
     
147.     行=数组("","","","","","")
     
148.     表格获取大小("表格1",r_row, r_col)
     
149.     文件=文件读取内容("路径")
     
150.     字符串分割(文件,"\r\n",文本)
     
151.     长度=数组大小(文本)
     
152.     如果(长度>13)
     
153.         控件设置位置("表格1",5,53,526,320,0)
     
154.     否则
     
155.         控件设置位置("表格1",13,53,511,320,0)
     
156.     结束
     
157.     遍历(变量 i=0;i<长度-1;i++)
     
158.         如果(i>r_row-2)
     
159.             表格插入行("表格1",行)
     
160.         结束
     
161.         字符串分割(文本[i],"|",内容)
     
162.         表格设置内容("表格1",i+1,1,内容[0])
     
163.         表格设置内容("表格1",i+1,2,内容[1])
     
164.         表格设置内容("表格1",i+1,3,内容[2])
     
165.         表格设置内容("表格1",i+1,4,内容[3])
     
166.         表格设置内容("表格1",i+1,5,内容[4])
     
167.         表格设置内容("表格1",i+1,0,i+1)
     
168.     结束
     
169. 结束

复制代码

测试1.zip

2015-9-18 10:50 上传

点击文件名下载附件

744.32 KB, 下载次数: 445

---

作者: qq641235265    时间: 2015-9-18 10:55
沙发自己坐，后面的看官看有什么看不懂的回复本帖。

---

作者: a837198    时间: 2015-9-18 12:05
呵呵

---

作者: xiaomin    时间: 2015-12-13 05:41
❤❤❤❤❤

---

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)

Powered by Discuz! X3.1