''' <summary> ''' Chargement de la configuration ''' </summary> ''' <remarks></remarks> Private Sub LoadConfig() Dim Filecfg As String = Nothing Dim sr As StreamReader = Nothing Dim ser As XmlSerializer = Nothing Dim reader As StringReader = Nothing Try 'On recupère les données pour deserealize If File.Exists(My.Application.Info.DirectoryPath & "" & CFG_FILE) Then 'on recupère le contenu du fichier si exist sr = New StreamReader(My.Application.Info.DirectoryPath & "" & CFG_FILE) Filecfg = sr.ReadToEnd() Else Filecfg = My.Resources.DefCfg End If 'On deserialize ser = New XmlSerializer(GetType(XmlCfg)) reader = New StringReader(Filecfg) 'On set les données Me.Sections = CType(ser.Deserialize(reader), XmlCfg).Sections Catch ex As Exception MessageBox.Show("Une erreur est survenue lors de la lecture de la configuration:" & vbNewLine & _ ex.Message, "Erreur de configuration", MessageBoxButtons.OK, MessageBoxIcon.Error) Mainerreur = E_MainErreur.BadConfig Finally 'On ferme tout If sr IsNot Nothing Then sr.Close() If sr IsNot Nothing Then sr.Dispose() If reader IsNot Nothing Then reader.Close() If reader IsNot Nothing Then reader.Dispose() End Try End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question