欢迎来到 黑吧安全网聚焦网络安全前沿资讯,精华内容,交流技术心得!

VB编写托盘程序

  • 软件大小:1.99 MB
  • 软件语言:简体中文
  • 软件类型:综合教程
  • 软件授权:免费教程
  • 更新时间:2006-08-01
  • 标签:
  • 开 发 商:http://www.myhack58.com
  • 应用平台:WinXP, Win7, Win8, WinAll
软件评分
网友评分:3

同类人气软件

立即下载

VB编写托盘程序软件介绍


   首先,先做下广告 http://www.pyb.net.ru (烂泥天空) 这是我的论坛 一个休闲 娱乐 技术 全方位的论坛  欢迎大家光临 论坛现在招斑竹N名 条件是多发贴 发好贴 有兴趣的朋友跟我联系 QQ:373168212 (教程收录人员请保留这部分)

////////////////////////////////////////////////////////////////////

这是我做的第四个vb api编程的例子了 都是一些大家在软件中经常看到的功

能,不知道大家喜不喜欢 希望对大家有所帮助 也非常希望你们对我的教程有

不满意的到论坛提出建议................

这个例子是调用ShellAPI的Shell_NotifyIcon函数完成的

Public Declare Function Shell_NotifyIcon Lib "shell32.dll"
(ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
  
其中dwMessage 有三种取值:NIM_ADD、NIM_DELETE和NIM_MODIFY
,分别表示添加、删除和修改指定的托盘区域中的图标;
  lpData是一个指向NOTIFYICONDATA结构的指针,NOTIFYICONDATA的
结构如下:
  Public Type NOTIFYICONDATAcbsize as long 结构所占字节数 hw
nd as long 处理返回消息机制的窗口句柄 uid as long 定义的图标识
别符 uflags as long 标志 ucallbackmessage as long 用户定义的消
息 hicon as long 托盘中所显示图标的句柄 sztip as string * 64
提示文本
  End Type

本例子需要一个按钮控件 以及PopupMenu(就是那个下拉菜单) 请看演示:

界面已经设计好了  下面对各个控件添加代码  好了 我们测试以下 因为时间
关系所以不能解释所有代码的意思  希望你们有什么不明白的可以上网查询
也可以向我提出  这个地方要根据我们刚才设置的名字来得
 If lMsg = WM_RBUTTONUP Then PopupMenu file  '右健单击弹出菜单

不好意思  刚才失误  这里我单词打错了 是  file  现在看下

////////////////////////////////////////////////////////////////////
程序完整代码如下:

'声明部分
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" _
    (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long  
Private nfIconData As NOTIFYICONDATA           
Const MAX_TOOLTIP As Integer = 32            '这部分是声明常量
 Const NIF_ICON = &H2                          '删除图标
 Const NIF_MESSAGE = &H1
 Const NIF_TIP = &H4
 Const NIM_ADD = &H0                          '添加图标到任务栏提区
 Const NIM_DELETE = &H2
 Const WM_MOUSEMOVE = &H200
 Const WM_LBUTTONDOWN = &H201
 Const WM_LBUTTONUP = &H202
 Const WM_LBUTTONDBLCLK = &H203
 Const WM_RBUTTONDOWN = &H204
 Const WM_RBUTTONUP = &H205
 Const WM_RBUTTONDBLCLK = &H206
 Const SW_RESTORE = 9
 Const SW_HIDE = 0
 Private Type NOTIFYICONDATA
    cbSize           As Long
    hwnd             As Long
    uId              As Long
    uFlags           As Long
    ucallbackMessage As Long
    hIcon            As Long
    szTip            As String * 32
End Type

Private Sub Command1_Click() '这里是隐藏到托盘的代码
 nfIconData.hwnd = Me.hwnd
  nfIconData.uId = Me.Icon
  nfIconData.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
  nfIconData.ucallbackMessage = WM_MOUSEMOVE
  nfIconData.hIcon = Me.Icon.Handle
  nfIconData.szTip = "烂泥api教程   制作与 2006.8.1  " & vbCrLf
  nfIconData.cbSize = Len(nfIconData)
  Call Shell_NotifyIcon(NIM_ADD, nfIconData)
  Me.Hide
End Sub


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)  '这部分是最小到托盘以后鼠标对他所触发的事件
 Dim lMsg As Single
  lMsg = X / Screen.TwipsPerPixelX  '屏幕横向(X)分辨率
  If lMsg = WM_RBUTTONUP Then PopupMenu wjcd  '右健单击弹出菜单
  If lMsg = WM_LBUTTONUP Then Call Shell_NotifyIcon(NIM_DELETE, nfIconData): Me.Show
  '左键单击卸载托盘图标并显示窗体
End Sub
////////////////////////////////////////////////////////////////////

  • 热门下载