虎牙TC学习，源码借鉴记录帖

年迈的虎牙丶

列表框实现树型框效果（原创作者：zxczxc1968531）

1. 变量 人员信息=数组()
   
2. 功能 填充信息(数组信息,展示方式="打开",是否追加="否")
   
3.     变量 值,key
   
4.     变量 值1,key1
   
5.     如果(是否追加=="否")
   
6.         列表框选项清空("列表框1")
   
7.     结束
   
8. 
   
9.     遍历(变量 i = 0; i < 数组大小(人员信息); i++)
   
10.         数组获取元素(人员信息,i,值,key)
    
11.         如果(展示方式=="打开")
    
12.             列表框增加文本("列表框1","☟ "&key)
    
13.             遍历(变量 ii = 0; ii < 数组大小(值); ii++)
    
14.                 数组获取元素(值,ii,值1,key1)
    
15.                 列表框增加文本("列表框1","    ● "&key1)   
    
16.             结束
    
17.         否则
    
18.             列表框增加文本("列表框1","☞ "&key)
    
19.         结束
    
20.     结束
    
21.    
    
22.    
    
23. 结束
    
24. 
    
25. 功能 按钮0_点击()
    
26.     //这里添加你要执行的代码
    
27.     人员信息["指挥中心"]=数组()
    
28.     人员信息["指挥中心"]["张三"]=数组()
    
29.     人员信息["指挥中心"]["张三"]["年龄"]="28"
    
30.     人员信息["指挥中心"]["张三"]["入职时间"]="2018-02-16"
    
31.     人员信息["指挥中心"]["张三"]["照片"]="xuqi.png"
    
32.    
    
33.     人员信息["指挥中心"]["李四"]=数组()
    
34.     人员信息["指挥中心"]["李四"]["年龄"]="27"
    
35.     人员信息["指挥中心"]["李四"]["入职时间"]="2018-02-16"
    
36.     人员信息["指挥中心"]["李四"]["照片"]="xuqi.png"
    
37.     人员信息["网安大队"]=数组()
    
38.     人员信息["网安大队"]["王二"]=数组()
    
39.     人员信息["网安大队"]["王二"]["年龄"]="26"
    
40.     人员信息["网安大队"]["王二"]["入职时间"]="2018-02-16"
    
41.     人员信息["网安大队"]["王二"]["照片"]="xuqi.png"
    
42.    
    
43.     人员信息["网安大队"]["麻子"]=数组()
    
44.     人员信息["网安大队"]["麻子"]["年龄"]="25"
    
45.     人员信息["网安大队"]["麻子"]["入职时间"]="2018-02-16"
    
46.     人员信息["网安大队"]["麻子"]["照片"]="xuqi.png"
    
47.    
    
48.     填充信息(人员信息,"关闭")
    
49. 结束
    
50. 功能 按钮1_点击()
    
51.     //这里添加你要执行的代码
    
52.     //这里添加你要执行的代码
    
53.     人员信息["指挥中心"]=数组()
    
54.     人员信息["指挥中心"]["张三"]=数组()
    
55.     人员信息["指挥中心"]["张三"]["年龄"]="28"
    
56.     人员信息["指挥中心"]["张三"]["入职时间"]="2018-02-16"
    
57.     人员信息["指挥中心"]["张三"]["照片"]="xuqi.png"
    
58.    
    
59.     人员信息["指挥中心"]["李四"]=数组()
    
60.     人员信息["指挥中心"]["李四"]["年龄"]="28"
    
61.     人员信息["指挥中心"]["李四"]["入职时间"]="2018-02-16"
    
62.     人员信息["指挥中心"]["李四"]["照片"]="xuqi.png"
    
63.     人员信息["网安大队"]=数组()
    
64.     人员信息["网安大队"]["王二"]=数组()
    
65.     人员信息["网安大队"]["王二"]["年龄"]="28"
    
66.     人员信息["网安大队"]["王二"]["入职时间"]="2018-02-16"
    
67.     人员信息["网安大队"]["王二"]["照片"]="xuqi.png"
    
68.    
    
69.     人员信息["网安大队"]["麻子"]=数组()
    
70.     人员信息["网安大队"]["麻子"]["年龄"]="28"
    
71.     人员信息["网安大队"]["麻子"]["入职时间"]="2018-02-16"
    
72.     人员信息["网安大队"]["麻子"]["照片"]="xuqi.png"
    
73.    
    
