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