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外部库。ＰＣ桌面端添加	NotifyIconDesktop.dll，dzHWdesktop.dll外部库.
	Dim ExitCondition
	AppName ="系统托盘程序演示"
	EmailName = "[e-mail]"
	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