资源说明:VB自定义窗口的状态栏,一个使用StatusBar的例子,使状态栏显示时间,字体和相关的操作提示等信息,主要是使用VB StatusBar实现,学习一下如何对其进行设置等。下面的参数设置对应实现状态栏显示的功能:
名称---------作用------------
CmdItalic “斜体”按钮
CmdBold “粗体”按钮
CmdExit “退出”按钮
CmdNew “重写”按钮
Text1 文本框
frmStatusBar 主窗体
staSample 状态栏
比如下面的显示“清空文本框”功能的例子:
'当鼠标移动到“重写”按钮上时
Private Sub CmdNew_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'把状态栏的第一个Panels中的Text属性设为"清空文本框"的帮助信息
staSample.Panels(1).Text = ""
staSample.Panels(1).Text = "清空文本框"
End Sub
本源码包内暂不包含可直接显示的源代码文件,请下载源码包。