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.
Vielen Dank
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
- Private Sub A_1_Item_Click(sender As Object, e As EventArgs) Handles A_1_Item.Click
- Try
- Converting_GB1.Text = "Standard für " + A_1_Item.Text 'Text der GruppBox + Text aus der Menü
- Me.Text = "Standard - A_1"
- If Converting_TC1.SelectedIndex = (0) Then ' wenn TabControl und TabPage Pressen
- Try
- If String.IsNullOrEmpty("V:\Standards\A_1\Pressen") Then Throw New ArgumentNullException("Path")
- Dim locDirInfo As IO.DirectoryInfo = Nothing
- Dim locLtvItem As ListViewItem = Nothing
- With ListView1
- Try
- .BeginUpdate()
- ' Spalten und Zeilen zurücksetzen
- .Items.Clear()
- .Columns.Clear()
- ' Spalten hinzufügen
- .Columns.Add("Standards", 300, HorizontalAlignment.Left)
- .Columns.Add("Letzte Änderung", 150, HorizontalAlignment.Left)
- .GridLines = True
- .FullRowSelect = True
- .MultiSelect = True
- .View = View.Details
- locDirInfo = New IO.DirectoryInfo("V:\Standards\A_1\Pressen")
- If Not locDirInfo.Exists Then Throw New IO.DirectoryNotFoundException
- For Each locFi As IO.FileInfo In locDirInfo.GetFiles()
- locLtvItem = New ListViewItem(New String() {locFi.Name,
- locFi.LastWriteTimeUtc.ToString})
- locLtvItem.Tag = locFi ' Für spätere Verarbeitung der Datei merken
- locLtvItem.ImageKey = locFi.Extension ' Icon zuweisen
- .Items.Add(locLtvItem)
- Next
- ' Spaltenbreite automatisch anpassen
- 'AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)
- Catch ex As Exception
- Throw ex
- Finally
- .EndUpdate()
- locDirInfo = Nothing
- locLtvItem = Nothing
- End Try
- End With
- Catch ex As Exception
- MsgBox(ex.Message)
- Exit Try
- End Try
- ElseIf Converting_TC1.SelectedIndex = (1) Then ' wenn TabControl und TabPage Kneten
- Try
- If String.IsNullOrEmpty("V:\Standards\A_1\Kneten") Then Throw New ArgumentNullException("Path")
- Dim locDirInfo As IO.DirectoryInfo = Nothing
- Dim locLtvItem As ListViewItem = Nothing
- With ListView2
- Try
- .BeginUpdate()
- ' Spalten und Zeilen zurücksetzen
- .Items.Clear()
- .Columns.Clear()
- ' Spalten hinzufügen
- .Columns.Add("Standards", 300, HorizontalAlignment.Left)
- .Columns.Add("Letzte Änderung", 150, HorizontalAlignment.Left)
- .GridLines = True
- .FullRowSelect = True
- .MultiSelect = True
- .View = View.Details
- locDirInfo = New IO.DirectoryInfo("V:\Standards\A_1\Kneten")
- If Not locDirInfo.Exists Then Throw New IO.DirectoryNotFoundException
- For Each locFi As IO.FileInfo In locDirInfo.GetFiles()
- locLtvItem = New ListViewItem(New String() {locFi.Name,
- locFi.LastWriteTimeUtc.ToString})
- locLtvItem.Tag = locFi ' Für spätere Verarbeitung der Datei merken
- locLtvItem.ImageKey = locFi.Extension ' Icon zuweisen
- .Items.Add(locLtvItem)
- Next
- ' Spaltenbreite automatisch anpassen
- 'AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)
- Catch ex As Exception
- Throw ex
- Finally
- .EndUpdate()
- locDirInfo = Nothing
- locLtvItem = Nothing
- End Try
- End With
- Catch ex As Exception
- MsgBox(ex.Message)
- Exit Try
- End Try
- ElseIf Converting_TC1.SelectedIndex = (2) Then ' wenn TabControl und TabPage Formen
- Try
- If String.IsNullOrEmpty("V:\Standards\A_1\Formen") Then Throw New ArgumentNullException("Path")
- Dim locDirInfo As IO.DirectoryInfo = Nothing
- Dim locLtvItem As ListViewItem = Nothing
- With ListView3
- Try
- .BeginUpdate()
- ' Spalten und Zeilen zurücksetzen
- .Items.Clear()
- .Columns.Clear()
- ' Spalten hinzufügen
- .Columns.Add("Schneide Standards", 375, HorizontalAlignment.Left)
- .Columns.Add("Letzte Änderung", 150, HorizontalAlignment.Left)
- .GridLines = True
- .FullRowSelect = True
- .MultiSelect = True
- .View = View.Details
- locDirInfo = New IO.DirectoryInfo("V:\Standards\Converting\M43\EBI")
- If Not locDirInfo.Exists Then Throw New IO.DirectoryNotFoundException
- For Each locFi As IO.FileInfo In locDirInfo.GetFiles()
- locLtvItem = New ListViewItem(New String() {locFi.Name,
- locFi.LastWriteTimeUtc.ToString})
- locLtvItem.Tag = locFi ' Für spätere Verarbeitung der Datei merken
- locLtvItem.ImageKey = locFi.Extension ' Icon zuweisen
- .Items.Add(locLtvItem)
- Next
- ' Spaltenbreite automatisch anpassen
- 'AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)
- Catch ex As Exception
- Throw ex
- Finally
- .EndUpdate()
- locDirInfo = Nothing
- locLtvItem = Nothing
- End Try
- End With
- Catch ex As Exception
- MsgBox(ex.Message)
- Exit Try
- End Try
- ElseIf Converting_TC1.SelectedIndex = (3) Then ' wenn TabControl und TabPage Packen
- Try
- If String.IsNullOrEmpty("V:\Standards\A_1\Packen") Then Throw New ArgumentNullException("Path")
- Dim locDirInfo As IO.DirectoryInfo = Nothing
- Dim locLtvItem As ListViewItem = Nothing
- With ListView4
- Try
- .BeginUpdate()
- ' Spalten und Zeilen zurücksetzen
- .Items.Clear()
- .Columns.Clear()
- ' Spalten hinzufügen
- .Columns.Add("Schneide Standards", 375, HorizontalAlignment.Left)
- .Columns.Add("Letzte Änderung", 150, HorizontalAlignment.Left)
- .GridLines = True
- .FullRowSelect = True
- .MultiSelect = True
- .View = View.Details
- locDirInfo = New IO.DirectoryInfo("V:\Standards\A_1\Packen")
- If Not locDirInfo.Exists Then Throw New IO.DirectoryNotFoundException
- For Each locFi As IO.FileInfo In locDirInfo.GetFiles()
- locLtvItem = New ListViewItem(New String() {locFi.Name,
- locFi.LastWriteTimeUtc.ToString})
- locLtvItem.Tag = locFi ' Für spätere Verarbeitung der Datei merken
- locLtvItem.ImageKey = locFi.Extension ' Icon zuweisen
- .Items.Add(locLtvItem)
- Next
- ' Spaltenbreite automatisch anpassen
- 'AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)
- Catch ex As Exception
- Throw ex
- Finally
- .EndUpdate()
- locDirInfo = Nothing
- locLtvItem = Nothing
- End Try
- End With
- Catch ex As Exception
- MsgBox(ex.Message)
- Exit Try
- End Try
- End If
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
VB.NET-Quellcode
- Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
- Try
- With DirectCast(sender, ListView)
- If .FocusedItem IsNot Nothing Then
- 'FileInfo aus dem ListviewItem.Tag holen
- Dim locFi As IO.FileInfo = CType(.FocusedItem.Tag, IO.FileInfo)
- AxAcroPDF1.LoadFile(locFi.FullName)
- locFi = Nothing
- End If
- End With
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
Vielen Dank