Hot News:

Mit Unterstützung durch:

   Foren auf CAD.de (alle Foren)
  NX Programmierung
  Dialogfenster schließen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:
Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für NX
Autor Thema:  Dialogfenster schließen (1332 mal gelesen)
kometler
Mitglied
NC-Programmierer


Sehen Sie sich das Profil von kometler an!   Senden Sie eine Private Message an kometler  Schreiben Sie einen Gästebucheintrag für kometler

Beiträge: 23
Registriert: 05.06.2007

 erstellt am: 21. Jun. 2007 14:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities
Hallo,
Habe eine kleines Tool geschrieben. Wo ich ein Dialogfenster öffnen
und etwas abfrage, Anschliesend wird ein Image erstellt. Nun ist aber
immer das Dialogfenster noch auf dem Imag brauf, obwohl ich es schon geschlossen habe.

2. wie kann ich die Position des Dialogfensters angeben??

Hier der CODE

Code:
Imports System
Imports System.Windows.Forms
Imports NXOpen
Imports NXOpen.UF
Imports NXOpenUI
Imports NXOpen.Utilities


Module MAIN

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim m_openSession As UFSession

dim sp As String

Public Class MainForm
Inherits System.Windows.Forms.Form

Public Shared Sub Main
Dim fMainForm As New MainForm
fMainForm.ShowDialog()
End Sub


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

#Region " Windows Forms Designer generated code "
Private butten_spannung1 As System.Windows.Forms.Button
Private butten_spannung2 As System.Windows.Forms.Button
Private butten_spannung3 As System.Windows.Forms.Button
Private butten_spannung4 As System.Windows.Forms.Button
Private butten_spannung5 As System.Windows.Forms.Button
Private butten_nacharbeit As System.Windows.Forms.Button

Private butten_abbruch As System.Windows.Forms.Button


Private Sub InitializeComponent()
'

Me.butten_spannung1 = New System.Windows.Forms.Button
Me.butten_spannung2 = New System.Windows.Forms.Button
Me.butten_spannung3 = New System.Windows.Forms.Button
Me.butten_spannung4 = New System.Windows.Forms.Button
Me.butten_spannung5 = New System.Windows.Forms.Button
Me.butten_nacharbeit = New System.Windows.Forms.Button
Me.butten_abbruch = New System.Windows.Forms.Button

