vb 添加状态栏

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

/*****************************************/
关于 ms windows common controls 6.0 不能找到,解决方法
下载mscomctl.ocx控件,复制到c:\windows\system32目录下,并注册 开始菜单,运行,输入 regsvr32 mscomctl.ocx
 
posted @ 2015-03-06 12:25  zanglaowei  阅读(1599)  评论(0编辑  收藏  举报