当前位置: 首页>>代码示例>>VB.NET>>正文


VB.NET StatusBarPanel.Width属性代码示例

本文整理汇总了VB.NET中System.Windows.Forms.StatusBarPanel.Width属性的典型用法代码示例。如果您正苦于以下问题:VB.NET StatusBarPanel.Width属性的具体用法?VB.NET StatusBarPanel.Width怎么用?VB.NET StatusBarPanel.Width使用的例子?那么, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在System.Windows.Forms.StatusBarPanel的用法示例。


在下文中一共展示了StatusBarPanel.Width属性的1个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。

示例1: InitializeStatusBarPanels

Friend WithEvents statusBar1 As System.Windows.Forms.StatusBar

Private Sub InitializeStatusBarPanels()

    ' Create a StatusBar control.
    statusBar1 = New StatusBar

    ' Dock the status bar at the top of the form. 
    statusBar1.Dock = DockStyle.Top

    ' Set the SizingGrip property to false so the user cannot 
    ' resize the status bar.
    statusBar1.SizingGrip = False

    ' Create two StatusBarPanel objects to display in statusBar1.
    Dim panel1 As New StatusBarPanel
    Dim panel2 As New StatusBarPanel

    ' Set the width of panel2 explicitly and set
    ' panel1 to fill in the remaining space.
    panel2.Width = 80
    panel1.AutoSize = StatusBarPanelAutoSize.Spring

    ' Set the text alignment within each panel.
    panel1.Alignment = HorizontalAlignment.Left
    panel2.Alignment = HorizontalAlignment.Right

    ' Display the first panel without a border and the second
    ' with a raised border.
    panel1.BorderStyle = StatusBarPanelBorderStyle.None
    panel2.BorderStyle = StatusBarPanelBorderStyle.Raised

    ' Set the text of the panels. The panel1 object is reserved
    ' for line numbers, while panel2 is set to the current time.
    panel1.Text = "Reserved for important information."
    panel2.Text = System.DateTime.Now.ToShortTimeString

    ' Set a tooltip for panel2
    panel2.ToolTipText = "Click time to display seconds"

    ' Display panels in statusBar1 and add them to the
    ' status bar's StatusBarPanelCollection.
    statusBar1.ShowPanels = True
    statusBar1.Panels.Add(panel1)
    statusBar1.Panels.Add(panel2)

    ' Add the StatusBar to the form.
    Me.Controls.Add(statusBar1)
End Sub


' If the user clicks the status bar, check the text of the 
' StatusBarPanel.  If the text equals a short time string,
' change it to long time display.
Private Sub statusBar1_PanelClick(ByVal sender As Object, _
    ByVal e As StatusBarPanelClickEventArgs) _
        Handles statusBar1.PanelClick
    If (e.StatusBarPanel.Text = _
        System.DateTime.Now.ToShortTimeString) Then
        e.StatusBarPanel.Text = System.DateTime.Now.ToLongTimeString
    End If
End Sub
开发者ID:VB.NET开发者,项目名称:System.Windows.Forms,代码行数:62,代码来源:StatusBarPanel.Width


注:本文中的System.Windows.Forms.StatusBarPanel.Width属性示例由纯净天空整理自Github/MSDocs等开源代码及文档管理平台,相关代码片段筛选自各路编程大神贡献的开源项目,源码版权归原作者所有,传播和使用请参考对应项目的License;未经允许,请勿转载。