TC官方合作论坛

标题: 单开tc窗口代码 [打印本页]
作者: onlyclxy    时间: 2013-11-3 03:03
标题: 单开tc窗口代码
本帖最后由 onlyclxy 于 2013-11-4 23:49 编辑

  见有人不知道这个是干嘛的，就补充一下这个代码的作用
  非此程序一般情况下，是双击打开程序一次，就会弹出一个窗口，打开二次就会弹出两个窗口，打开五次就会弹出五个窗口。我写的这个程序无论打开多少次，都只会弹出一个窗口。。。（第一次双击打开这个程序在不关闭的情况下，如果第二次再次双击打开这个程序，则会弹出第一次打开的程序。并且自动关闭第二次打开的程序。）
  如果有用的着的可以参考下！
  我之前也在新手区问过这个问题，自己做的一个东西，不想因为记性不好而重复打开好多个，占任务栏。后来有人说，可以检测进程中是否有这个程序，如果有的话，就在初始化里关闭自身。于是我自己试了试发现有些问题：文件名变化了，进程名也就变化了。不可靠。就想到窗口标题。实验了一阵，最后结果是这样的：我新加进一个起辅助的窗口，这个辅助的窗口默认开启并且隐藏。每次程序打开时会自动检测一下有没有这个辅助窗口的标题，如果查询到有的话，说明这个程序是开启的，就激活这个程序并且关闭自身。如果查询不到有这个标题，就打开窗口。代码如下：

  1. #include"子窗口.t"
  2. 空间 只打开一个窗口
  3. //默认空间
  4. //项目用时只,需要删除掉辅助的对话框即可.

  6. 功能 打开子窗口_点击()
  7.     //显示子窗口
  8.     子界面句柄=控件.打开窗口("子窗口")
  9. 功能结束

  11. 功能 隐藏子窗口_点击()
  12.     //隐藏子窗口
  13.     子界面句柄=控件.打开窗口("子窗口",假)
  14. 功能结束

  16. 功能 初始化()
  17.     //查询是否存在子窗口
  18.     窗口句柄=窗口.找到窗口("子窗口")
  19.     辅助.消息框("子窗口句柄"&窗口句柄,"提示")
  20.     //若是不存在子窗口,则返回的窗口句柄为0,这里通过查询字符长度判断窗口句柄是否有效.
  21.     长=字符串.长度(窗口句柄)   
  22.     如果(长>1)
  23.         //查询到有子窗口存在,关掉自身,同时激活原主窗口
  24.         辅助.消息框("找到子窗口,句柄:"&窗口句柄&",本程序即将关闭并且激活主窗口!","提示")
  25.         //通过子窗口查询到它的父窗口,即这里的主窗口
  26.         父窗口句柄=窗口.得到父窗口(窗口句柄)
  27.         //还原最小化的窗口
  28.         窗口.还原(父窗口句柄)
  29.         //将窗口置顶一次
  30.         窗口.激活(父窗口句柄)
  31.         辅助.退出()  
  32.     否则
  33.         //未查询到有子窗口存在,初始化主窗口并且打开子窗口.
  34.         辅助.消息框("未找到子窗口存在,运行主窗口!","提示")
  35.         //默认子窗口是隐藏的,不需要打开
  36.         子界面句柄=控件.打开窗口("子窗口",假)
  37.     如果结束
  38. 功能结束

  40. 空间结束
  41. //空间结束语句
复制代码
这个代码有两个窗口，一个窗口标题是“主窗口”，一个窗口标题是“子窗口”。名字可以随意改。程序里有两个按钮没有实际作用，主要是里面的初始化代码，复制了就能用。
这个东西恐怕是有很大的局限性，但对于一些特定不需要多开的程序，还是有些作用的。



作者: as128214121    时间: 2013-11-3 09:07
啥？。。。。
作者: onlyclxy    时间: 2013-11-4 23:55
as128214121 发表于 2013-11-3 09:07
啥？。。。。

你好。第一次发帖，没想到会让人看不懂。。我又做了个补充说明。。大神你要是有时间可以看下，我要是还没有说明白他的作用就继续在改吧！！谢谢留言！
作者: as128214121    时间: 2013-11-5 06:46
onlyclxy 发表于 2013-11-4 23:55
你好。第一次发帖，没想到会让人看不懂。。我又做了个补充说明。。大神你要是有时间可以看下，我要是还没 ...

哦。。。
作者: 君凌天下    时间: 2014-2-23 07:46
好好
作者: ytmpl96557    时间: 2014-5-27 22:18
看看研究下
作者: xt001118    时间: 2014-5-29 19:01
11111111111
作者: syczsy    时间: 2014-6-10 00:39
Uqhaha
作者: tcgaoshou    时间: 2014-6-10 20:33
看看啊那
作者: you1223    时间: 2014-6-11 01:35
twtwd
作者: 1817174328    时间: 2015-7-31 11:26
滴答滴答滴答滴答滴答的
作者: tbmbx2017    时间: 2016-9-11 01:31
支持楼主，感谢分享



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1