MenuStrip_Item.Click

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

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    MenuStrip_Item.Click

    Hallo Zusammen

    ich bin Bluttiger Anfänger bitte um Verständnis.

    brauche von euch Unterstützung bzw. Passenden Quellcode:

    In meine habe Form mit MenuStrip mit 13 Menu_Items,
    ein TabControl mit 4 TabPage, je TabPage hat ein Listview.

    Bei Click auf das Menü und einen Item z.B.: A_1 der eine Produktion Anlage darstellen soll, soll die Verbindung zum Bestimmten Ordner im Firmennetzwerk hergestellt werden,(dort sind 4 Unterordner mit Qualität Dokumenten abgelegt, die für die Produktion benötigt werden)
    Diese 4 TabPage sollen dann die Verbindung zum Unterordner herstellen z.B

    Menu_Item A_1 Verbindung \\xxx\xxxxxx\Standards\A_1\Pressen = TabPage Pressen
    Menu_Item A_1 Verbindung \\xxx\xxxxxx\Standards\A_1\Kneten = TabPage Kneten
    Menu_Item A_1 Verbindung \\xxx\xxxxxx\Standards\A_1\Formen = TabPage Formen
    Menu_Item A_1 Verbindung \\xxx\xxxxxx\Standards\A_1\Packen = TabPage Packen

    Bei Klick auf A_2 das gleiche nur mit A_2 Ordner, sollen dann die Dokumente des Ordner dargestellt werden.

    Der Inhalt aus A_1 und der Unterordner „Formen“ soll dann in TabPage_Formen und in Listview_Formen geladen werden.

    Die Liste der Dateien bei Klick auf ListView_Formen liste z.B Formen_0001 (es sind nur PDF Dokumente)
    soll dann in PDF Dokument geladen werden.

    Ich hoffe das mein Erklärung wie es Funktionieren soll gut zu verstehen ist.



    VB.NET-Quellcode

    1. Private Sub A_1_Item_Click(sender As Object, e As EventArgs) Handles A_1_Item.Click
    2. Try
    4. Converting_GB1.Text = "Standard für " + A_1_Item.Text 'Text der GruppBox + Text aus der Menü
    5. Me.Text = "Standard - A_1"
    7. If Converting_TC1.SelectedIndex = (0) Then ' wenn TabControl und TabPage Pressen
    9. Try
    10. If String.IsNullOrEmpty("V:\Standards\A_1\Pressen") Then Throw New ArgumentNullException("Path")
    11. Dim locDirInfo As IO.DirectoryInfo = Nothing
    12. Dim locLtvItem As ListViewItem = Nothing
    13. With ListView1
    14. Try
    15. .BeginUpdate()
    16. ' Spalten und Zeilen zurücksetzen
    17. .Items.Clear()
    18. .Columns.Clear()
    19. ' Spalten hinzufügen
    20. .Columns.Add("Standards", 300, HorizontalAlignment.Left)
    21. .Columns.Add("Letzte Änderung", 150, HorizontalAlignment.Left)
    22. .GridLines = True
    23. .FullRowSelect = True
    24. .MultiSelect = True
    25. .View = View.Details
    26. locDirInfo = New IO.DirectoryInfo("V:\Standards\A_1\Pressen")
    27. If Not locDirInfo.Exists Then Throw New IO.DirectoryNotFoundException
    29. For Each locFi As IO.FileInfo In locDirInfo.GetFiles()
    31. locLtvItem = New ListViewItem(New String() {locFi.Name,
    32. locFi.LastWriteTimeUtc.ToString})
    33. locLtvItem.Tag = locFi ' Für spätere Verarbeitung der Datei merken
    34. locLtvItem.ImageKey = locFi.Extension ' Icon zuweisen
    35. .Items.Add(locLtvItem)
    36. Next
    37. ' Spaltenbreite automatisch anpassen
    38. 'AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)
    39. Catch ex As Exception
    40. Throw ex
    41. Finally
    42. .EndUpdate()
    43. locDirInfo = Nothing
    44. locLtvItem = Nothing
    45. End Try
    46. End With
    48. Catch ex As Exception
    50. MsgBox(ex.Message)
    51. Exit Try
    52. End Try
    53. ElseIf Converting_TC1.SelectedIndex = (1) Then ' wenn TabControl und TabPage Kneten
    54. Try
    55. If String.IsNullOrEmpty("V:\Standards\A_1\Kneten") Then Throw New ArgumentNullException("Path")
    56. Dim locDirInfo As IO.DirectoryInfo = Nothing
    57. Dim locLtvItem As ListViewItem = Nothing
    58. With ListView2
    59. Try
    60. .BeginUpdate()
    61. ' Spalten und Zeilen zurücksetzen
    62. .Items.Clear()
    63. .Columns.Clear()
    64. ' Spalten hinzufügen
    65. .Columns.Add("Standards", 300, HorizontalAlignment.Left)
    66. .Columns.Add("Letzte Änderung", 150, HorizontalAlignment.Left)
    67. .GridLines = True
    68. .FullRowSelect = True
    69. .MultiSelect = True
    70. .View = View.Details
    71. locDirInfo = New IO.DirectoryInfo("V:\Standards\A_1\Kneten")
    72. If Not locDirInfo.Exists Then Throw New IO.DirectoryNotFoundException
    74. For Each locFi As IO.FileInfo In locDirInfo.GetFiles()
    76. locLtvItem = New ListViewItem(New String() {locFi.Name,
    77. locFi.LastWriteTimeUtc.ToString})
    78. locLtvItem.Tag = locFi ' Für spätere Verarbeitung der Datei merken
    79. locLtvItem.ImageKey = locFi.Extension ' Icon zuweisen
    80. .Items.Add(locLtvItem)
    81. Next
    82. ' Spaltenbreite automatisch anpassen
    83. 'AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)
    84. Catch ex As Exception
    85. Throw ex
    86. Finally
    87. .EndUpdate()
    88. locDirInfo = Nothing
    89. locLtvItem = Nothing
    90. End Try
    91. End With
    93. Catch ex As Exception
    95. MsgBox(ex.Message)
    96. Exit Try
    97. End Try
    98. ElseIf Converting_TC1.SelectedIndex = (2) Then ' wenn TabControl und TabPage Formen
    99. Try
    100. If String.IsNullOrEmpty("V:\Standards\A_1\Formen") Then Throw New ArgumentNullException("Path")
    101. Dim locDirInfo As IO.DirectoryInfo = Nothing
    102. Dim locLtvItem As ListViewItem = Nothing
    103. With ListView3
    104. Try
    105. .BeginUpdate()
    106. ' Spalten und Zeilen zurücksetzen
    107. .Items.Clear()
    108. .Columns.Clear()
    109. ' Spalten hinzufügen
    110. .Columns.Add("Schneide Standards", 375, HorizontalAlignment.Left)
    111. .Columns.Add("Letzte Änderung", 150, HorizontalAlignment.Left)
    112. .GridLines = True
    113. .FullRowSelect = True
    114. .MultiSelect = True
    115. .View = View.Details
    116. locDirInfo = New IO.DirectoryInfo("V:\Standards\Converting\M43\EBI")
    117. If Not locDirInfo.Exists Then Throw New IO.DirectoryNotFoundException
    119. For Each locFi As IO.FileInfo In locDirInfo.GetFiles()
    121. locLtvItem = New ListViewItem(New String() {locFi.Name,
    122. locFi.LastWriteTimeUtc.ToString})
    123. locLtvItem.Tag = locFi ' Für spätere Verarbeitung der Datei merken
    124. locLtvItem.ImageKey = locFi.Extension ' Icon zuweisen
    125. .Items.Add(locLtvItem)
    126. Next
    127. ' Spaltenbreite automatisch anpassen
    128. 'AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)
    129. Catch ex As Exception
    130. Throw ex
    131. Finally
    132. .EndUpdate()
    133. locDirInfo = Nothing
    134. locLtvItem = Nothing
    135. End Try
    136. End With
    138. Catch ex As Exception
    140. MsgBox(ex.Message)
    141. Exit Try
    142. End Try
    143. ElseIf Converting_TC1.SelectedIndex = (3) Then ' wenn TabControl und TabPage Packen
    144. Try
    145. If String.IsNullOrEmpty("V:\Standards\A_1\Packen") Then Throw New ArgumentNullException("Path")
    146. Dim locDirInfo As IO.DirectoryInfo = Nothing
    147. Dim locLtvItem As ListViewItem = Nothing
    148. With ListView4
    149. Try
    150. .BeginUpdate()
    151. ' Spalten und Zeilen zurücksetzen
    152. .Items.Clear()
    153. .Columns.Clear()
    154. ' Spalten hinzufügen
    155. .Columns.Add("Schneide Standards", 375, HorizontalAlignment.Left)
    156. .Columns.Add("Letzte Änderung", 150, HorizontalAlignment.Left)
    157. .GridLines = True
    158. .FullRowSelect = True
    159. .MultiSelect = True
    160. .View = View.Details
    161. locDirInfo = New IO.DirectoryInfo("V:\Standards\A_1\Packen")
    162. If Not locDirInfo.Exists Then Throw New IO.DirectoryNotFoundException
    164. For Each locFi As IO.FileInfo In locDirInfo.GetFiles()
    166. locLtvItem = New ListViewItem(New String() {locFi.Name,
    167. locFi.LastWriteTimeUtc.ToString})
    168. locLtvItem.Tag = locFi ' Für spätere Verarbeitung der Datei merken
    169. locLtvItem.ImageKey = locFi.Extension ' Icon zuweisen
    170. .Items.Add(locLtvItem)
    171. Next
    172. ' Spaltenbreite automatisch anpassen
    173. 'AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)
    174. Catch ex As Exception
    175. Throw ex
    176. Finally
    177. .EndUpdate()
    178. locDirInfo = Nothing
    179. locLtvItem = Nothing
    180. End Try
    181. End With
    183. Catch ex As Exception
    185. MsgBox(ex.Message)
    186. Exit Try
    187. End Try
    189. End If
    191. Catch ex As Exception
    192. MsgBox(ex.Message)
    193. End Try
    195. End Sub


    VB.NET-Quellcode

    1. Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
    3. Try
    5. With DirectCast(sender, ListView)
    7. If .FocusedItem IsNot Nothing Then
    9. 'FileInfo aus dem ListviewItem.Tag holen
    11. Dim locFi As IO.FileInfo = CType(.FocusedItem.Tag, IO.FileInfo)
    13. AxAcroPDF1.LoadFile(locFi.FullName)
    15. locFi = Nothing
    17. End If
    19. End With
    21. 　
    23. Catch ex As Exception
    25. MsgBox(ex.Message)
    27. End Try
    29. End Sub


    Vielen Dank
    Bilder

    • 2018-10-27_11h11_45.jpg

      37,66 kB, 832×266, 125 mal angesehen

    Hallo,

    ich muss gestehen das ich aus deiner Beschreibung nicht genau herauslesen konnte wo genau dein Problem ist. Wäre es möglich, dass du deine Probleme in einzelne Themenbereiche/Arbeitsschritte gliederst? Dann kann man die einzeln durch arbeiten.

    Ach und nimm diese ganzen try/catch Blöcke raus. Wozu sollen die sein? Die helfen dir erstmal gar nicht.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    Wenn ich das richtig verstanden habe geht es darum das wenn er auf A_1 klickt alle Dateien aus dem Ordner A_1 in die ListView aufgelistet werden sollen. Und dementsprechend auf
    die Unterordner Pressen/Formen usw aufgeteilt werden.
    Und wenn er dann was im ListView anklickt die PDF öffnen.

    Die Frage ist wo ist das Problem ? Funktioniert etwas nicht oder weißt du allgemein nicht wie du das angehst?
    Dann wie mein Vorposter schon sagt Try-Catch weg hier mal dazu was: TryCatch ist ein heißes Eisen
    Und den Microsoft.VisualBasic Namespace rausschmeißen.
    Du nutzt .NET nicht VB6 deshalb würde hier MsgBox eher MessageBox.Show() heißen. Siehe: Visual Studio - Empfohlene Einstellungen
    Grüße , xChRoNiKx

    Nützliche Links:
    Visual Studio Empfohlene Einstellungen | Try-Catch heißes Eisen

    @ijokur Um Deinen Post besser lesen zu können, wäre es gut, wenn Du diesen Deinen Post editierst und den Code in einen
    Spoiler anzeigen
    Spoiler
    packst.
    Code markieren, auf Spoiler clicken.

    Do It :!:
    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!

Facebook
Telefonspende