Es gibt - wie so oft - mehrere Möglichkeiten, den Inhalt einer TextBox zu speichern. Möglichkeit 1: Speichern in eine Textdatei Dim F As Integer F = FreeFile Open "DeineDatei.txt" For Output As #F Print #F, "Dein Text Zeile 1" Print #F, "Dein Text Zeile 2" ... ' oder Print #F, Text1.Text ... Close #F ' Lesen des Datei-Inhalts Dim F As Integer Dim Zeile1 As String Dim Zeile2 As String F = FreeFile Open "DeineDatei.txt" For Input As #F Line Input #F, Zeile1 Line Input #F, Zeile2 ... Close #F ' Einer Textbox zuordnen Text1.Text = Zeile1 Text2.Text = Zeile2 Möglichkeit 2: Speichern in eine INI-Datei ' INI-Dateien lesen/schreiben Private Declare Function WritePrivateProfileString Lib "kernel32" _ Alias "WritePrivateProfileStringA" ( _ ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, _ ByVal lpString As Any, _ ByVal lpFileName As String) As Long Private Declare Function GetPrivateProfileInt Lib "kernel32" _ Alias "GetPrivateProfileIntA" ( _ ByVal lpApplicationName As String, _ ByVal lpKeyName As String, _ ByVal nDefault As Long, _ ByVal lpFileName As String) As Long Private Declare Function GetPrivateProfileString Lib "kernel32" _ Alias "GetPrivateProfileStringA" ( _ ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, _ ByVal lpDefault As String, _ ByVal lpReturnedString As String, _ ByVal nSize As Long, _ ByVal lpFileName As String) As Long ' Text (String) aus INI-Datei lesen Public Function GetIniString(ByVal Sektion As String, ByVal Titel As String, _ ByVal Vorgabe As String, ByVal Länge As Integer, _ ByVal setupFile As String) As String Dim Result As Long Dim Dummy As String Dummy = Space$(Länge + 1) Result = GetPrivateProfileString(Sektion, Titel, Vorgabe, Dummy, Länge, setupFile) GetIniString = Left$(Dummy, Result) End Function ' Text (String) in INI-Datei speichern Public Sub WriteIniString(ByVal Sektion As String, ByVal Titel As String, _ ByVal IniString As String, ByVal setupFile As String) Dim Result As Long Result = WritePrivateProfileString(Sektion, Titel, IniString, setupFile) End Sub Möglichkeit 3: Speichern in die Windows-Registrier-Datenbank ' Text (String) in Registry speichern SaveSetting "myProgram", "User1", "Name", txtName.Text SaveSetting "myProgram", "User1", "EMail", txtMail.Text ' Text (String) aus Registry auslesen txtName.Text = GetSetting("myProgram", "User1", "Name") txtMail.Text = GetSetting("myProgram", "User1", "Email") Diese Seite wurde bereits 25.325 mal aufgerufen. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Buchempfehlung Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 Neu! sevCoolbar 3.0 Professionelle Toolbars im modernen Design! Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access |
||||||||||
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. |