74.     填充信息(人员信息,"打开","是")
    
75.    
    
76.    
    
77.    
    
78.    
    
79. 结束
    
80. 
    
81. 
    
82. 
    
83. 功能 列表框1_左键双击()
    
84.     //这里添加你要执行的代码
    
85.     变量 列表行数=列表框获取选项个数("列表框1")
    
86.     变量 当前文本=列表框获取选中文本("列表框1")
    
87.     变量 当前选项=列表框获取选项("列表框1")
    
88.     变量 头文字=字符串截取左侧(当前文本,1)
    
89.     变量 当前主项
    
90.     变量 设置内容
    
91.     变量 删除数组=数组()
    
92.     变量 选项文字
    
93.     变量 序号
    
94.     变量 主项名称
    
95.     变量 值,key
    
96.    
    
97.     选择(头文字)
    
98.         条件 "☟"
    
99.         调试输出("关闭主项 [ "&当前文本&" ]")  
    
100.         设置内容=字符串替换(当前文本,"☟","☞")
     
101.         列表框删除选项文本("列表框1",当前选项)
     
102.         列表框插入文本("列表框1",设置内容,当前选项)
     
103.         列表框设置选项("列表框1",当前选项)
     
104.         序号=当前选项+1
     
105.         循环(序号<列表行数)
     
106.             选项文字=列表框获取文本("列表框1",序号)
     
107.             //调试输出(选项文字)
     
108.             如果(字符串截取左侧(选项文字,1)=="☟" || 字符串截取左侧(选项文字,1)=="☞" || 选项文字=="")
     
109.                 跳出
     
110.             否则
     
111.                 列表框删除选项文本("列表框1",序号)
     
112.                 序号--
     
113.             结束
     
114.             序号++
     
115.         结束
     
116.         
     
117.         
     
118.         条件 "☞"
     
119.         调试输出("打开主项[ "&当前文本&" ]")  
     
120.         设置内容=字符串替换(当前文本,"☞","☟")
     
121.         列表框删除选项文本("列表框1",当前选项)
     
122.         列表框插入文本("列表框1",设置内容,当前选项)
     
123.         列表框设置选项("列表框1",当前选项)
     
124.         
     
125.         主项名称=字符串截取(设置内容,2,字符串长度(设置内容))
     
126.         序号=当前选项+1
     
127.         遍历(变量 i = 0; i < 数组大小(人员信息[主项名称]); i++)
     
128.             数组获取元素(人员信息[主项名称],i,值,key)
     
129.             //调试输出(key)
     
130.             列表框插入文本("列表框1","    ● "&key,序号)
     
131.             序号++
     
132.         结束
     
133.         
     
134.         
     
135.         
     
136.         
     
137.         默认
     
138.         当前文本=字符串修剪(当前文本,"    ● ")
     
139.         遍历(变量 i =当前选项-1 ; i >= 0; i--)
     
140.             选项文字=列表框获取文本("列表框1",i)
     
141.             如果(字符串截取左侧(选项文字,1)=="☟" || 字符串截取左侧(选项文字,1)=="☞")
     
142.                 当前主项=字符串截取(选项文字,2,字符串长度(选项文字))
     
143.                 跳出
     
144.             结束
     
145.         结束
     
146.         
     
147.         
     
148.         调试输出("选中主项[ "&当前主项&" ]的子项 [ "&当前文本&" ]")  
     
149.         
     
150.         消息框(人员信息[当前主项][当前文本])
     
151.         
     
152.         
     
153.     结束
     
154.    
     
155.    
     
156. 结束
     

复制代码

年迈的虎牙丶

利用DLL实现自由拖动改变窗口大小（原创作者：zxczxc1968531）

1. 功能 实现窗口可调大小_初始化()
   
2.     改变窗体属性()
   
3. 结束
   
4. 功能 改变窗体属性()
   
5.     //    .DLL命令 设置窗口信息_, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息  指定数据的前一个值
   
6.     //    .参数 窗口句柄, 整数型, , hwnd，欲为其取得信息的窗口的句柄
   
7.     //    .参数 窗口信息值, 整数型, , nIndex，请参考GetWindowLong函数的nIndex参数的说明
   
8.     //    .参数 窗口信息新值, 整数型, , dwNewLong，由nIndex指定的窗口信息的新值
   
9.     //设置窗体属性:大小可变+有标题栏+标题栏控制菜单+最小化按钮+最大化按钮;参考TC帮助文档附录常量大全
   
