Kontextmenü mit Untermenü per Code erstellen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 19 Antworten in diesem Thema. Der letzte Beitrag () ist von Achilleus.

    Kontextmenü mit Untermenü per Code erstellen

    Hallo Leute,

    ich komme echt nicht weiter. ?(

    Ich habe einen String, den ich splitten und daraus ein Kontextmenü erstellen möchte. Dabei gibt es nur ein Hauptmenü und ggf. dazu Untermenüs.

    Quellcode

    1. ​
    2. dim s as String="ESt.-Berechnung|ESt.-Berechnung EM|ESt.-Berechnung EF;ESt.-Sendeprotokoll|ESt.-Sendeprotokoll EM|ESt.-Sendeprotokoll EF;ESt.-Formulare|ESt-Formulare EM|ESt.-Forumlare EF"
    4. Daraus soll jetzt folgendes Kontextmenü erstellt werden.
    6. ESt.-Berechnung
    7. - ESt.-Berechnung EM
    8. - ESt.-Berechnung EF
    9. ESt.-Sendeprotokoll
    10. - ESt. Sendeprotokoll EM
    11. - ESt.-Sendeprotokoll EF
    12. ESt.-Formulare
    13. - ESt.-Formulare EM
    14. - ESt.-Formulare EF


    Leider wird bei mir aber immer nur leere Menü-Items erstellt und im letzten werden dann alle Untermenüs eingefügt.
    Kann mir einer vielleicht helfen, wo hier mein Gedankenfehler ist?

    Hier mein bisheriger Ansatz:

    VB.NET-Quellcode

    1. ​
    2. Private Sub KryptonDropButton_DropDown(sender As Object, e As ContextPositionMenuArgs)
    3. 10: Dim btn As New KryptonDropButton
    4. 20: btn = CType(sender, KryptonDropButton)
    5. 30: Dim _FileProperty As FileProperty
    6. 40: Dim mnuitem As ToolStripItem
    7. 50: Dim mnuSubItem As New ToolStripMenuItem
    9. 60: _FileProperty = DirectCast(btn.Tag, FileProperty)
    11. 70: Dim t() As String = _FileProperty.Contextmenue.Split(";"c)
    13. 80: ContextMenuStripKrypton.Items.Clear()
    15. 90: For i As Integer = 0 To t.Count - 1
    16. 100: Dim c() As String = t(i).Split("|"c)
    17. 110: If c(0).ToString = "---" Then
    18. 120: ContextMenuStripKrypton.Items.Add(New ToolStripSeparator)
    19. 130: Else
    20. 140: If c.Length <= 1 Then
    21. 150: mnuitem = ContextMenuStripKrypton.Items.Add(c(0).ToString, ImlProfile.Images(0))
    22. 160: mnuitem.Tag = _FileProperty
    23. 170: AddHandler(mnuitem.Click), AddressOf ToolStripMenuItem_Click
    25. 180: Else
    26. mnuitem = ContextMenuStripKrypton.Items.Add("")
    27. 200: mnuSubItem.Text = c(0)
    28. mnuSubItem.Image = ImlProfile.Images(0)
    29. 210: mnuSubItem.Tag = _FileProperty
    30. 220: AddHandler(mnuSubItem.Click), AddressOf ToolStripMenuItem_Click
    31. 190: For q = 1 To c.Length - 1
    33. 230: If c(q).ToString = "---" Then
    34. 240: mnuSubItem.DropDownItems.Add(New ToolStripSeparator)
    35. 250: ContextMenuStripKrypton.Items.Add(mnuSubItem)
    36. 260: Else
    37. 270: mnuSubItem.DropDownItems.Add(c(q), ImlProfile.Images(0))
    38. 290: ContextMenuStripKrypton.Items.Add(mnuSubItem)
    39. mnuSubItem.DropDownItems(mnuSubItem.DropDownItems.Count - 1).Tag = _FileProperty
    40. AddHandler mnuSubItem.DropDownItems(mnuSubItem.DropDownItems.Count - 1).Click, AddressOf ToolStripMenuItem_Click
    41. 300: End If
    42. 310: Next
    44. 320: End If
    45. 330: End If
    46. 340: Next
    48. End Sub


    Vielen Dank im Voraus.

    Gruß Achilleus

    Kontextmenü

    In meinem Code war ein Fehler enthalten:

    VB.NET-Quellcode

    1. ​
    2. 180: Else
    3. 190: mnuitem = ContextMenuStripKrypton.Items.Add("")
    4. 200: mnuitem.Text = c(0)
    5. 210: mnuitem.Image = ImlProfile.Images(0)
    6. 220: mnuitem.Tag = _FileProperty


    Aber jetzt sieht das Kontextmenü wie folgt aus:

    Irgendwo ist bei mir der Wurm drinne.
    Bilder

    • Screenshot 2023-01-14 202000.png

      13,95 kB, 449×160, 20 mal angesehen

    KryptonWas? Naja, dauert immer, bis man sowas zum Laufen bekommt, und manche habe darauf keinen Bock.
    Haben die zusätzlichen in-Code-Zeilenangaben irgendeine Bedeutung? Ich dachte, dass das ein Relikt von vor 30 Jahren ist.
    --- ist ja in Deinem Text nicht vorhanden. Ist wahrscheinlich Absicht.

    Forenzeile#20 bzw. DeineCodezeile#140: Was willst Du uns damit sagen?

    Ich frag mich manchmal wirklich, warum man solche komplizierten Variablennamen nimmt? Damit macht man sich nur das Leben schwer.
    Einfach mal das Ziel im Designer nachbauen und das Codeergebnis in der FormX.Designer.vb anschauen.
    Nuja, auf jeden Fall muss mnuItem ein ToolStripMenuItem sein. Dem werden per DropDownItems.Add SubItems angefügt, fertig. Dem ContextMenuStrip wird sonst nix hinzugefügt.

    Abgewandelter, funktionierender Code:

    VB.NET-Quellcode

    1. Dim mnuitem As ToolStripMenuItem
    2. Dim mnuSubItem As New ToolStripMenuItem
    3. Dim t() As String = "ESt.-Berechnung|ESt.-Berechnung EM|ESt.-Berechnung EF;ESt.-Sendeprotokoll|ESt.-Sendeprotokoll EM|ESt.-Sendeprotokoll EF;ESt.-Formulare|ESt-Formulare EM|ESt.-Forumlare EF".Split(";"c)
    4. ContextMenuStrip1.Items.Clear()
    5. For i As Integer = 0 To t.Count - 1
    6. Dim c() As String = t(i).Split("|"c)
    7. If c(0).ToString = "---" Then
    8. ContextMenuStrip1.Items.Add(New ToolStripSeparator)
    9. Else
    10. If c.Length <= 1 Then
    11. mnuitem = New ToolStripMenuItem With {.Text = c(0)}
    12. ContextMenuStrip1.Items.Add(mnuitem)
    13. Else
    14. mnuitem = New ToolStripMenuItem With {.Text = c(0)}
    15. ContextMenuStrip1.Items.Add(mnuitem)
    16. mnuitem.Text = c(0)
    17. For q = 1 To c.Length - 1
    18. If c(q).ToString = "---" Then
    19. mnuitem.DropDownItems.Add(New ToolStripSeparator)
    20. Else
    21. mnuitem.DropDownItems.Add(c(q))
    22. End If
    23. Next
    24. End If
    25. End If
    26. Next

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @Achilleus Erstell Dir ein solches Menü im Designer und sieh Dir den Designercode an in der FormX.Designer.vb.
    Ansonsten steppe Deinen Code mal durch und lerne zu debuggen:
    Ist das, was da passiert, das, was da passieren soll?
    Debuggen, Fehler finden und beseitigen
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo VaporiZed,

    vielen Dank für deine Hilfe.

    Zu deinen Anmerkungen:

    Programmbeschreibung (nur für den Hausgebrauch):

    Ich verwende in einem einzigen Formular die KryptonSuite, da es hier ein tollen DropDownButton gibt. Damit kann ich neben der eigentlichen Button-Funktion auch noch ein normales Kontextmenü aufrufen.
    Die Button werden onfly in einem Flowpanel erstellt, dabei werden die Bezeichnungen verwendet, um gescannte Dateien umzubennen und zu verschieben.

    Die Fileproperty dient dazu, zu den Button Zusatzangaben zu hinterlegen, wie mit den Dateien speziell zu verfahren ist.

    VB.NET-Quellcode

    1. ​
    2. Public Structure FileProperty
    3. Public Counter As Boolean 'Datei soll automatisch hochgezählt und nicht überschrieben werden
    4. Public IsMainTab As Boolean 'Ablage nur im ersten Reiter erlaubt
    5. Public Contextmenue As String '"ESt.-Berechnung|ESt.-Berechnung EM|ESt.-Berechnung EF;ESt.-Sendeprotokoll|ESt.-Sendeprotokoll EM|ESt.-Sendeprotokoll EF;ESt.-Formulare|ESt-Formulare EM|ESt.-Forumlare EF"
    6. End Structure



    zu Zeile 20:

    Ist ein Wert in FileProperty.Contextmeu enthalten, wird statt eines normalen Button ein DropDownbutten eingefügt. Bei Auswahl des DropDownbefehl, wird diese Property ausgelesen und ein Kontextmenü erstellt. Aus diesem Grunde habe ich ein Verweis auf den aktuellen Button gesetzt und die Fileproperty.Contextmenue ausgelesen. Eventuell könnte das man auch einfacher machen, aber ich bin nur Hobbyprogrammierer, da muss ich den Code auch später noch verstehen.

    Nach meinem aktuellen Stand soll es erst einmal für die Kontextmenüs keine eigenen FileProperty-Anweisungen geben, sondern nur ein Standardverhalten erhalten.

    zu Zeile 140:

    Diese Anweisung ist dafür vorgesehen, dass es ja auch nur Hauptmenüs gibt ohne weitere Untermenüs.

    zur Anweisung "---"

    Diese Anweisung soll einfach nur eine Textanweisung sein, dass ein ​ToolStripSeparator eingefügt werden soll. Das hätte auch ein x-beliebiges Zeichen sein können.

    Mit den Variablennamen für c() u. t() gebe ich dir uneingeschränkt recht. Hier hätte ich in der Tat etwas mehr sprechenden Namen vergeben soll. Werde ich auch gleich umsetzen.

    Programmablauf:

    Es werden Dateien in einem Scanner-Ordner abgelegt.
    Wird jetzt die Datei nur selektiert, kann mit den Buttons/ Kontextmenü diese Datei vor der Ablage noch umbenannt werden. Anschließend kann ich die abzulegenden Dateien checken, und diese werden im Listview "Merge Dateien" abgelegt. Im LVW "Merge Dateien" kann nachträglich die Reihenfolge der Dateien verändern. Ferner kann ich mit dem Button kann ich zusätzlich bestimmen, ob beim mergen der PDF-Dateien die Zieldatei Lesezeichen erhalten sollen. Standardmäßig werden für die Dateien mit dem Namen "doc..." keine Lesezeichen eingefügt. Nur Dateien mit Realnamen sollen grundsätzlich ein Lesezeichen erhalten, aber das kann ich halt auch ausschalten. Das mergen von PDF mache immer mit iText; nur bei Lesezeichen verwende ich ein erstellten Job mit den XChangeViewer-Tools von Tracker.

    Beim verschieben kommen jetzt halt die FileProperty ins Spiel. Hier wird jetzt vor dem Verschieben ausgelesen, ob die Dateien nur im MainTab verschoben werden dürfen (Steuererklärungen) oder auch, ob die Dateien mit einer anderen bereits abgelegten Datei nachträglich noch verschmolzen werden soll.



    Dieses Vorgehen reicht für meine Bedürfnisse vollkommen aus und funktioniert auch tadellos.

    Ich glaube das sollte jetzt reichen

    Nochmals vielen Dank für deine Hilfe. Jetzt läuft alles tadellos.

    Gruß Achilleus
    Bilder

    • Screenshot 2023-01-15 084419.png

      130,68 kB, 1.502×684, 15 mal angesehen

    • Screenshot 2023-01-15 084718.png

      894 Byte, 31×36, 93 mal angesehen

    • Screenshot 2023-01-15 085442.png

      9,08 kB, 419×107, 84 mal angesehen

    Hallo Leute,

    ich habe leider immer noch ein Problem.

    Wie bekomme ich es hin, dass jedes MenüItem (Haupt- u. Untermenü) ausgeführt wird.
    Für das Hauptmenü habe ich es hinbekommen, aber bei den Untermenüs wird gar nichts ausgeführt. Ich vermute es liegt am fehlenden Eventhandler?


    VB.NET-Quellcode

    1. Private Sub ContextMenuStripKrypton_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ContextMenuStripKrypton.ItemClicked
    2. Dim _FileProperty As FileProperty = Nothing
    3. Call MoveFiles(e.ClickedItem.Text.Trim, _FileProperty)
    4. ContextMenuStripKrypton.Close()
    5. End Sub


    Kann mir vielleicht jemand noch einmal helfen, wie ich im Code von @VaporiZed für die Untermenüs das auch noch hinbekomme?

    Vielen Dank.

    Gruß Achilleus

    @Achilleus Was passiert in Zeile #3 Deines Codes mit dem letzten Parameter := Nothing?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany:

    Es wird einfach kein Event für die Untermenüs gefeuert. ;(

    __________________________________________________


    Nachtrag:
    Ich habe jetzt die Lösung gefunden.

    Ich musste lediglich noch zwei Zeilen Code hinzufügen:

    VB.NET-Quellcode

    1. 260: mnuSubItem = DirectCast(mnuitem.DropDown.Items(mnuitem.DropDown.Items.Count - 1), ToolStripMenuItem)
    2. 270: AddHandler mnuSubItem.Click, AddressOf ToolStripMenuItem_Click


    Jetzt funktioniert alles wie es soll. <3

    Hier noch einmal meine vollständige Lösung zum Hinzufügen eines Kontextmenüs mit Submenüs:

    VB.NET-Quellcode

    1. Private Sub KryptonDropButton_DropDown(sender As Object, e As ContextPositionMenuArgs)
    2. 10: Dim btn As New KryptonDropButton
    3. 20: btn = CType(sender, KryptonDropButton)
    4. 30: Dim _FileProperty As FileProperty
    5. 40: Dim mnuitem As ToolStripMenuItem
    6. 50: Dim mnuSubItem As New ToolStripMenuItem
    8. 60: _FileProperty = DirectCast(btn.Tag, FileProperty)
    10. 70: Dim arrMenueItems() As String = _FileProperty.Contextmenue.Split(";"c)
    12. 80: ContextMenuStripKrypton.Items.Clear()
    13. 90: For i As Integer = 0 To arrMenueItems.Count - 1
    14. 100: Dim arrSubMenuItems() As String = arrMenueItems(i).Split("|"c) 'arrSubMenuItems(0) = Hauptmenü
    15. 110: If arrSubMenuItems(0).ToString = "---" Then
    16. 120: ContextMenuStripKrypton.Items.Add(New ToolStripSeparator)
    17. 130: Else
    18. 140: If arrSubMenuItems.Length <= 1 Then
    19. 150: mnuitem = New ToolStripMenuItem With {.Text = arrSubMenuItems(0), .Image = ImlProfile.Images(0)}
    20. 160: ContextMenuStripKrypton.Items.Add(mnuitem)
    21. 170: Else
    22. 180: mnuitem = New ToolStripMenuItem With {.Text = arrSubMenuItems(0), .Image = ImlProfile.Images(0)}
    23. 190: ContextMenuStripKrypton.Items.Add(mnuitem)
    24. 200: mnuitem.Text = arrSubMenuItems(0)
    25. 210: For q = 1 To arrSubMenuItems.Length - 1
    26. 220: If arrSubMenuItems(q).ToString = "---" Then
    27. 230: mnuitem.DropDownItems.Add(New ToolStripSeparator)
    28. 240: Else
    29. 250: mnuitem.DropDownItems.Add(arrSubMenuItems(q), ImlProfile.Images(0))
    30. 260: mnuSubItem = DirectCast(mnuitem.DropDown.Items(mnuitem.DropDown.Items.Count - 1), ToolStripMenuItem)
    31. 270: AddHandler mnuSubItem.Click, AddressOf ToolStripMenuItem_Click
    32. 280: End If
    33. 290: Next
    34. 300: End If
    35. 310: End If
    37. 320: Next
    39. End Sub


    Vielen Dank an alle für die Unterstützung. :thumbsup:

    Gruß Achilleus

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Achilleus“ ()

    Achilleus schrieb:

    Es wird einfach kein Event für die Untermenüs gefeuert.
    Bei diesem Code:

    VB.NET-Quellcode

    1. Call MoveFiles(e.ClickedItem.Text.Trim, _FileProperty)
    erwarte ich auch nicht, dass da ein Event gefeuert wird.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Achilleus schrieb:

    Verstehe die Aussage nicht.
    Das war eine Erläuterung zu einer wieder mal von Dir nicht beantworteten Frage.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo @RodFromGermany,

    weil dieser Funktionsaufruf nichts mit dem fehlenden Event zu tun hatte.
    Aber hier die Funktion:
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. Private Sub MoveFiles(NewFileName As String, _FileProperty As FileProperty)
    2. 10: Dim amPDF As New PDFTools
    3. 20: Dim blnStErkl As Boolean = False
    4. 30: Dim _Weblink As String = ""
    5. 40: Dim lSource As New List(Of String)
    7. 50: If Me.ToolStripDropDownButton2.Visible = False And _FileProperty.IsMainTab = False AndAlso LvwFile.CheckedItems.Count > 0 Then
    8. 60: MessageBox.Show("In das Stammverzeichnis können keine Dateien " & Environment.NewLine _
    9. & "verschoben werden." & Environment.NewLine _
    10. & "" & Environment.NewLine _
    11. & "Wählen Sie bitte erst ein Jahresregister aus.", "Datei verschieben", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    12. 70: Exit Sub
    13. 80: End If
    15. 90: Dim sTargetFile As String = ""
    16. 100: Dim sTargetPath As String = Me.ToolStripDropDownButton1.Text
    17. 110: Dim sSourceFile As String = "", sTmpFile As String = ""
    18. '140: Dim tmpPathPDFTools = IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Temp, "PDFTools\Compress")
    20. 120: Dim _Source As New List(Of String)
    21. 130: Dim sSourceName As String = ""
    23. 140: amPDF.TmpPathSource = IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Temp, "PDFTools\Compress")
    24. 150: amPDF.TmpPathTarget = IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Temp, "PDFTools\Target")
    26. 160: If IO.Directory.Exists(amPDF.TmpPathSource) = True Then
    27. 170: amPDF.CleanPath(amPDF.TmpPathSource)
    28. 180: Else
    29. 190: IO.Directory.CreateDirectory(amPDF.TmpPathSource)
    30. 200: End If
    31. 210: If IO.Directory.Exists(amPDF.TmpPathTarget) = True Then
    32. 220: amPDF.CleanPath(amPDF.TmpPathTarget)
    33. 230: Else
    34. 240: IO.Directory.CreateDirectory(amPDF.TmpPathTarget)
    35. 250: End If
    37. 260: If LvwFile.CheckedItems.Count = 0 Then
    38. 270: FSW1.EnableRaisingEvents = False 'keine Reaktion auf Änderung
    40. 290: sTargetPath = TxtPath.Text
    41. 300: Try
    42. 310: sSourceFile = LvwFile.SelectedItems(0).Text
    43. 320: Catch
    44. 330: MessageBox.Show("Bitte selektieren Sie die Datei zum umbennen aus.", "keine Datei selektiert", MessageBoxButtons.OK, MessageBoxIcon.Information)
    45. 340: Exit Sub
    46. 350: End Try
    47. 280: Call Unload_Webbrowser(False)
    49. 360: NewFileName = NewFileName & ".pdf"
    50. 370: _Weblink = IO.Path.Combine(sTargetPath, NewFileName)
    51. 380: If IO.File.Exists(_Weblink) Then 'Doppelte Dateien
    52. 390: If MessageBox.Show("Möchten Sie die Dateien zusammenführen?", "Doppelte Datei", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
    53. 400: lSource.Add(_Weblink)
    54. 410: For Each ItemX As ListViewItem In LvwFile.SelectedItems
    55. 420: sSourceFile = IO.Path.Combine(TxtPath.Text, ItemX.Text)
    56. 430: If _Weblink.Contains(sSourceFile) = False Then lSource.Add(sSourceFile)
    57. 440: Next
    58. 450: sSourceFile = amPDF.MergePDFFiles(lSource, IO.Path.Combine(amPDF.TmpPathTarget, NewFileName))
    60. 'Lösche alle Dateien aus lSource
    61. 460: lSource.ForEach(Sub(s) My.Computer.FileSystem.DeleteFile(s, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin))
    62. 470: System.IO.File.Copy(sSourceFile, IO.Path.Combine(TxtPath.Text, NewFileName))
    64. 480: Else
    65. 490: Exit Sub
    66. 500: End If
    67. 510: Else 'Mehrfachselektion
    69. 520: If LvwFile.SelectedItems.Count > 1 Then
    70. 530: For Each ItemX As ListViewItem In LvwFile.SelectedItems
    71. 540: lSource.Add(IO.Path.Combine(TxtPath.Text, ItemX.Text))
    73. 550: Next
    74. 560: _Weblink = amPDF.MergePDFFiles(lSource, IO.Path.Combine(amPDF.TmpPathTarget, NewFileName))
    76. 'Lösche alle Dateien aus lSource
    77. 570: lSource.ForEach(Sub(s) My.Computer.FileSystem.DeleteFile(s, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin))
    78. 580: System.IO.File.Copy(_Weblink, IO.Path.Combine(TxtPath.Text, NewFileName))
    80. 590: Else 'Einfachselektion
    82. 600: My.Computer.FileSystem.RenameFile(IO.Path.Combine(sTargetPath, sSourceFile), NewFileName)
    83. 610: End If
    84. 620: End If
    85. 630: WebBrowser1.Navigate(_Weblink)
    86. 640: Call RefreshToolStripMenuItem.PerformClick()
    87. 650: FSW1.EnableRaisingEvents = True 'keine Reaktion auf Änderung
    89. 660: Exit Sub
    90. 670: End If
    92. 680: If LvwMerge.CheckedItems.Count = 0 Then Exit Sub
    94. 690: If NewFileName = "manuell" Then
    95. 700: sSourceName = InputBox("Geben Sie bitte einen Dateinahmen ein.", "Dateiname", LvwMerge.Items(0).Text)
    96. 710: If sSourceName = "" Then
    97. 720: Exit Sub
    98. 730: Else
    99. 740: If IO.Path.GetExtension(sSourceName) = Path.GetExtension(LvwMerge.Items(0).Text) Then sSourceName = IO.Path.GetFileNameWithoutExtension(sSourceName)
    100. 750: End If
    101. 760: ElseIf NewFileName = "Steuererklärung" Then
    102. 770: Dim iMdNr As Integer = 0
    103. 780: Dim iJahr As Integer = My.Settings.Steuerjahr
    104. 790: Dim _t As String = Me.ToolStripDropDownButton1.Text
    105. 800: iMdNr = Convert.ToInt32(oFomrMandanteninfo._GetMdNr)
    106. 810: blnStErkl = True
    107. 'tmpPathPDFTools = IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Temp, "PDFTools\Source")
    109. 820: With frmAblageStErkl
    110. 830: .TxtMdNr.Text = iMdNr.ToString
    111. 840: .TxtJahr.Text = iJahr.ToString
    112. 850: .ShowDialog()
    113. 860: End With
    114. 870: If frmAblageStErkl.sResult = "" Then
    115. 880: frmAblageStErkl.Close()
    116. 890: Exit Sub
    117. 900: End If
    118. 910: If iMdNr <> Convert.ToInt32(frmAblageStErkl.TxtMdNr.Text) Then
    119. 920: iMdNr = Convert.ToInt32(frmAblageStErkl.TxtMdNr.Text)
    120. 930: sTargetPath = sTargetPath.Substring(0, sTargetPath.Length - 4) & iMdNr.ToString
    121. 940: End If
    122. 950: Dim dRow As DataRow = GetDataRow(iMdNr, EnDatabase.Mandanten, "SEQ")
    124. 960: Dim blnGeldwaesche As Boolean = Convert.ToBoolean(dRow.Item("Geldwaesche"))
    125. 970: Dim blnEinzugFA As Boolean = Convert.ToBoolean(dRow.Item("EinzugFA"))
    126. 980: Dim blnFADatenabruf As Boolean = Convert.ToBoolean(dRow.Item("FADatenabruf"))
    127. 990: Dim blnOnWork As Boolean = Convert.ToBoolean(dRow.Item("Selektion"))
    129. 1000: If blnOnWork = True Then
    130. 1010: Select Case MessageBox.Show("Für den Mandanten ist das Kennzeichen ""In Arbeit"" gesetzt." & Environment.NewLine _
    131. & "" & Environment.NewLine _
    132. & "Möchten Sie das Kennzeichen jetzt löschen?", "Kennzeichen ""In Arbeit"" löschen", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    134. Case DialogResult.Yes
    135. 1020: blnOnWork = False
    136. 1030: Call SaveInArbeit(iMdNr, blnOnWork, blnGeldwaesche, blnFADatenabruf)
    137. 1040: Case DialogResult.No
    139. 1050: End Select
    141. 1060: End If
    142. 1070: iJahr = Convert.ToInt32(frmAblageStErkl.TxtJahr.Text)
    143. 1080: My.Settings.Steuerjahr = iJahr
    144. 1090: My.Settings.Save()
    146. 1100: sSourceName = frmAblageStErkl.sResult & " " & iJahr.ToString & " Erklärung"
    148. 1110: Call Add2Logbuch(iMdNr, iJahr, frmAblageStErkl.sResult)
    150. 1120: frmAblageStErkl.Close()
    152. 1130: Else
    153. 1140: sSourceName = NewFileName
    154. 1150: End If
    156. 1160: For Each itemX As ListViewItem In LvwMerge.CheckedItems
    157. 1170: _Source.Add(IO.Path.Combine(TxtPath.Text, itemX.Text))
    158. 1180: Next
    160. 1190: Dim sExtension As String = IO.Path.GetExtension(_Source(0)).ToLower
    162. 1200: Try
    164. 1210: Call Unload_Webbrowser(True)
    166. 1220: If _FileProperty.IsMainTab = False Then
    167. 1230: sTargetPath = IO.Path.Combine(sTargetPath, Me.ToolStripDropDownButton2.Text)
    168. 1240: End If
    170. 1250: sTargetFile = sTargetPath & "\" & sSourceName & sExtension.ToLower
    172. 1260: Select Case sExtension
    173. Case ".pdf"
    174. 1270: Case Else
    175. 1280: If IO.File.Exists(sTargetFile) Then
    176. 1290: sTargetFile = amPDF.GetNewFileName(sTargetFile)
    177. 1300: End If
    178. 1310: System.IO.File.Move(_Source(0), sTargetFile)
    179. 1320: Exit Sub
    180. 1330: End Select
    182. 'Mergen
    183. 1340: For Each f In _Source
    184. 1350: sTmpFile = IO.Path.Combine(amPDF.TmpPathSource, IO.Path.GetFileName(f.ToString))
    185. 1360: My.Computer.FileSystem.CopyFile(f, sTmpFile, True) 'Falls Datei schon vorhanden
    186. 1370: lSource.Add(sTmpFile)
    187. 1380: Next
    189. 1390: If IO.File.Exists(sTargetFile) Then
    190. 1400: _Weblink = sTargetFile
    191. '440: Me.TopMost = False
    193. 1410: If _FileProperty.Counter = True Then
    194. 1420: sTargetFile = amPDF.GetNewFileName(sTargetFile)
    196. 1430: Else
    198. 1440: Select Case MessageBox.Show("Die Zieldatei exisitiert bereits." & Environment.NewLine _
    199. & "" & Environment.NewLine _
    200. & "Möchten Sie die neuen PDF-Dateien zu der Zieldatei hinzufügen oder Vorgang abbrechen?", "Joinen PDF -> Zieldatei existiert", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
    202. Case DialogResult.Cancel
    203. 1450: Exit Sub
    205. 1460: Case DialogResult.Yes
    206. 1470: lSource.Insert(0, sTargetFile)
    207. 1480: Case DialogResult.No
    208. 1490: If blnStErkl Then
    209. 1500: My.Computer.FileSystem.DeleteFile(sTargetFile, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin)
    210. 1510: Else
    211. 1520: sTargetFile = sTargetPath & "\" & CreateFileName(sSourceName & ".pdf", sTargetPath, _FileProperty.Counter)
    212. 1530: End If
    214. 1540: End Select
    215. End If
    216. 1550: End If
    218. 1560: Dim FileTarget As String = amPDF.TmpPathTarget & "\Merge.pdf"
    220. 1570: If lSource.Count > 1 Then
    221. 1580: If blnStErkl Then
    222. 1590: If amPDF.JoinPDFBookmark(lSource, sTargetFile) = False Then
    223. 1600: MessageBox.Show("Bei der Ablage der Steuererklärung ist ein Fehler aufgetaucht.", "Fehler Ablage StErkl.", MessageBoxButtons.OK, MessageBoxIcon.Error)
    224. 1610: End If
    225. 1620: Else
    226. 1630: If krpChkBtnLesezeichen.Checked = True Then
    227. 1640: amPDF.JoinPDFBookmark(lSource, FileTarget)
    228. 1650: sSourceFile = FileTarget
    229. 1660: Else
    230. 1670: sSourceFile = amPDF.MergePDFFiles(lSource, FileTarget)
    231. 1680: End If
    233. 1690: End If
    234. 1700: Else
    235. 1710: blnStErkl = False 'bei 1 Datei ist blnStErkl immer false
    236. 1720: sSourceFile = lSource(0).ToString
    237. 1730: If IO.File.Exists(sTargetFile) Then My.Computer.FileSystem.DeleteFile(sTargetFile, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin)
    238. 1740: End If
    240. 1750: If blnStErkl = False Then
    241. 1760: If IO.File.Exists(sTargetFile) Then My.Computer.FileSystem.DeleteFile(sTargetFile, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin)
    242. 1770: System.IO.File.Move(sSourceFile, sTargetFile)
    243. 1780: End If
    245. 1790: For Each f In _Source
    246. 1800: If IO.File.Exists(f) Then My.Computer.FileSystem.DeleteFile(f, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin)
    247. 1810: Next
    249. 1820: _Weblink = sTargetFile
    251. 1830: If _Weblink.Length > 0 Then
    252. 1840: With oFomrMandanteninfo.WebBrowser1
    253. 1850: .Visible = True
    254. 1860: .Navigate(_Weblink)
    255. 1870: Do While .IsBusy
    256. 1880: System.Threading.Thread.Sleep(200)
    257. 1890: Loop
    258. 1900: End With
    260. 1910: End If
    262. '720: LvwFile.Sorting = SortOrder.None
    264. 1920: For Each itemX As ListViewItem In LvwFile.CheckedItems
    265. 1930: itemX.Remove()
    266. 1940: Next
    267. 1950: LvwMerge.Items.Clear()
    269. 1960: Call Lvw_Design(LvwFile, lngfirstColor, lngsecondColor)
    270. 1970: If LvwFile.Items.Count > 0 Then
    271. 1980: LvwFile.Focus()
    272. 1990: LvwFile.Items(0).Selected = True
    273. 2000: End If
    274. 2010: krpChkBtnLesezeichen.Checked = False
    275. 2020: Catch ex As Exception
    277. 2030: MessageBox.Show("Error " & Err.Number & ": (" & Err.Description & ") in Prozedur Button_Click von Modul EMA.frmScanner", "Fehler in Zeile: " & Erl())
    278. 2040: End Try
    280. End Sub


    Und ja, ich hätte für das reine Umbenennen eine eigene Funktion schreiben können, aber dafür war ich zu faul. 8o

    Gruß Achilleus

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Achilleus“ ()

    Achilleus schrieb:

    Aber hier die Funktion:
    281 Zeilen zum Scrollen, dafür gibt es den
    Spoiler
    Spoiler
    .
    Was passiert, wenn Du Deine Funktion aufrufst, in DEINER Codezeile 50?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Das was sie soll. :whistling:

    ​If Me.ToolStripDropDownButton2.Visible = False And _FileProperty.IsMainTab = False AndAlso LvwFile.CheckedItems.Count > 0 Then

    1. Prüfung:
    ​If Me.ToolStripDropDownButton2.Visible = False And _FileProperty.IsMainTab = False
    ToolStripDropDownButton2 werden alle Unterverzeichnisse des Mandanten angezeigt (MSeq_1233, ESt. 2021 usw.).
    Ist in der Hauptanwendung der MainTab (MSeq_1233) ausgewählt, dann ist mein ToolStripDropDownButton2 unsichtbar. Wird jetzt mein Verschiebe-Button vom Scan-Verzeichnis angeklickt, dann wird die FileProperty.IsMainTab geprüft, ob auch in das Hauptverzeichnis verschoben werden darf. Wenn Nein, dann...

    2. Prüfung
    Wird der Verschiebe-Button ausgewählt, ohne das die Datei gecheckt ist, dann soll keine Prüfung erfolgen, da es sich nur um eine interne Anweisung handelt.

    Wie gesagt, die Funktion arbeitet einwandfrei und hatte mit meinem eigentlichen Problem mit dem fehlenden Event nichts zu tun.
    Ich gebe auch gerne zu, die Funktion ist nicht schön und man könnte diese sinnvollerweise aufteilen. Ich brauche diese aber auch nur in diesem speziellen Fall und wollte nicht alles noch einmal anfassen.

    Achilleus schrieb:

    1. Prüfung:
    _FileProperty = Nothing und es knallt!
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany:

    Im FrmScanner_Load erhält jeder Button ein Button.Tag = _FileProperty

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim table As DataTable = myDataSet.Tables("ScannerProfil")
    2. Dim myRow As DataRow
    3. Dim iCount As Integer = 0
    4. Dim _FileProperty As FileProperty
    6. 'Dim myButton As New ComponentFactory.Krypton.Toolkit.KryptonDropButton
    7. Dim newButton As KryptonButton
    8. Dim newDropDown As KryptonDropButton
    10. For Each myRow In table.Rows
    11. iCount = +1
    12. _FileProperty.Counter = Convert.ToBoolean(myRow(3))
    13. _FileProperty.IsMainTab = Convert.ToBoolean(myRow(4))
    14. _FileProperty.Contextmenue = String.Empty
    15. 'DropDown
    16. If myRow(5).ToString.Length > 0 Then 'DropDownButton
    18. _FileProperty.Contextmenue = myRow(5).ToString
    19. newDropDown = New KryptonDropButton
    20. With newDropDown
    21. .AllowDrop = True
    22. .Name = "Btn_" & iCount
    23. .Values.Image = ImlProfile.Images(0)
    24. .Width = 150
    25. .Text = myRow(2).ToString
    26. .Tag = _FileProperty 'Zähler
    27. .ContextMenuStrip = ContextMenuStripKrypton
    28. With .StateCommon.Content
    29. .Image.ImageH = PaletteRelativeAlign.Near
    30. .ShortText.TextH = PaletteRelativeAlign.Near
    31. End With
    32. End With
    33. AddHandler newDropDown.Click, AddressOf KryptonDropButton_Click
    34. AddHandler newDropDown.DropDown, AddressOf KryptonDropButton_DropDown
    35. AddHandler newDropDown.DragDrop, AddressOf KryptonDropDown_DragDrop
    36. AddHandler newDropDown.DragEnter, AddressOf KryptonButton_DragEnter
    37. FlowLayoutPanel1.Controls.Add(newDropDown)
    39. Else 'CommandButton
    40. newButton = New KryptonButton
    41. With newButton
    42. .AllowDrop = True
    43. .Name = "Btn_" & iCount
    44. .Values.Image = ImlProfile.Images(0)
    45. .Width = 150
    46. .Text = myRow(2).ToString
    47. .Tag = _FileProperty 'Zähler
    49. With .StateCommon.Content
    50. .Image.ImageH = PaletteRelativeAlign.Near
    51. .ShortText.TextH = PaletteRelativeAlign.Near
    52. End With
    53. End With
    54. AddHandler newButton.Click, AddressOf KryptonButton_Click
    55. AddHandler newButton.DragDrop, AddressOf KryptonButton_DragDrop
    56. AddHandler newButton.DragEnter, AddressOf KryptonButton_DragEnter
    57. FlowLayoutPanel1.Controls.Add(newButton)
    59. End If
    61. Next



    Deshalb kann _FileProperty nie Nothing sein.

    Lediglich in den nachfolgenden Events

    VB.NET-Quellcode

    1. Private Sub ContextMenuStripKrypton_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ContextMenuStripKrypton.ItemClicked
    3. 30: Dim _FileProperty As FileProperty = Nothing
    4. 50: Call MoveFiles(e.ClickedItem.Text.Trim, _FileProperty)
    6. ContextMenuStripKrypton.Close()
    8. End Sub
    10. Private Sub ToolStripMenuItem_Click(sender As Object, e As EventArgs)
    11. 10: Dim mnuitem As ToolStripItem
    12. 20: mnuitem = CType(sender, ToolStripItem)
    13. 30: Dim _FileProperty As FileProperty = Nothing
    14. If Not mnuitem.Tag Is Nothing Then
    15. 40: _FileProperty = DirectCast(mnuitem.Tag, FileProperty)
    16. End If
    18. 50: Call MoveFiles(mnuitem.Text.Trim, _FileProperty)
    20. End Sub


    wird die _FileProperty = Nothing initialisiert.
    Das Ergebnis ist dann



    Und ich prüfe ja auch nur die _FileProperty.IsMainTab ab und die wird mir False initialisiert.
    Und ich erhalte auch keine Fehlermeldung.

    Habe ich da etwas falsch verstanden?

    Gruß Achilleus
    Bilder

    • Screenshot 2023-01-15 181024.png

      8,52 kB, 393×114, 70 mal angesehen

    Achilleus schrieb:

    VB.NET-Quellcode

    1. Dim _FileProperty As FileProperty = Nothing
    2. Call MoveFiles(e.ClickedItem.Text.Trim, _FileProperty)
    Dim _FileProperty As FileProperty = Nothing
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo @RodFromGermany,

    ich will ja nicht nerven und ich werde es auch ändern, so dass ich die _FileProperty mit Werten befülle und nicht mit Nothing initialisiere.
    Aber für mein Verständnis.

    Wenn ich sage: ​Dim _FileProperty = Nothing dann wird an die Sub MoveFile() die _FileProperty übergeben und wie auf dem Bild zu sehen, erhält dann die _FileProperty.IsMainTab = False. Und nur diese _FileProperty.IsMainTab wird doch auf True/False geprüft und es kommt auch zu keinem Fehler.
    Deswegen verstehe ich den Einwand nicht. ?(

    Aber ich werde jetzt die _FileProperty sauber initialisieren. Ist ja auch kein Problem.

    Vielen Dank für Deine Geduld.

    Gruß Achilleus

    Wenn Du aber das so aufrufst:

    VB.NET-Quellcode

    1. Dim _FileProperty As FileProperty = Nothing
    2. Call MoveFiles(e.ClickedItem.Text.Trim, _FileProperty)

    Und dann in MoveFiles

    VB.NET-Quellcode

    1. Private Sub MoveFiles(NewFileName As String, _FileProperty As FileProperty)
    2. Dim amPDF As New PDFTools
    3. Dim blnStErkl As Boolean = False
    4. Dim _Weblink As String = ""
    5. Dim lSource As New List(Of String)
    7. If Me.ToolStripDropDownButton2.Visible = False And _FileProperty.IsMainTab = False AndAlso LvwFile.CheckedItems.Count > 0 Then

    dann ist in der zuletzt hier gezeigten Zeile _FileProperty Nothing. Und von einem Nothing kann man kein IsMainTab abfragen oder setzen. Der Versuch führt zu einem Programmabsturz.
    Das ist es, was RfG Dir sagen will.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende