---

Hallo zusammen,

ich glaube, das Thema gab es schonmal, aber eine Lösung habe ich noch nicht  gefunden.
Wenn ich in NX eine Form lade, sieht diese nicht aus, wie im Visual Studio. Man kann zwar an der Einstellung FlatStyle herumspielen, aber ein zufriedenstellendes Ergebnis habe ich damit noch nicht erreicht.
Ich poste euch mal meinen Code für die Form, kann man evtl. hier noch irgendwo was ändern oder ergänzen, damit die Form genauso aussieht, wie im Visual Studio?

-------------------------------------------------------------------

Imports NXOpen
Imports NXOpen.UF

Public Class test
    Inherits System.Windows.Forms.Form

    Dim theUfSession As UFSession = UFSession.GetUFSession()
    Dim theSession As Session = Session.GetSession()
    Dim workPart As Part = theSession.Parts.Work
    Dim displayPart As Part = theSession.Parts.Display
    Dim ui As UI = ui.GetUI
    Dim lw As ListingWindow = theSession.ListingWindow
    Dim ufs As UFSession = UFSession.GetUFSession()

    Dim undomark As Session.UndoMarkId

    Public Shared Sub Main()
        System.Windows.Forms.Application.Run(New test)
    End Sub

    Private Sub New()
        MyBase.New()
        Me.InitializeComponent()
    End Sub

    'Baseform laden
    Private Sub baseform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
    End Function
    'Designer-Code
#Region "VS Designer Code"
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)

        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    Private components As System.ComponentModel.IContainer

    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(90, 110)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(108, 51)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "Button1"
        Me.Button1.UseVisualStyleBackColor = True
        '
        'test
        '
        Me.AcceptButton = Me.Button1
        Me.AllowDrop = True
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.White
        Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.ClientSize = New System.Drawing.Size(290, 266)
        Me.Controls.Add(Me.Button1)
        Me.DoubleBuffered = True
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
        Me.Name = "test"
        Me.Text = "Titel"
        Me.ResumeLayout(False)

    End Sub
    Friend WithEvents Button1 As System.Windows.Forms.Button
#End Region

End Class

-------------------------------------------------------------------

Vielen Dank schonmal für eure Hilfe!

:-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus,

meist Du etwa

Application.EnableVisualStyles()

Viele Grüße,
Jürgen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP