Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Color speichern ?
Autor: Luk
Datum: 17.02.04 21:27
Ups....hier natürlich noch den Code von yellow-Lucky Imports System.IO Imports System.IO.IsolatedStorage Imports System.Xml Imports System.Xml.Serialization Public Class INIfile Public Class IniStructure Public lastServer As String Public lastServerList() As String Public lastSSPI As Boolean Public lastUser As String Public optSendMail As Boolean Public optSenderMailAdress As String End Class Private IniData As Object Private lastServer As String Private lastServerList() As String Private lastSSPI As Boolean Private lastUser As String Private optSendMail As Boolean Private optSenderMailAdress As String Public Property Server() As String Get Return lastServer End Get Set(ByVal Value As String) lastServer = Value End Set End Property Public Property ServerList() As Array Get Return lastServerList End Get Set(ByVal Value As Array) lastServerList = Value End Set End Property Public Property SSPI() As Boolean Get Return lastSSPI End Get Set(ByVal Value As Boolean) lastSSPI = Value End Set End Property Public Property User() As String Get Return lastUser End Get Set(ByVal Value As String) lastUser = Value End Set End Property Public Property SendMail() As Boolean Get Return optSendMail End Get Set(ByVal Value As Boolean) optSendMail = Value End Set End Property Public Property SenderMailAdress() As String Get Return optSenderMailAdress End Get Set(ByVal Value As String) optSenderMailAdress = Value End Set End Property Public Sub LoadXMLClientConfig() Dim isf As File Dim isfs As FileStream Dim sr As StreamReader Try isfs = isf.OpenRead("AppData.cfg") sr = New StreamReader(isfs, System.Text.Encoding.UTF8) Dim xmlser As New XmlSerializer(GetType(IniStructure)) IniData = CType(xmlser.Deserialize(sr), IniStructure) Catch ex As Exception ' Init Einstellungen beim ersten Aufruf IniData = New IniStructure IniData.lastServer = "(local)" ReDim lastServerList(0) lastServerList(0) = "(local)" IniData.lastServerList = lastServerList IniData.lastSSPI = False IniData.lastUser = "sa" IniData.optSendMail = True IniData.optSenderMailAdress = "" Finally If Not sr Is Nothing Then sr.Close() If Not isfs Is Nothing Then isfs.Close() End Try If Not IniData Is Nothing Then lastServer = IniData.lastServer lastServerList = IniData.lastServerList lastSSPI = IniData.lastSSPI lastUser = IniData.lastUser optSendMail = IniData.optSendMail optSenderMailAdress = IniData.optSenderMailAdress End If End Sub Public Sub SaveXMLClientConfig() If IniData Is Nothing Then Exit Sub Dim isf As File Dim isfs As FileStream Dim sw As StreamWriter Try isfs = isf.Create("AppData.cfg") sw = New StreamWriter(isfs, System.Text.Encoding.UTF8) ' Parametereinstellungen ermitteln für Speicherung IniData.lastserver = lastServer IniData.lastServerList = lastServerList IniData.lastSSPI = lastSSPI IniData.lastUser = lastUser IniData.optSendMail = optSendMail IniData.optSenderMailAdress = optSenderMailAdress Dim xmlser As New XmlSerializer(GetType(IniStructure)) xmlser.Serialize(sw, IniData) Catch ex As System.Exception MsgBox("Einstellungen konnten nicht gepeichert werden: " + ex.Message, MsgBoxStyle.Exclamation, "ACHTUNG") Finally If Not sw Is Nothing Then sw.Close() If Not isfs Is Nothing Then isfs.Close() End Try End Sub End Class

Color speichern ?	629	Luk	17.02.04 21:25
Re: Color speichern ?	488	Luk	17.02.04 21:27
Re: Color speichern ?	476	WaldiMaywood	17.02.04 22:16
Re: Color speichern ?	499	Luk	17.02.04 22:53
Re: Color speichern ?	394	Luk	19.02.04 13:20

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übersicht

Suchen