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
Foren auf CAD.de
| 
