文件名称：VB6实现浮动的信息提示特效.rar
文件大小：12KB
文件格式：RAR
更新时间：2022-07-30 11:09:00
VB源码-窗体界面
这是一款类似网页浏览器中的浮动工具栏风格的VB窗口提示特效，信息显示条控件测试，使用了 Click 事件。运行后在窗口的最上面你会看到提示文字。我们可以编写以下代码，实现对信息提示栏的控制： Private Sub btnShow_Click() ' 显示 ctlInfoBar.ShowInfo txtWhatToSay.Text, vbExclamation, chkAutoClose.Value = vbChecked, chkBlink.Value = vbChecked End Sub Private Sub ctlInfoBar_Click() MsgBox "使用了 Click 事件。", vbInformation, "信息提示条测试" End Sub Private Sub ctlInfoBar_CloseClick() MsgBox "使用了 CloseClick 事件，提示条关闭。", vbInformation, "信息提示条测试" ' 隐藏 ctlInfoBar.Hide End Sub
【文件预览】：
srcfans.com
----InfoBar()
--------ctlInfoBar.ctx(6KB)
--------InfoBarTest.vbp(682B)
--------ctlInfoBar.ctl(44KB)
--------start.vbg(66B)
--------MSSCCPRJ.SCC(341B)
--------Form1.frx(2KB)
--------InfoBar.vbp(1KB)
--------Form1.frm(3KB)
--------InfoBar.vbw(56B)
--------InfoBarTest.vbw(51B)