本文整理汇总了VB.NET中System.Windows.Forms.VisualStyles.VisualStyleState枚举的典型用法代码示例。如果您正苦于以下问题：VB.NET VisualStyleState枚举的具体用法？VB.NET VisualStyleState怎么用？VB.NET VisualStyleState使用的例子？那么, 这里精选的枚举代码示例或许可以为您提供帮助。
在下文中一共展示了VisualStyleState枚举的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: New
' 导入命名空间
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Windows.Forms.VisualStyles
Namespace VisualStyleStateSample
Class Form1
Inherits Form
Private WithEvents button1 As New Button()
Private radioButton1 As New RadioButton()
Private radioButton2 As New RadioButton()
Private radioButton3 As New RadioButton()
Private radioButton4 As New RadioButton()
Public Sub New()
With button1
.AutoSize = True
.Location = New Point(10, 10)
.Text = "Update VisualStyleState"
End With
With radioButton1
.Location = New Point(10, 50)
.AutoSize = True
.Text = "Apply styles to client area only"
End With
With radioButton2
.Location = New Point(10, 70)
.AutoSize = True
.Text = "Apply styles to nonclient area only"
End With
With radioButton3
.Location = New Point(10, 90)
.AutoSize = True
.Text = "Apply styles to client and nonclient areas"
End With
With radioButton4
.Location = New Point(10, 110)
.AutoSize = True
.Text = "Disable styles in all areas"
End With
Me.Text = "VisualStyleState Test"
Me.Controls.AddRange(New Control() {button1, radioButton1, _
radioButton2, radioButton3, radioButton4})
End Sub
<STAThread()> _
Shared Sub Main()
Application.EnableVisualStyles()
Application.Run(New Form1())
End Sub
Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) _
Handles button1.Click
If radioButton1.Checked Then
Application.VisualStyleState = _
VisualStyleState.ClientAreaEnabled
ElseIf radioButton2.Checked Then
Application.VisualStyleState = _
VisualStyleState.NonClientAreaEnabled
ElseIf radioButton3.Checked Then
Application.VisualStyleState = _
VisualStyleState.ClientAndNonClientAreasEnabled
ElseIf radioButton4.Checked Then
Application.VisualStyleState = _
VisualStyleState.NoneEnabled
End If
' Repaint the form and all child controls.
Me.Invalidate(True)
End Sub
End Class
End Namespace