10.     动态库调用("user32.dll", "long", "SetWindowLongA", "int", 窗口获取自我句柄(), "int", -16, "long", WS_THICKFRAME + WS_CAPTION + WS_SYSMENU + WS_MINIMIZEBOX + WS_MAXIMIZEBOX + WS_EX_TRANSPARENT)
    
11. 结束

复制代码

年迈的虎牙丶

利用win32 api实现窗口无边框 TC7.0专用（原创作者：13857750526）

1. dllcall("user32.dll","int","SetWindowLongA","int",windowgetmyhwnd(),"int",-20,"int",256)
   
2. dllcall("user32.dll","int","SetWindowLongA","int",windowgetmyhwnd(),"int",-16,"int",524288)

复制代码

这样写不会有阴影出现
主要是改了一下函数后的那个常量，顺便附一张常量表
如想详细了解SetWindowLongA，上MSDN  【docs.microsoft。com/zh-cn/windows/win32/api/winuser/nf-winuser-setwindowlonga?redirectedfrom=MSDN】

年迈的虎牙丶

简单利用编辑框制作 脚本运行日志

1. 
   
2. 功能 日志输出(内容)
   
3. 编辑框设置文本("编辑框0",编辑框获取文本("编辑框0")&当前时间()&":"&内容&"\r\n")
   
4. 窗口发送消息(控件获取句柄("编辑框0"),277,7,0)
   
5. 结束

复制代码

下面代码设计时间 提取分秒

1. 功能 日志输出(内容)
   
2.    
   
3.     变量 sj=当前时间()
   
4.     编辑框设置文本("编辑框0",编辑框获取文本("编辑框0")&时间时(sj)&":"&时间分(sj)&":"&时间秒(sj)&"==>>"&内容&"\r\n")
   
5.     窗口发送消息(控件获取句柄("编辑框0"),277,7,0)
   
6. 结束

复制代码

1. 功能 写日志(内容)
   
2.     变量 原有内容,位置,长度,字符集
   
3.     如果(内容!="")
   
4.         原有内容=编辑框获取文本("编辑框2")
   
5.         如果(内容!="")
   
6.             位置=字符串查找(原有内容,"\r\n")
   
7.             如果(位置>0)
   
8.                 长度=字符串分割(原有内容,"\r\n",字符集)
   
9.             结束
   
10.             原有内容=原有内容&"\r\n"&内容
    
11.         否则
    
12.             原有内容=内容  
    
13.         结束
    
14.         编辑框设置文本("编辑框2",原有内容)
    
15.         如果(长度>=6) //6表示显示6行
    
