vb StatusBar控件里的PanelDblClick事件怎么用
发布网友
发布时间：2022-04-19 05:21
共2个回答
热心网友
时间：2022-04-19 06:50
PanelClick事件：单击panel对象时引发。参数Panel返回单击了哪个面板对象。
PaneldblClick事件：双击panel对象时引发。
panels属性：返回panel对象集合。
每1个panel面板的属性：在程序中，可通过text,picture,width属性动态地改变任何1个panel对象的文本，图象，宽度。斜面bevel属性：该面板是凹下（值1）还是凸出（值2）还是平面（值0）。如statusbar1.panels(1).bevel=2.关健字key属性：代码中标识1个panel 对象，如在panelclick事件中用select case panel.key来区分单击了不同的面板。样式style属性：有0-7种样式，如0为自定文本与图形(缺省),sbrtime(5)为显示时间，sbrdate值6，为显示日期等，还有检测numlock键的状态等。自动调整大小autosize属性：当状态条所在form窗体大小改变时，调整状态条大小以自动匹配，为0不会自动改变大小，为1可自动缩放，但最小宽度不会小于minwidth属性指定的宽度。为2面板的宽度与其内容匹配。
style属性：设置statusbar控件的类型。有sbrNormal(0)为显示所有panel对象，和sbrSimple（1）为显示1个大面板，且该面板不能通过面板集合来控制。
SimpleText属性：当style属性设置为sbrSimple时，设置显示文本。
添加面板panel（也叫"窗格"），在设计时单击鼠标右键选"属性"打开属性页进行添加，在代码中用add方法添加，格式：
statusbar1.Panels.Add 索引index, 关键字key, 文本text, 样式style, 图片picture
statusbar1.panels.add 3,"lxn","这是第1条",0,LoadPicture("e:\dmt\face1.ico")
1个简例：
Private Sub StatusBar1_PanelClick(ByVal Panel As MSComctlLib.Panel)
Select Case Panel.Key
Case "lxn"
Beep
Case "ldd"
Unload Me
Case "yqs"
StatusBar1.Panels("lxn").Text = "李新宁"
...
End Select
End Sub
