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