这个无需代码，只要建一个窗体并放入statusbar控件，进入该属性自定义，插入两个窗格，样式分别为sbrtime和sbrdate即可。
成都创新互联公司主营沂南网站建设的网络公司,主营网站建设方案,成都APP应用开发,沂南h5重庆小程序开发公司搭建,沂南网站营销推广欢迎沂南等地区企业咨询
1.新建一工程
2.添加"部件" ms windows common controls 6.0
3.将StatusBar控件加至窗体中
4.右键点击该控件,选"属性",可设置其外观,窗格数,字体及图片
5.通过代码可改变状态栏中的显示内容
如
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyInsert Then
If StatusBar1.Panels(2).Text = "插入" Then
StatusBar1.Panels(2).Text = "改写"
Else
StatusBar1.Panels(2).Text = "插入"
End If
End If
End Sub
选择菜单项“工程”并单击子选项“部件”，将显示“部件”对话框，在空间里面找到“Microsoft
Windows
Common
Controls
6.0”选项，在前面打勾，点击确定。
这样就会将“状态栏”和“工具栏”之类的控件添加到工具箱里面。
然后再工具箱里面找有两个“小凹陷(很像状态栏的样子)“的就是了，它的英文名字statusbar，双击即添加进去。
用树结构TreeView，添加图标就可以实现！
再添加一个ImageList 想添加什么图标就自行添加。
VB.NET中没有了StatusBar,更新为了StatusStrip
效果是一样的,功能还强大一些.
默认在"菜单和工具栏"中.
在状态栏的 Panel 属性中，有一项可以将整个 Panel 定义成一个进度条的，你不妨试试。在它的属性页中有设置。
