teszt

Dokumentáció Készítő 3/MainWindow.xaml.vb

@@ -118,8 +118,7 @@ Public Class MainWindow
         NamingSyntaxStefani.IsChecked = True
         namingsyntax = "stefani"
         AktualisRajzRadioButton.IsChecked = True
-        MainWindow.MinHeight = 270
-        MainWindow.MaxHeight = 270
+
 
 
 
@@ -138,11 +137,6 @@ Public Class MainWindow
             XLSCheckbox.IsChecked = False
 
 
-            If params.Contains("-lapszam") Then
-                SheetCheckBox.IsChecked = True
-
-            End If
-
             If params.Contains("-pdf") Then
                 PDFCheckBox.IsChecked = True
             End If
@@ -178,7 +172,6 @@ Public Class MainWindow
                 DWGCheckBox.IsChecked = True
 
                 XLSCheckbox.IsChecked = True
-                NamingSyntaxHanon.IsChecked = True
                 NamingSyntaxStefani.IsChecked = False
 
 
@@ -341,9 +334,6 @@ Public Class MainWindow
         ElseIf NamingSyntaxAudi.IsChecked Then
             namingsyntax = "audi"
             xlstype = ""
-        ElseIf NamingSyntaxHanon.IsChecked Then
-            namingsyntax = "stefani"
-            xlstype = "hanon"
         End If
 
 
@@ -440,8 +430,6 @@ Public Class MainWindow
         ListBox1.IsEnabled = True
         Files_Browse.IsEnabled = True
         PDFOsszeCheckBox.IsEnabled = True
-        SheetCheckBox.IsEnabled = False
-        SheetCheckBox.IsChecked = False
 
     End Sub
     Private Sub MaterialRadioButton3_CheckedChanged(sender As Object, e As EventArgs)
@@ -452,7 +440,6 @@ Public Class MainWindow
         PDFOsszeCheckBox.IsChecked = False
         'XLSCheckBox.Enabled = True
         '  XLSCheckBox.Checked = True
-        SheetCheckBox.IsEnabled = True
         ListBox1.Items.Clear()
         FilesList.Clear()
 
@@ -497,15 +484,6 @@ Public Class MainWindow
             NeedTiff = False
         End If
 
-    End Sub
-    Private Sub PdfTypeStroke_CheckedChanged(sender As Object, e As EventArgs)
-
-        If NeedPdfStroke.IsChecked = True Then
-            NeedStroke = True
-        Else
-            NeedStroke = False
-        End If
-
     End Sub
     Private Sub PDFOsszeCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles PDFCheckBox.Checked, PDFCheckBox.Unchecked
 
@@ -519,14 +497,6 @@ Public Class MainWindow
     End Sub
     Private Sub PdfCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles PDFCheckBox.Checked, PDFCheckBox.Unchecked
 
-        If PDFCheckBox.IsChecked = True Then
-            NeedPdf = True
-            NeedPdfStroke.IsEnabled = True
-        Else
-            NeedPdf = False
-            NeedPdfStroke.IsEnabled = False
-            NeedPdfStroke.IsChecked = False
-        End If
 
         If KulonAloRajzok.IsChecked = True Then
             If PDFCheckBox.IsChecked = True Then
@@ -540,15 +510,7 @@ Public Class MainWindow
 
     End Sub
 
-    Private Sub SheetCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SheetCheckBox.Checked, SheetCheckBox.Unchecked
 
-        If SheetCheckBox.IsChecked = True Then
-            NeedSheetNumbers = True
-        Else
-            NeedSheetNumbers = False
-        End If
-
-    End Sub
     'Document creation subs
     Private Sub CreateDocuments()
         xlsCreated.Clear()
@@ -2480,14 +2442,7 @@ Public Class MainWindow
         End If
     End Sub
 
-    Private Sub EllenorzesCheckBox_Checked(sender As Object, e As RoutedEventArgs) Handles EllenorzesCheckBox.Checked
-        If EllenorzesCheckBox.IsChecked = True Then
-            isEllNeeded = True
-        Else
-            isEllNeeded = False
-        End If
 
-    End Sub
 
     Private Sub Label_MouseDown(sender As Object, e As MouseButtonEventArgs)
         If e.ChangedButton = MouseButton.Left Then
@@ -2499,23 +2454,6 @@ Public Class MainWindow
         Environment.Exit(0)
     End Sub
 
-    Private Sub SheetCheckBox_Checked(sender As Object, e As RoutedEventArgs) Handles SheetCheckBox.Checked
-        If SheetCheckBox.IsChecked = True Then
-            sheetParamNeeded = True
-        Else
-            sheetParamNeeded = False
-
-        End If
-    End Sub
-
-    Private Sub PrintCheckBox_Checked(sender As Object, e As RoutedEventArgs) Handles PrintCheckBox.Checked
-        If PrintCheckBox.IsChecked = True Then
-            printNeeded = True
-        Else
-            printNeeded = False
-        End If
-    End Sub
-
     Private Sub AutomaticFolderSelect_Checked(sender As Object, e As RoutedEventArgs) Handles AutomaticFolderSelect.Checked
         If AutomaticFolderSelect.IsChecked = True Then
 
@@ -2525,9 +2463,6 @@ Public Class MainWindow
         End If
     End Sub
 
-    Private Sub NeedPdfStroke_Checked(sender As Object, e As RoutedEventArgs) Handles NeedPdfStroke.Checked
-
-    End Sub
 
 
     Private Sub Subdirctories_Checked(sender As Object, e As RoutedEventArgs) Handles subdirctories.Checked
@@ -2572,20 +2507,7 @@ Public Class MainWindow
 
     End Sub
 
-    Private Sub CreateDocument_XLS_Click(sender As Object, e As RoutedEventArgs) Handles CreateDocument_XLS.Click
-        Dim session As IpfcBaseSession = Nothing
-        Dim conn As IpfcAsyncConnection = Nothing
-        Dim model1 As IpfcModel
-        Dim FileNameMod As String
-        Connect(session, conn)
 
-        model1 = session.CurrentModel
-        folderpicked = Path.GetTempPath
-        FileNameMod = model1.FileName
-        FileNames.Add(FileNameMod)
-        conn.Disconnect(1)
-
-    End Sub
 
     Private Sub PrintExcel(FileNameMod As String)
         xlApp = New Excel.Application
@@ -2606,15 +2528,6 @@ Public Class MainWindow
 
     End Sub
 
-    Private Sub PrintExcelCheckBox_Checked(sender As Object, e As RoutedEventArgs) Handles PrintExcelCheckBox.Checked
-
-        If PrintExcelCheckBox.IsChecked = True Then
-            excelPrintNeeded = True
-        Else
-            excelPrintNeeded = False
-        End If
-    End Sub
-
     Private Sub Test_Click(sender As Object, e As RoutedEventArgs) Handles test.Click
         Dim session As IpfcBaseSession = Nothing
         Dim conn As IpfcAsyncConnection = Nothing