Question

我在vb.net（2013）写作。在使用Windows 10时，我的表单在IDE中看起来与运行时不同。我尝试使用EnableVisualStyles命令但没有取得明显的成功。

第一张图显示了我的IDE中的表单，第二张图显示了运行时表单与使用EnableVisualStyle命令的表单相比。

感谢您提供的任何帮助。

谢谢！

Forms with and without EnableVisualStyles

以下是包含EnableVisualStyles的表单的代码：

Imports System
Imports System.Drawing
Imports System.Windows.Forms 

'Summary description for Form1.
Public Class vsForm

    Inherits System.Windows.Forms.Form

    Private button1 As System.Windows.Forms.Button

    <System.STAThread()> _
    Public Shared Sub Main()

        System.Windows.Forms.Application.EnableVisualStyles()
        System.Windows.Forms.Application.Run(New Form1)
    End Sub 'Main

    Public Sub New()

        Me.button1 = New System.Windows.Forms.Button()
        Me.button1.Location = New System.Drawing.Point(24, 16)
        Me.button1.Size = New System.Drawing.Size(120, 100)
        Me.button1.FlatStyle = FlatStyle.System
        Me.button1.Text = "I am themed."

        ' Sets up how the form should be displayed and adds the controls to the form.
        Me.ClientSize = New System.Drawing.Size(300, 286)
        Me.Controls.Add(Me.button1)

        Me.Text = "Application.EnableVisualStyles Example"
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
    End Sub 'New 
End Class 'Form1

Application.EnableVisualStyles似乎在Windows 10中没有任何效果

0 个答案: