VB6如何在托盘中写入应用程序图标.doc
《VB6如何在托盘中写入应用程序图标.doc》由会员分享,可在线阅读,更多相关《VB6如何在托盘中写入应用程序图标.doc(53页珍藏版)》请在咨信网上搜索。
1、VB6如何在托盘中写入应用程序图标1、新建立一个VB6工程,将Form1的ShowInTaskBar属性设置为False2、菜单:工程-添加模块 按“打开”这样就添加了一个新模块,名为Module1,保存为Module1.bas3、在Module1中写下如下代码: Option ExplicitPublic Const MAX_TOOLTIP As Integer = 64Public Const NIF_ICON = &H2Public Const NIF_MESSAGE = &H1Public Const NIF_TIP = &H4Public Const NIM_ADD = &H0Pub
2、lic Const NIM_DELETE = &H2Public Const WM_MOUSEMOVE = &H200Public Const WM_LBUTTONDOWN = &H201Public Const WM_LBUTTONUP = &H202Public Const WM_LBUTTONDBLCLK = &H203Public Const WM_RBUTTONDOWN = &H204Public Const WM_RBUTTONUP = &H205Public Const WM_RBUTTONDBLCLK = &H206Public Const SW_RESTORE = 9Publ
3、ic Const SW_HIDE = 0Public nfIconData As NOTIFYICONDATAPublic Type NOTIFYICONDATAcbSize As LonghWnd As LonguID As LonguFlags As LonguCallbackMessage As LonghIcon As LongszTip As String * MAX_TOOLTIPEnd TypePublic Declare Function ShowWindow Lib user32 (ByVal hWnd As Long, ByVal nCmdShow As Long) As
4、LongPublic Declare Function Shell_NotifyIcon Lib shell32.dll Alias Shell_NotifyIconA (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long4、在Form1的Load事件中写下如下代码:Private Sub Form_Load()以下把程序放入System Tray=System Tray BeginWith nfIconData.hWnd = Me.hWnd.uID = Me.Icon.uFlags = NIF_ICON Or NIF_MESS
5、AGE Or NIF_TIP.uCallbackMessage = WM_MOUSEMOVE.hIcon = Me.Icon.Handle定义鼠标移动到托盘上时显示的Tip.szTip = App.Title + (版本 & App.Major & . & App.Minor & . & App.Revision & ) & vbNullChar.cbSize = Len(nfIconData)End WithCall Shell_NotifyIcon(NIM_ADD, nfIconData)=System Tray EndMe.HideEnd Sub5、在Form1的QueryUnload事
6、件中写入如下代码:Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Call Shell_NotifyIcon(NIM_DELETE, nfIconData)End Sub6、在Form1的MouseMove事件中写下如下代码:Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Dim lMsg As SinglelMsg = X / Screen.TwipsPerPixelXSe
7、lect Case lMsgCase WM_LBUTTONUPMsgBox 请用鼠标右键点击图标!, vbInformation, 实时播音专家单击左键,显示窗体ShowWindow Me.hWnd, SW_RESTORE下面两句的目的是把窗口显示在窗口最顶层Me.ShowMe.SetFocus Case WM_RBUTTONUP PopupMenu MenuTray 如果是在系统Tray图标上点右键,则弹出菜单MenuTray Case WM_MOUSEMOVE Case WM_LBUTTONDOWN Case WM_LBUTTONDBLCLK Case WM_RBUTTONDOWN Cas
8、e WM_RBUTTONDBLCLK Case ElseEnd SelectEnd Sub7、现在将程序保存起来运行看看系统托盘处是否增加了一个本工程的图标。单击此图标,Form1就自动弹出来了。 将个性化进行到底 VB中打造个性进度条 2005-03-26 13:28作者:伍学慧出处:天极网责任编辑:方舟控件下载简介VB的第三方控件ccrpProgressBar是一个进度条的控件,可以有多种形态供选择。比起VB 中自带的进度条控件ProgressBar更有个性。 使用实例:用ccrpProgressBar制作各式各样的进度条在VB中自带了一个进度条控件ProgressBar,但功能简单。我向
9、大家推荐一个VB的第三方进度条控件ccrpProgressBar。该控件功能强大,有多种形态供选择,而且只需要简单的设置控件的属性就能实现,非常的好用。下面通过一个例子向大家介绍该控件的用法。(1) 加载控件启动Visual Basic 6.0,创建一个工程并保存为工程1.vbp,同时产生一个名为Form1的窗口。在工具箱的空白处单击鼠标右键,从弹出的快捷菜单中启动部件窗口,如图1所示。图1点击浏览按钮,从存放ccrpProgressBar控件的文件夹中找到ccrpprg.ocx文件。点击应用后ccrpProgressBar控件就添加到工具箱中。如图2。图2(2) 设计窗体和控件向窗体中添加9
10、个ccrpProgressBar控件和一个Timer控件。如图3。图3Timer控件属性页的设置如图4所示。Interval的值设置为100,与ccrpProgressBar控件的默认值一致。Enabled设置为False。图4(3) ccrpProgressBar控件的主要属性Max:最大值。默认100。Min:最小值。默认0。Value:进度条的当前值。Alignment:显示表示进度的文字的位置。分别为vbCenter(中间),vbLeftJustify(左边),vbRightJustify(右边)。Appearance:进度条的3种外观。分别为prgFlat(平面),prg3D(立体)
11、 prg3Draised(立体凸起)。BackColor:进度条的背景色。FillColor:进度条的颜色。ForeColor:表示进度文字的字体颜色。Picture:进度条可用图片表示进度,从这里选择需要的图片。Shape:进度条的形状。有prgRectangle(默认),prgEllipse和prgRoundedRect三种。Smooth: 是否平滑显示进度。True为平滑显示进度。Vertical:是否垂直显示进度条。True为垂直显示。Style:进度条的风格。当选ChkGraphical时为用图片表示进度。AutoCaption:表示进度的文字提示所采用的表现形式。CcrpPerce
12、ntage为百分比的形式,ccrpValueOfMax为类似 1 of 100 的表现形式。Value为数字的表现形式。(4)本例中ccrpProgressBar控件属性的具体设置本例中共使用了9个ccrpProgressBar控件,每个ccrpProgressBar控件的具体设置如下:1. CcrpProgressBar1:保持属性各项不变。2. CcrpProgressBar2:Appearance的值设置为prg3D(表示用立体外观)。3. CcrpProgressBar3:Appearance的值设置为prg3Draised(立体凸起),AutoCaption设为ccrpPercent
13、age(百分比的形式表示进度),Alignment设为vbLeftJustify(表示进度的文字靠左)。4. CcrpProgressBar4:BorderStyle设置为ccrpFixedSingle,AutoCaption设为ccrpPercentage(百分比的形式表示进度),Alignment设置为vbCenter(表示进度的文字在中间)5. CcrpProgressBar5:Style设置为chkGraphical(用图片来表示进度)。单击Picture属性,选择你准备好的图片。同样,AutoCaption也设为百分比的形式表示进度,不过这次Alignment的值设置为vbRight
14、Justify(进度文字靠右)。6. CcrpProgressBar6:Shape设置为prgEllipse(椭圆型),AutoCaption设为ccrpValueOfMax(文字以类似 1 of 100 的表现形式)7. CcrpProgressBar7:Shape设置为prgRoundedRect(圆角矩形),AutoCaption设为ccrpValue(数字形式)。8. CcrpProgressBar8:Vertical设置为True,表示垂直显示进度条。Smooth设置为True,表示平滑显示进度。9. CcrpProgressBar9:Vertical属性同8的设置,不过这回给它加上
15、百分比显示, AutoCaption设为ccrpPercentage。然后再分别调整好9个CcrpProgressBar控件的FillColor和ForeColor属性,搭配好颜色。使界面更协调。(5)编写代码设置好控件的属性后,在程序中加入以下代码,完成进度条的功能。Dim i As IntegerPrivate Sub Form_Load()Timer1.Enabled = True2个垂直显示的进度条的位置With ccrpProgressBar8.Left = 5280.Top = 360.Height = 3800.Width = 396End WithWith ccrpProgre
16、ssBar9.Left = 6200.Top = 360.Height = 3800.Width = 396End WithEnd SubPrivate Sub Timer1_Timer()If i = 100 ThenEndEnd IfccrpProgressBar1.Value = iccrpProgressBar2.Value = iccrpProgressBar3.Value = iccrpProgressBar4.Value = iccrpProgressBar5.Value = iccrpProgressBar6.Value = iccrpProgressBar7.Value =
17、iccrpProgressBar8.Value = iccrpProgressBar9.Value = ii = i + 1 变量i自增End Sub运行程序,运行中的效果如图5所示。用VB打造“超酷”个性化菜单众所周知,MS Office 2003推出已经有一段时间了,但我们依然不会忘记Office XP刚刚推出时其令人耳目一新的菜单给我们留下的深刻印象。突起的悬浮式图标,不同寻常的菜单项填充方式,不仅让办公一族们赞不绝口,更让广大的程序员和编程爱好者对这种风格的菜单的制作产生了浓厚的兴趣。所以,在这篇文章里,我们就来好好地研究研究用VB怎么制作这种风格的菜单,在文章的最后,我将给出源代码的
18、下载地址。事实上,在了解其原理以后,不论是用VB、VC还是Delphi,都能够制作出XP风格的菜单。不仅如此,我们还可以制作出更加充满个性的另类风格的菜单,比如3D立体风格、渐变风格、多彩风格等等。只有想不到的,没有做不到的。Follow me! 现在,我想有必要说一说我们现在要做的事情。事实上,我们只要做一个菜单类就行了。但谁都会明白,只做一个菜单类是不够的,我们需要一个程序,或者更详细的说,是一个窗体,来测试我们的菜单类。在我个人的开发过程中,我是先写的菜单类,后写的测试窗体,但为了让大家先领略一下写好的菜单类在应用时是多么的方便,所以让我们先来看看测试窗体:(1)打开VB,新建“标准EX
19、E”工程。(2)-下面是窗体的控件:组件名称属性值FormNamefrmMainCaption菜单例子FrameNamefraStyleCaption菜单风格LabelNamelblHelpCaption在窗体空白处单击鼠标右键OptionButtonNameopnStyleCaptionWindow 标准Index0OptionButtonNameopnStyleCaptionXP 风格Index1OptionButtonNameopnStyleCaption3D 立体风格Index2OptionButtonNameopnStyleCaption渐变风格Index3OptionButtonN
20、ameopnStyleCaption多彩风格Index4其实就是在窗体上添加了一个Frame,然后在Frame里添加OptionButton控件数组,用来设置菜单风格,还有一个Label,上面只显示一行提示文字,非常简单。(3)窗体代码:Option ExplicitPrivate Declare Function GetCursorPos Lib user32.dll (lpPoint As POINTAPI) As LongPrivate Type POINTAPIX As LongY As LongEnd TypeDim menu As cMenuPrivate Sub Form_Loa
21、d() 初始化菜单并添加菜单项Set menu = New cMenumenu.CreateMenumenu.AddItem open, LoadPicture(imagesopen.ico), 打开, MIT_STRINGmenu.AddItem save, LoadPicture(imagessave.ico), 保存, MIT_STRINGmenu.AddItem print, LoadPicture(imagesprint.ico), 打印, MIT_STRINGmenu.AddItem find, LoadPicture(imagesfind.ico), 查找, MIT_STRING
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB6 如何 托盘 写入 应用程序 图标
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【可****】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【可****】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。