Moin liebe Forum Gemeinde,
ich bin derzeit dabei, mir die Arbeit zu erleichtern und habe ein kleines Programm geschrieben. Nun stehe ich vor einem Problem.
Mein Programm besteht aus insgesamt 2 Forms. Einmal die normale Oberfläche und einmal eines für Einstellungen. Ich speichere
die Werte der EInstellungen in einer *ini Datei. nur muss ich leider jedesmal auf Einstellungen laden klicken, bevor diese übernommen werden.
Gibt es eine Möglichkeit, diese sofort bei Programmstart auszulesen ohne, dass ich auf den Button Einstellungen laden klicken muss?
Hier der Code aus dem Einstellungs Form:
Danke im Voraus
Beste Grüße
ich bin derzeit dabei, mir die Arbeit zu erleichtern und habe ein kleines Programm geschrieben. Nun stehe ich vor einem Problem.
Mein Programm besteht aus insgesamt 2 Forms. Einmal die normale Oberfläche und einmal eines für Einstellungen. Ich speichere
die Werte der EInstellungen in einer *ini Datei. nur muss ich leider jedesmal auf Einstellungen laden klicken, bevor diese übernommen werden.
Gibt es eine Möglichkeit, diese sofort bei Programmstart auszulesen ohne, dass ich auf den Button Einstellungen laden klicken muss?
Hier der Code aus dem Einstellungs Form:
VB.NET-Quellcode
- Public Class settingsX
- Private Declare Ansi Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32
- Private Declare Ansi Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32
- Public Function INI_ReadValueFromFile(ByVal strSection As String, ByVal strKey As String, ByVal strDefault As String, ByVal strFile As String) As String
- Dim strTemp As String = Space(1024), lLength As Integer
- lLength = GetPrivateProfileString(strSection, strKey, strDefault, strTemp, strTemp.Length, strFile)
- Return (strTemp.Substring(0, lLength))
- End Function
- Public Function INI_WriteValueToFile(ByVal strSection As String, ByVal strKey As String, ByVal strValue As String, ByVal strFile As String) As Boolean
- Return (Not (WritePrivateProfileString(strSection, strKey, strValue, strFile) = 0))
- End Function
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- Me.Hide()
- End Sub
- Private Sub saveini_Click(sender As System.Object, e As System.EventArgs) Handles saveini.Click
- INI_WriteValueToFile("SettingsSMTP", "Username", user2.Text, ".\cfg.ini")
- INI_WriteValueToFile("SettingsSMTP", "Passwort", pass2.Text, ".\cfg.ini")
- INI_WriteValueToFile("SettingsSMTP", "Server", server2.Text, ".\cfg.ini")
- INI_WriteValueToFile("SettingsSMTP", "Port", port2.Text, ".\cfg.ini")
- INI_WriteValueToFile("SettingsVERSAND", "Dienstleister", dienst2.Text, ".\cfg.ini")
- INI_WriteValueToFile("SettingsVERSAND", "Kundennummer", kunden2.Text, ".\cfg.ini")
- INI_WriteValueToFile("SettingsVERSAND", "CC", cc2.Text, ".\cfg.ini")
- INI_WriteValueToFile("SettingsVERSAND", "Telefon", tel2.Text, ".\cfg.ini")
- End Sub
- Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
- user2.Text = INI_ReadValueFromFile("SettingsSMTP", "Username", "", ".\cfg.ini")
- pass2.Text = INI_ReadValueFromFile("SettingsSMTP", "Passwort", "", ".\cfg.ini")
- server2.Text = INI_ReadValueFromFile("SettingsSMTP", "Server", "", ".\cfg.ini")
- port2.Text = INI_ReadValueFromFile("SettingsSMTP", "Port", "", ".\cfg.ini")
- dienst2.Text = INI_ReadValueFromFile("SettingsVERSAND", "Dienstleister", "", ".\cfg.ini")
- kunden2.Text = INI_ReadValueFromFile("SettingsVERSAND", "Kundennummer", "", ".\cfg.ini")
- cc2.Text = INI_ReadValueFromFile("SettingsVERSAND", "CC", "", ".\cfg.ini")
- tel2.Text = INI_ReadValueFromFile("SettingsVERSAND", "Telefon", "", ".\cfg.ini")
- End Sub
- Private Sub settingsX_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- End Sub
- End Class
Danke im Voraus
Beste Grüße