编程学习biancheng.45soft.com 本站提供了各种在线教程和资料,供大家学习与参考.
编程学习
当前位置: 主页 > VB6 > 界面设计 > VB6 界面设计 状态栏窗格Panel事件

VB6 界面设计 状态栏窗格Panel事件

状态栏控件响应单击事件

Private Sub StatusBar1_PanelClick(ByVal Panel As MSComctlLib.Panel)
    Select Case Panel.Key
        Case "PTime"   '显示时间窗格
            Panel.Bevel = sbrRaised '面板凸出状态条
            If Panel.Alignment = sbrRight Then
                Panel.Alignment = sbrLeft
            Else
                Panel.Alignment = sbrRight
            End If
        Case "PDate"  '显示日期窗格
            Panel.Bevel = sbrNoBevel '面板不显示斜面
            If Panel.Alignment = sbrRight Then
                Panel.Alignment = sbrLeft
            Else
                Panel.Alignment = sbrRight
            End If
        Case Else
    End Select
End Sub



编程学习 VB6 界面设计 状态栏窗格Panel事件 转载请保留此行.谢谢.

VB6