vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2021
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: DGV-Spaltenreihenfolge speichern/lesen 
Autor: stefanbla80
Datum: 06.11.20 15:38

Nachtrag
    Public Sub WriteSettingsDGV()
 
        Me.CheckDGVSettingsXML()
 
        Dim xml_Doc As XmlDocument
        Dim xml_NodeWrite As XmlNode
 
        If IO.File.Exists(DGVSettingsXML_User) Then
 
            xml_Doc = New XmlDocument()
            xml_Doc.Load(DGVSettingsXML_User)
 
            For i As Integer = 0 To PlanningGuideDataDataGridView.Columns.Count _
              - 1
                If (xml_Doc.SelectSingleNode("DGVSettings/Column_" & CStr(i) & _
                "/HeaderText") Is Nothing = False) Then
                    xml_NodeWrite = xml_Doc.SelectSingleNode( _
                    "DGVSettings/Column_" & CStr(i) & "/HeaderText")
                    xml_NodeWrite.InnerText = _
                    Me.PlanningGuideDataDataGridView.Columns( _
                    i).HeaderText.ToString()
                End If
                If (xml_Doc.SelectSingleNode("DGVSettings/Column_" & CStr(i) & _
                  "/DisplayIndex") Is Nothing = False) Then
                    xml_NodeWrite = xml_Doc.SelectSingleNode( _
                    "DGVSettings/Column_" & CStr(i) & "/DisplayIndex")
                    xml_NodeWrite.InnerText = _
                    Me.PlanningGuideDataDataGridView.Columns(i).DisplayIndex
                End If
                If (xml_Doc.SelectSingleNode("DGVSettings/Column_" & CStr(i) & _
                  "/Width") Is Nothing = False) Then
                    xml_NodeWrite = xml_Doc.SelectSingleNode( _
                    "DGVSettings/Column_" & CStr(i) & "/Width")
                    xml_NodeWrite.InnerText = _
                    Me.PlanningGuideDataDataGridView.Columns(i).Width.ToString
                End If
                If (xml_Doc.SelectSingleNode("DGVSettings/Column_" & CStr(i) & _
                  "/Visible") Is Nothing = False) Then
                    xml_NodeWrite = xml_Doc.SelectSingleNode( _
                    "DGVSettings/Column_" & CStr(i) & "/Visible")
                    If Me.PlanningGuideDataDataGridView.Columns(i).Visible = _
                    True Then
                        xml_NodeWrite.InnerText = "true"
                    Else
                        xml_NodeWrite.InnerText = "false"
                    End If
                End If
            Next
            xml_Doc.Save(DGVSettingsXML_User)
        Else
            MsgBox("There is no 'PlanningGuide_DGVSettings-File' available." & _
              "Please contact your administrator!")
        End If
 
    End Sub
 
    Public Sub ReadSettingsDGV()
 
        Me.CheckDGVSettingsXML()
 
        Dim xml_Doc As XmlDocument
        Dim xml_NodeLoad As XmlNode
 
        If IO.File.Exists(DGVSettingsXML_User) Then
 
            xml_Doc = New XmlDocument()
            xml_Doc.Load(DGVSettingsXML_User)
 
            For i As Integer = 0 To PlanningGuideDataDataGridView.Columns.Count _
              - 1
                If (xml_Doc.SelectSingleNode("DGVSettings/Column_" & CStr(i) & _
                "/DisplayIndex") Is Nothing = False) Then
                    xml_NodeLoad = xml_Doc.SelectSingleNode( _
                    "DGVSettings/Column_" & CStr(i) & "/DisplayIndex")
                    'Me.PlanningGuideDataDataGridView.Columns(i).DisplayIndex = 
                    ' xml_NodeLoad.FirstChild.Value
                    Me.PlanningGuideDataDataGridView.Columns(i).DisplayIndex = _
                      xml_NodeLoad.InnerText
                End If
                If (xml_Doc.SelectSingleNode("DGVSettings/Column_" & CStr(i) & _
                  "/Width") Is Nothing = False) Then
                    xml_NodeLoad = xml_Doc.SelectSingleNode( _
                    "DGVSettings/Column_" & CStr(i) & "/Width")
                    Me.PlanningGuideDataDataGridView.Columns(i).Width = _
                    xml_NodeLoad.FirstChild.Value
                End If
                If (xml_Doc.SelectSingleNode("DGVSettings/Column_" & CStr(i) & _
                  "/Visible") Is Nothing = False) Then
                    xml_NodeLoad = xml_Doc.SelectSingleNode( _
                    "DGVSettings/Column_" & CStr(i) & "/Visible")
                    Me.PlanningGuideDataDataGridView.Columns(i).Visible = _
                    xml_NodeLoad.FirstChild.Value
                End If
            Next
        Else
            MsgBox("There is no 'PlanningGuide_DGVSettings-File' available." & _
              "Please contact your administrator!")
        End If
 
    End Sub
 
    Private Sub CheckDGVSettingsXML()
 
        If IO.File.Exists(DGVSettingsXML_User) Then
            Exit Sub
        Else
            IO.File.Copy(DGVSettingsXML_Master, DGVSettingsXML_User)
        End If
 
    End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
DGV-Spaltenreihenfolge speichern/lesen133stefanbla8006.11.20 15:38
Re: DGV-Spaltenreihenfolge speichern/lesen72stefanbla8006.11.20 15:38
Re: DGV-Spaltenreihenfolge speichern/lesen76effeff06.11.20 18:37
Re: DGV-Spaltenreihenfolge speichern/lesen55stefanbla8007.11.20 09:27
Re: DGV-Spaltenreihenfolge speichern/lesen98effeff06.11.20 18:38
Re: DGV-Spaltenreihenfolge speichern/lesen50stefanbla8007.11.20 09:28

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2021 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel