vb创建托盘20120909

《vb创建托盘20120909》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、【包括：托盘左键、右键事件】添加两个窗体【frmMain】、【frmMenu】【frmMain】中添加控件PicturBox命名为Pic1，控件TextBox，命名Text1代码：OptionExplicit'强制定义类型DimWithEventscTrayIcoAscTray'托盘右键单击事件DimWithEventsMenuFrmAsfrmMenu'主窗体鼠标单击事件DimMeHideAsBoolean'是否已经隐藏了'-------------判断鼠标对托盘图标的单击是【左键】、还是【右键】。。。。PrivateSubcTrayIco_MouseClick(ByValBut

2、tonAsLong,ByValDBClickAsBoolean)SelectCaseButtonCasevbRightButtonIfDBClick=FalseThenPopupMenuMenuFrm.mPop2EndIfCasevbLeftButtonIfDBClick=TrueThenCallShowHideMeEndIfEndSelectEndSubPrivateSubForm_Load()SetcTrayIco=NewcTraySetMenuFrm=NewfrmMenuWithcTrayIco.AddTrayIcoPic1'用于替代的图片控件.SetTrayIconMe.

3、Icon.SetTrayTipMe.CaptionEndWith'OnTopMeMe.WindowState=vbNormalEndSub'-------------退出时提示“是否确认退出”PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)IfMsgBox("您真的要退出吗？",vbYesNo+vbDefaultButton1,"！退出提示")=vbYesThenEndElseCancel=TrueEndIfEndSubPrivateSubForm_Unload(CancelAsInteger)OnEr

4、rorResumeNextcTrayIco.DelTrayIcoUnloadMenuFrmSetcTrayIco=NothingSetMenuFrm=NothingEndSubPrivateSubMenuFrm_MenuClick2(ByValIndexAsLong)'托盘右键菜单点击事件DimstrAsStringstr=Text1.TextSelectCaseIndexCase0'显示/隐藏界面CallShowHideMeCase1Case2'选择默认数据库IfMid(str,InStrRev(str,"")+1)="456"Then'从字符串最右端的“”符号开始截取字段

5、MsgBox"您正在使用默认数据库！",vbOKOnly,"【提示】"EndIfCase3Case4'切换当前数据库UnloadMeCase5Case6UnloadMeEndSelectEndSub'PrivateFunctionShowHideMe()'显示或隐藏主窗体OnErrorResumeNextIfMe.WindowState<>vbNormalThenDimIAsLongMe.WindowState=vbNormalMe.Show'timerAutoHide.Enabled=FalseI=FormIsTop(5)IfI<>0ThenMe.Top=IIf(I=-1,0,

6、Screen.Height-TaskBarHeight-Me.Height)EndIfElseMe.WindowState=vbMinimizedMe.HideEndIfEndFunctionPrivateFunctionFormIsTop(ByValWC_PixAsLong)AsLong'窗体是否在屏幕上边或下边，，托盘右键【隐藏、显示窗体时需要】'在上顶边,返回-1'在下边,返回1'否则返回0OnErrorResumeNextIfMe.TopScreen.Hei

7、ght-TaskBarHeight-frmMain.Height-WC_Pix*15ThenDebug.Print"Top+OK"FormIsTop=1ElseFormIsTop=0EndIfEndFunction【frmMenu】中使用菜单编辑器一级：mPop2二级：显示/隐藏主界面名称：mPops2索引：0-名称：mPops2索引：1【-用于扩大间隔】选择默认数据库名称：mPops2索引：2-名称：mPops2索引：3【-用于扩大间隔】切换当前数据库名称：mPops2索引：4