'butten_spannung1
Me.butten_spannung1 = New System.Windows.Forms.Button
Me.butten_spannung1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.butten_spannung1.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.butten_spannung1.Font = New System.Drawing.Font("Tahoma", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.butten_spannung1.Location = New System.Drawing.Point(50, 15)
Me.butten_spannung1.Name = "butten_spannung1"
Me.butten_spannung1.Size = New System.Drawing.Size(93, 24)
Me.butten_spannung1.TabIndex = 3
Me.butten_spannung1.Text = "Spannung 1"
AddHandler Me.butten_spannung1.Click, AddressOf Me.butten_spannung1Click

'butten_spannung2
Me.butten_spannung2= New System.Windows.Forms.Button
Me.butten_spannung2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.butten_spannung2.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.butten_spannung2.Font = New System.Drawing.Font("Tahoma", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.butten_spannung2.Location = New System.Drawing.Point(50, 45)
Me.butten_spannung2.Name = "butten_spannung2"
Me.butten_spannung2.Size = New System.Drawing.Size(93, 24)
Me.butten_spannung2.TabIndex = 3
Me.butten_spannung2.Text = "Spannung 2"
AddHandler Me.butten_spannung2.Click, AddressOf Me.butten_spannung2Click

'butten_spannung3
Me.butten_spannung3= New System.Windows.Forms.Button
Me.butten_spannung3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.butten_spannung3.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.butten_spannung3.Font = New System.Drawing.Font("Tahoma", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.butten_spannung3.Location = New System.Drawing.Point(50, 75)
Me.butten_spannung3.Name = "butten_spannung3"
Me.butten_spannung3.Size = New System.Drawing.Size(93, 24)
Me.butten_spannung3.TabIndex = 3
Me.butten_spannung3.Text = "Spannung 3"
AddHandler Me.butten_spannung3.Click, AddressOf Me.butten_spannung3Click

'butten_spannung4
Me.butten_spannung4= New System.Windows.Forms.Button
Me.butten_spannung4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.butten_spannung4.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.butten_spannung4.Font = New System.Drawing.Font("Tahoma", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.butten_spannung4.Location = New System.Drawing.Point(50, 105)
Me.butten_spannung4.Name = "butten_spannung4"
Me.butten_spannung4.Size = New System.Drawing.Size(93, 24)
Me.butten_spannung4.TabIndex = 3
Me.butten_spannung4.Text = "Spannung 4"
AddHandler Me.butten_spannung4.Click, AddressOf Me.butten_spannung4Click

'butten_spannung5
Me.butten_spannung5= New System.Windows.Forms.Button
Me.butten_spannung5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.butten_spannung5.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.butten_spannung5.Font = New System.Drawing.Font("Tahoma", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.butten_spannung5.Location = New System.Drawing.Point(50, 135)
Me.butten_spannung5.Name = "butten_spannung5"
Me.butten_spannung5.Size = New System.Drawing.Size(93, 24)
Me.butten_spannung5.TabIndex = 3
Me.butten_spannung5.Text = "Spannung 5"
AddHandler Me.butten_spannung5.Click, AddressOf Me.butten_spannung5Click

'butten_nacharbeit
Me.butten_nacharbeit= New System.Windows.Forms.Button
Me.butten_nacharbeit.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.butten_nacharbeit.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.butten_nacharbeit.Font = New System.Drawing.Font("Tahoma", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.butten_nacharbeit.Location = New System.Drawing.Point(50, 165)
Me.butten_nacharbeit.Name = "butten_nacharbeit"
Me.butten_nacharbeit.Size = New System.Drawing.Size(93, 24)
Me.butten_nacharbeit.TabIndex = 3
Me.butten_nacharbeit.Text = "Nacharbeit"
AddHandler Me.butten_nacharbeit.Click, AddressOf Me.butten_nacharbeitClick

'butten_abbruch
Me.butten_abbruch= New System.Windows.Forms.Button
Me.butten_abbruch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.butten_abbruch.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.butten_abbruch.Font = New System.Drawing.Font("Tahoma", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.butten_abbruch.Location = New System.Drawing.Point(30, 220)
Me.butten_abbruch.Name = "butten_abbruch"
Me.butten_abbruch.Size = New System.Drawing.Size(140, 30)
Me.butten_abbruch.TabIndex = 3
Me.butten_abbruch.Text = "ABBRUCH"
AddHandler Me.butten_abbruch.Click, AddressOf Me.butten_abbruchClick


'Form1
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.ClientSize = New System.Drawing.Size(200, 280)


Me.Controls.Add(Me.butten_spannung1)
Me.Controls.Add(Me.butten_spannung2)
Me.Controls.Add(Me.butten_spannung3)
Me.Controls.Add(Me.butten_spannung4)
Me.Controls.Add(Me.butten_spannung5)
Me.Controls.Add(Me.butten_nacharbeit)
Me.Controls.Add(Me.butten_abbruch)


Me.Name = "MainForm"
Me.Text = "(c) by MWuest.net"
End Sub

#End Region

'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------
Private Sub butten_spannung1Click(sender As System.Object, e As System.EventArgs)
sp = "1Sp"
IMAGE()
End Sub
Private Sub butten_spannung2Click(sender As System.Object, e As System.EventArgs)
sp = "2Sp"
IMAGE()
End Sub
Private Sub butten_spannung3Click(sender As System.Object, e As System.EventArgs)
sp = "3Sp"
IMAGE()
End Sub
Private Sub butten_spannung4Click(sender As System.Object, e As System.EventArgs)
sp = "4Sp"
IMAGE()
End Sub
Private Sub butten_spannung5Click(sender As System.Object, e As System.EventArgs)
sp = "5Sp"
IMAGE()
End Sub
Private Sub butten_nacharbeitClick(sender As System.Object, e As System.EventArgs)
sp = "Nacharbeit"
IMAGE()
End Sub
Private Sub butten_abbruchClick(sender As System.Object, e As System.EventArgs)
Me.Close()
End Sub

Public Function IMAGE() As String
Me.Close()
m_openSession = ufSession.GetUFSession()
Dim image_format As UFDisp.ImageFormat = UFDisp.ImageFormat.Jpeg
Dim background_color As UFDisp.BackgroundColor = UFDisp.BackgroundColor.White
Dim imageFile As String

dim partname As String
on error resume next
partname = workPart.Leaf

if partname = "" Then
msgbox("Kein Part geöffnet!")
else
imageFile = "P:\" & partname & "_" & sp &".jpg" '
m_openSession.Disp.Refresh()
'System.Threading.Thread.Sleep(1000)
m_openSession.Disp.CreateImage(imageFile, image_format, background_color)

end if
End Function

End Class


End Module

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

SMario
Mitglied
Konstrukteur/Designer


Sehen Sie sich das Profil von SMario an!   Senden Sie eine Private Message an SMario  Schreiben Sie einen Gästebucheintrag für SMario

Beiträge: 114
Registriert: 31.03.2005

FSC Celsius Workstation
CPU: Pentium 4 3.20GHz
Speicher: 2.00GB RAM
Grafik: Quadro FX 1400
Monitor: FSC P20-2
OS: Windows XP SP2
UG: NX4.0.2.2

erstellt am: 21. Jun. 2007 14:56    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für kometler 10 Unities + Antwort hilfreich
Hallo kometler,

Zitat:
Habe eine kleines Tool geschrieben. Wo ich ein Dialogfenster öffnen
und etwas abfrage, Anschliesend wird ein Image erstellt. Nun ist aber
immer das Dialogfenster noch auf dem Imag brauf, obwohl ich es schon geschlossen habe.

Deinem dem Click-Ereignis deines Schließen-Button gibst du bsplw.  fMainForm.Dispose() ein, das sollte deinen Dialog schliessen, aber der Rest der Anwendung wird weiter abgearbeitet.

Zitat:
wie kann ich die Position des Dialogfensters angeben??

Me.Location in "Sub InitializeComponent" setzen bsplw. Me.Location = Location = New System.Drawing.Point(100, 100)

Falls du es dynamisch machen willst musst du das Load Ereignis deines Forms die Me.Location Eigenschaft setzen, dann ist bsplw. dein Form immer an der gleichen Stelle oder kann auch abhängg von der Mausposition positioniert werden. Aber da gibts noch einiges was machen kann....


Ciao
Mario

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

Maschinenbauingenieur / Konstruktionsingenieur (w/m/d) Gas- und Energiewirtschaft

Die PSE Engineering GmbH bietet im Bereich Planung alle Ingenieurdienstleistungen rund um die betriebstechnischen Einrichtungen in der Energie- und Gaswirtschaft an.

Für die unterschiedlichsten Anforderungen unserer Kunden werden die erforderlichen technischen Konzepte und Lösungen individuell erarbeitet und die komplette Planung von der ersten konzeptionellen Vorstudie bis hin zur Bauüberwachung und Inbetriebnahme der kompletten Betriebsanlagen durchgeführt....

Anzeige ansehenMaschinenbau
kometler
Mitglied
NC-Programmierer


Sehen Sie sich das Profil von kometler an!   Senden Sie eine Private Message an kometler  Schreiben Sie einen Gästebucheintrag für kometler

Beiträge: 23
Registriert: 05.06.2007

 erstellt am: 22. Jun. 2007 06:54    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

e322002096_2Sp.jpg
 
Danke für die Antwort

Das dialogfenster ist nun rechtzeitig zu, nur nun habe ich immer auf dem Bild das Infofenster von UG "Vorgang aktiv.."

siehe Anhang.

mfg
Michael Wüst

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!
Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz