你的位置：
怎么去除托盘图标
01:28:13 |
来源: 按键精灵资源站
一个程序,若右下角带有托盘图标的话...通过进程结束的话,都无法把托盘图标给去掉..
有没有大神能告诉我一下..通过代码去除托盘图标的代码..感激不尽..(用鼠标移动过去的就算了吧..那个地球人都知道的..)你的位置：
使用懒人插件同步网络时间
12:59:07 |
来源: 按键精灵资源站
感谢lxj1985提供的 很方便
代码如下：
Q源码及插件：下载地址请访问原帖
Event Form1.Load
& & Form1.Timer2.Enabled = False
& & Form1.Label6.Visible = 0
Event Form1.Timer1.Timer
& & Form1.Label4.Caption = Now
Event Form1.Button1.Click
& & Form1.Label6.Caption = && '网络时间清零
& & temp = 0 '计时器清零
& & t = timer
& & Form1.Timer2.Enabled = true
& & 网络time = 获取hao123时间()
& & tAdd = timer - t '获取网络时间耗时， 单位秒
& & Form1.Label6.Caption = DateAdd(&s&, - tAdd, 网络time)'用于显示
& & Dim MyArray
& & MyArray = Split(网络time, & &)
& & tmpd = MyArray(0) : tmpt = MyArray(1)
& & Call Plugin.lxj_Plug.lxj_SetTime(tmpd, tmpt)
& & Delay 100
Event Form1.Timer2.Timer
& & 网络时间 = Form1.Label6.Caption
& & form1.Label5.Caption = DateAdd(&s&, temp, 网络时间)
& & temp = temp +1
Function 获取hao123时间()
Set xmlHttp = CreateObject(&Microsoft.XMLHTTP&)
xmlHttp.Open &get&, &/1234&, False
xmlHttp.send
sdate = ucase(xmlhttp.getResponseHeader(&Date&))
Set xmlHttp = nothing
获取hao123时间 = cdate(trim(mid(sdate, 5, instr(sdate, &GMT&) - 6))) + 8 / 24
End Function[/code]