189 8069 5689
不知道你说的VB是6.0还是vb点虐 ，我用的是vs2005的vb点虐 ,在控件中找到NotifyIcon控件是vb点虐 中专门显示尺培托衫困卖盘程序的控件。
创新互联公司服务项目包括四子王网站建设、四子王网站制作、四子王网页制作以及四子王网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，四子王网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到四子王省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
Private Sub NotifyIcon1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseMove
Dim t As String
t = "我的程序"
NotifyIcon1.Text = t
End Sub
自己网上查查它的用法或逗，很简单的
一个提醒程序 最典型的就是闹钟程序 网上有不少个性化的提醒程序下载 但是大部分都是以时间为主的闹钟提醒 我们也可以用来打造一个适合自己的提醒程序 比如监控一个某个应用程序的变化然后发出声音提醒自己等等
一个提醒程序 最重要能在符合提醒条件的时候发出声音来提醒使用者 在这里 我们就对具体的提醒条件啰嗦了 只针对如何实现提醒声音的播放进行说明
在的 net组件中 并没有提供播放声音文件的组件 但是我们可以通过使用Com组件来播放声音文件 但是 要注意的事 我们只需要发出提示的声音而已 并不需要像播放器那样播放不同格式的声音文件和繁多的列表 所以我们可以通过API函数来循环播放单个的声音文件
在WindowsAPI函数的有一个PlaySound函数 它用于播放WAV格式的声音文件 我们可以用它来反复播放一个指定的WAV文件来实现提醒功能
首先在中引入API声明
Public Declare Function PlaySound Lib winmm dll （ByVal lpszSoundName As String ByVal hModule As Integer ByVal dwFlags As Integer） As Integer
然后定义几个我们程序中必须用到的dwFlags参数常量
同步调用PlaySound中指定的文件 播放完WAV文件后才返回结果
Const SND_SYNC As Integer = H
异步调用PlaySound中指定的文件 不必等到播放完WAV文件后就直接返回结果 在这里我们可以调用异步方法来播放文件
Const SND_ASYNC As Integer = H
反复播放指定的WAV文件誉誉
Const SND_LOOP As Integer = H
在调用的时候hModule参数必须为耐虚拿
需要停止的时候通过调用PlaySound（vbNullString ）来实现现在我们在窗体上放置两个按钮 一个用于开始播放 一个用于停止播放 然后再放置一个TextBox控件 用于指定WAV文件的路径 界面如下图所示
图一 示例界面
完整昌搭代码如下
Public Declare Function PlaySound Lib winmm dll （ByVal lpszSoundName As String ByVal hModule As Integer ByVal dwFlags As Integer） As Integer
Const SND_FILENAME As Integer = H
Const SND_ALIAS As Integer = H
Const SND_SYNC As Integer = H
Const SND_ASYNC As Integer = H
Const SND_LOOP As Integer = H
Private Sub Button _Click（ByVal sender As System Object ByVal e As System EventArgs） Handles Button Click
PlaySound（TextBox Text SND_LOOP Or SND_ASYNC）
End Sub
Private Sub Button _Click（ByVal sender As System Object ByVal e As System EventArgs） Handles Button Click
PlaySound（vbNullString ）
End Sub
运行 在TextBox 中输入有效的WAV文件的路径 然后单击开始 就可以循环播放声音了 单击停止按钮就可以停止播放
lishixinzhi/Article/program/net/201311/12453
1 . 把一粗颤个窗体做为主窗体蚂氏，
opacity=0 设置为透明
showintaskbar=false 不在任务栏出现
添加contextmenustrip控件设置右键菜单，按钮或其他自己设置
添加NotifyIcon1控件设置闷凳散图盘图标
2， 语句
Dim oM As Bitmap = New Bitmap(“图标文件路径”)
NotifyIcon1.Icon = Icon.FromHandle(oM.GetHicon()) ‘设置显示的图标
NotifyIcon1.BalloonTipTitle = "显示的信息"
NotifyIcon1.BalloonTipTitle = modStart.SSYSTEMNAME