16.             窗口发送消息(控件获取句柄("编辑框2"),#0115,7,0)
    
17.         结束
    
18.     结束
    
19. 结束

复制代码

执行编辑框内的代码编辑框如果是鼠标移动   比如 坐标移动(200,300)

1. 变量 编辑框内容 = "坐标移动(200,300)"
   
2.    
   
3.     如果(字符串查找(编辑框内容,"坐标移动") != -1)
   
4.         变量 坐标
   
5.         字符串分割(字符串移除(字符串移除(编辑框内容,1,假),5,真),",",坐标)
   
6.         鼠标移动(坐标[0],坐标[1])
   
7.     结束

复制代码

编辑框如果是功能命令

1. 如果(编辑框获取文本("编辑框0") == "打开地图()")
   
2.         打开地图()
   
3.     结束

复制代码

年迈的虎牙丶

复选框与列表框的联动重点  重点 重点：做判断的时候，需要两个=；作为赋值的时候，需要一个=

1. 功能 复选框0_点击()
   
2.     变量  状态=复选框获取状态("复选框0")
   
3.     如果 (状态==真)//标重点 [做判断的时候，需要两个=；作为赋值的时候，需要一个=]
   
4.         变量 内容=复选框获取文本("复选框0")
   
5.         变量 行数=列表框获取选项个数("列表框1")
   
6.         列表框插入文本("列表框1",内容,行数+1)
   
7.     否则
   
8.         变量  a=列表框获取选项个数("列表框1")
   
9.         调试输出(a)
   
10.         for(变量 i=0;i<a;i++)
    
11.             变量 内容=列表框获取文本("列表框1",i)
    
12.             调试输出(内容)
    
13.             如果(内容==复选框获取文本("复选框0"))
    
14.                 调试输出("找到了"&内容&"位置是"&i)
    
15.                 列表框删除选项文本("列表框1",i)
    
16.             结束
    
17.         结束
    
18.     结束
    
19. 结束

复制代码

1. 功能 增减(a,b)
   
2.     变量  状态=复选框获取状态(a)
   
3.     如果 (状态==真)
   
4.         变量 内容=复选框获取文本(a)
   
5.         变量 行数=列表框获取选项个数(b)
   
6.         列表框插入文本(b,内容,行数+1)
   
7.     否则
   
8.         变量  个数=列表框获取选项个数(b)
   
9.         调试输出(个数)
   
10.         for(变量 i=0;i<个数;i++)
    
11.             变量 内容=列表框获取文本(b,i)
    
12.             调试输出(内容)
    
13.             如果(内容==复选框获取文本(a))
    
14.                 调试输出("找到了"&内容&"位置是"&i)
    
15.                 列表框删除选项文本(b,i)
    
16.             结束
    
17.         结束
    
18.     结束
    
19.    
    
20. 结束
    
21. 
    
22. 
    
23. 功能 复选框0_点击()
    
24.     增减("复选框0","列表框1")
    
25. 结束

复制代码

年迈的虎牙丶

下拉框二级联动

1. 功能 测试(主,副,数量)
   
2.     数量=数量+1
   
3.     变量 下拉框分类=下拉框获取文本(主)
   
4.     如果(数量>0)
   
5.         下拉框选项清空(副)
   
6.         遍历(变量 i = 1; i <数量 ; i++)
   
7.             下拉框增加文本(副,下拉框分类&"-"&i)
   
8.         结束
   
9.         下拉框设置选项(副,0)
   
10.     结束
    
11. 结束
    
12. 
    
13. 功能 计时器_初始化()
    
14.     测试("主1","副1",10)
    
15.     测试("主2","副2",10)
    
16.     测试("主3","副3",10)
    
17.     测试("主4","副4",10)
    
18. 结束

复制代码

列表框 二级联动

1. 功能 列表框0_左键双击()
   
2.     变量 选中任务 = ""
   
3.     选中任务 = 列表框获取选中文本("列表框0")
   
4.     变量 几行 = 列表框获取选项个数("列表框1")
   
5.     列表框插入文本("列表框1",选中任务,几行 + 1)
   
6. 结束
   
7. 
   
8. 功能 列表框1_左键双击()
   
9.     变量 序号=列表框获取选项("列表框1")
   
10.     列表框删除选项文本("列表框1",序号)
    
11. 结束
    
12. 
    
13. 功能 按钮6_点击()
    
14.     变量 选中任务 = ""
    
15.     选中任务 = 列表框获取选中文本("列表框1")
    
16.     变量 序号=列表框获取选项("列表框1")  
    
17.     列表框删除选项文本("列表框1",序号)
    
18.     列表框插入文本("列表框1",选中任务,序号 - 1)
    
19.     列表框设置选项("列表框1",序号 - 1)
    
20. 结束
    
21. 
    
22. 功能 按钮7_点击()
    
23.     变量 选中任务 = ""
    
24.     选中任务 = 列表框获取选中文本("列表框1")
    
25.     变量 序号=列表框获取选项("列表框1")  
    
26.     列表框删除选项文本("列表框1",序号)
    
27.     列表框插入文本("列表框1",选中任务,序号 + 1)
    
28.     列表框设置选项("列表框1",序号 + 1)
    
29. 结束
    
30. 
    
31. 功能 按钮8_点击()
    
32.     列表框选项清空("列表框1")
    
33. 结束

复制代码

下拉框应用

1. 变量 线程ID,省的名字,市的名字,县的名字,个数
   
2. 
   
3. 功能 下拉框0_选择改变()
   
4.     线程开启("获取市","")
   
5. 结束
   
6. 功能 下拉框1_选择改变()
   
7.     线程开启("获取县","")
   
8. 结束
   
9. 
   
10. 功能 获取市()
    
11.     下拉框选项清空("下拉框1")
    
12.     下拉框增加文本("下拉框1","地级市")
    
13.     下拉框设置选项("下拉框1",0)
    
14.     下拉框选项清空("下拉框2")
    
15.     下拉框增加文本("下拉框2","市、县级市")
    
16.     下拉框设置选项("下拉框2",0)
    
17.     省的名字=下拉框获取文本("下拉框0")
    
18.     市的名字=文件读配置(省的名字,省的名字,"rc:\\2222.txt")
    
19.     //调试输出(市的名字)
    
20.     变量 retarr
    
21.     变量 n = 字符串分割(市的名字,"|",retarr)
    
22.     遍历(变量 i=0;i < n;i++)
    
23.         // 消息框(retarr[i])
    
24.         //调试输出(retarr[i])
    
25.         下拉框增加文本("下拉框1",retarr[i])
    
26.     结束
    
27.    
    
28. 结束
    
29. 
    
30. 功能 获取县()
    
31.     下拉框选项清空("下拉框2")
    
32.     下拉框增加文本("下拉框2","市、县级市")
    
33.     下拉框设置选项("下拉框2",0)
    
34.     市的名字=下拉框获取文本("下拉框1")
    
35.     县的名字=文件读配置(市的名字,市的名字,"rc:\\2222.txt")
    
36.     调试输出(县的名字)
    
37.     变量 retarr
    
38.     变量 n = 字符串分割(县的名字,"|",retarr)
    
39.     遍历(变量 i=0;i < n;i++)
    
40.         // 消息框(retarr[i])
    
41.         // 调试输出(retarr[i])
    
42.         下拉框增加文本("下拉框2",retarr[i])
    
43.     结束
    
44. 结束
    
45. 
    
46. 
    
47. 
    
48. 
    
49. 功能 省_初始化()
    
50.     //这里添加你要执行的代码
    
51.     下拉框设置选项("下拉框0",0)
    
52.     下拉框设置选项("下拉框1",0)
    
53.     下拉框设置选项("下拉框2",0)
    
54. 结束

复制代码

年迈的虎牙丶

从硬盘里遍历出某个文件夹
知识点：①开始按钮的制作②文件搜索

1. 变量 线程句柄=0
   
2. 功能 开始_点击()
   
3.     如果(线程句柄==0)
   
4.         线程开启("操作","")
   
5.         按钮设置文本("开始","暂停")
   
6.     否则
   
7.         线程关闭(线程句柄)
   
8.         按钮设置文本("开始","开始")
   
9.     结束
   
10. 结束
    
11. 
    
12. 功能 操作()
    
13.     变量 文件名=编辑框获取文本("编辑框0")
    
14.     变量 路径=浏览框获取文本("浏览框0")
    
15.     变量 结果=搜索(路径,文件名)
    
16.     如果(结果)
    
17.         标签设置文本("结果",结果)
    
18.     否则
    
19.         标签设置文本("结果","没找到")
    
20.     结束
    
21.     按钮设置文本("开始","开始")
    
22. 结束
    
23. 
    
24. 功能 搜索(路径,文件名)
    
25.     变量 文件保存数组=数组(),文件夹保存数组=数组()
    
26.     如果(文件遍历(路径,文件保存数组,文件夹保存数组))
    
27.         变量 大小=数组大小(文件夹保存数组)
    
28.         遍历(变量 i = 0; i < 大小; i++)
    
29.             如果(文件名==文件夹保存数组[i])
    
30.                 返回 路径&"\"&文件夹保存数组[i]
    
31.             结束
    
32.             变量 返回值=搜索(路径&"\"&文件夹保存数组[i],文件名)
    
33.             如果(返回值)
    
34.                 返回 返回值
    
35.             结束
    
36.         结束
    
37.     结束
    
38.     返回 假
    
39. 结束

复制代码

年迈的虎牙丶

二级按钮.rar (1.66 MB, 下载次数: 18)

2019-11-30 22:13 上传

点击文件名下载附件 注册系统.rar (351.24 KB, 下载次数: 16)

2019-11-30 22:13 上传

点击文件名下载附件

年迈的虎牙丶

语音播报.rar (1.92 MB, 下载次数: 36)

2019-11-30 22:28 上传

点击文件名下载附件 选项卡无限动态创建各种控件.zip (1.85 KB, 下载次数: 22)

2019-11-30 22:29 上传

点击文件名下载附件

年迈的虎牙丶

SkinH_EL.rar (702.57 KB, 下载次数: 18)

2019-11-30 22:31 上传

点击文件名下载附件 Test2.7z (945 Bytes, 下载次数: 13)

2019-11-30 22:31 上传

点击文件名下载附件 选项卡页名称.7z (1.46 KB, 下载次数: 12)

2019-12-10 10:41 上传

点击文件名下载附件