VB.NET Cursors.UpArrow属性代码示例

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› VB.NET›VB.NET教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

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

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

示例1: InitializeRadioButtonsAndGroupBox

Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton

Private Sub InitializeRadioButtonsAndGroupBox()

    ' Construct the GroupBox object.
    Me.GroupBox1 = New GroupBox

    ' Construct the radio buttons.
    Me.RadioButton1 = New System.Windows.Forms.RadioButton
    Me.RadioButton2 = New System.Windows.Forms.RadioButton
    Me.RadioButton3 = New System.Windows.Forms.RadioButton

    ' Set the location, tab and text for each radio button
    ' to a cursor from the Cursors enumeration.
    Me.RadioButton1.Location = New System.Drawing.Point(24, 24)
    Me.RadioButton1.TabIndex = 0
    Me.RadioButton1.Text = "Help"
    Me.RadioButton1.Tag = Cursors.Help
    Me.RadioButton1.TextAlign = ContentAlignment.MiddleCenter

    Me.RadioButton2.Location = New System.Drawing.Point(24, 56)
    Me.RadioButton2.TabIndex = 1
    Me.RadioButton2.Text = "Up Arrow"
    Me.RadioButton2.Tag = Cursors.UpArrow
    Me.RadioButton2.TextAlign = ContentAlignment.MiddleCenter

    Me.RadioButton3.Location = New System.Drawing.Point(24, 80)
    Me.RadioButton3.TabIndex = 3
    Me.RadioButton3.Text = "Cross"
    Me.RadioButton3.Tag = Cursors.Cross
    Me.RadioButton3.TextAlign = ContentAlignment.MiddleCenter

    ' Add the radio buttons to the GroupBox.  
    Me.GroupBox1.Controls.Add(Me.RadioButton1)
    Me.GroupBox1.Controls.Add(Me.RadioButton2)
    Me.GroupBox1.Controls.Add(Me.RadioButton3)

    ' Set the location of the GroupBox. 
    Me.GroupBox1.Location = New System.Drawing.Point(56, 64)
    Me.GroupBox1.Size = New System.Drawing.Size(200, 150)

    ' Set the text that will appear on the GroupBox.
    Me.GroupBox1.Text = "Choose a Cursor Style"
    '
    ' Add the GroupBox to the form.
    Me.Controls.Add(Me.GroupBox1)
    '

End Sub

开发者ID:VB.NET开发者，项目名称:System.Windows.Forms，代码行数:52，代码来源:Cursors.UpArrow

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