?? mobile.sbp
字號:
?version
6.50
0
Form1
238
268
C:\Documents and Settings\admin\桌面\托盤\ni.ico
1
systraypc.dll
3
dzHW.dll
NotifyIcon.dll
TreeView.dll
2
ni:NotifyIcon
dz:dzHW
0
Sub designer
addform(Form1,"","",220,220,220)@
addmenuitem(form1,mnudzSpy,"菜單",True,False)@
addmenuitem(mnudzspy,mnuAbout,"關于",True,False)@
addmenuitem(mnudzspy,mnuHide,"進入后臺",True,False)@
addmenuitem(mnudzspy,mnuExit,"退出",True,False)@
End Sub
@EndOfDesignText@
Sub Globals
'設備端添加NotifyIcon.dll,dzHW.dll外部庫。PC桌面端添加 NotifyIconDesktop.dll,dzHWdesktop.dll外部庫.
Dim ExitCondition
AppName ="系統托盤程序演示"
EmailName = "tmxt_fy@qq.com"
CompanyName = "@ 2009 云飛工作室"
VersionNumber = "V 1.0.1-測試版"
End Sub
Sub App_Start
'初始值'初始化類的外部庫
ExitCondition = False
dz.New1 '創建dzHW組件
ni.New1 '創建NotifyIcon組件
Form1.Text = AppName
ni.IconText = AppName '設置圖標文字,設備端設備端不顯示
ni.Add
Form1.Show
End Sub
Sub mnuAbout_Click
'關于
Msgbox(AppName & CRLF & VersionNumber & CRLF & CompanyName & CRLF & EmailName, "關于")
End Sub
Sub mnuExit_Click
'退出程序
ExitCondition = True
AppClose
End Sub
Sub Form1_Close
'關閉事件
If ExitCondition = False Then
'要求關閉。不關閉...
form1.CancelClose
'...隱藏窗口 - SW_HIDE
dz.ShowWindow(dz.GetActiveWindowHandle, 0)
Else
'刪除圖標
ni.Remove
End If
End Sub
Sub ni_Click
'單擊系統托盤圖標
Dim hWnd
hWnd = dz.GetWindowHandle("null", AppName)'獲取窗口句柄名稱和類的名稱
dz.ShowWindow(hWnd, 5)'顯示窗口 - SW_SHOW
dz.ShowWindow(hWnd, 9)'還原窗口 - SW_RESTORE
dz.BringWindowToFront(AppName)'讓程序的窗口成為前端窗口
End Sub
Sub mnuHide_Click
'進入后臺
dz.ShowWindow(dz.GetActiveWindowHandle, 0)'隱藏 - SW_HIDE
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -