Deklaration: 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 Beschreibung: Parameter:
Rückgabewert: Beispiel: 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 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 ' Beispiel-Struktur in eine INI-Datei speichern Private Type BspStruc BspName As String BspStrasse As String BspHausNr As String BspAlter As Long BspTel As String End Type Private PDaten As BspStruc ' Evtl. in der INI-Datei gespeicherte Daten auslesen ' Sind keine Werte gespeichert, (Unbekannt) zurückgeben Private Sub Form_Load() Dim TmpRetStr As String * 1280 Dim RetVal As Long With PDaten RetVal = GetPrivateProfileString("Persönliche Daten", "Name", _ "Unbekannt" & vbNullChar, TmpRetStr, Len(TmpRetStr), _ App.Path & "\Daten.ini") .BspName = Left$(TmpRetStr, RetVal) RetVal = GetPrivateProfileString("Persönliche Daten", "Straße", _ "Unbekannt" & vbNullChar, TmpRetStr, Len(TmpRetStr), _ App.Path & "\Daten.ini") .BspStrasse = Left$(TmpRetStr, RetVal) RetVal = GetPrivateProfileString("Persönliche Daten", _ "Haus Nummer", "Unbekannt" & vbNullChar, TmpRetStr, Len(TmpRetStr), _ App.Path & "\Daten.ini") .BspHausNr = Left$(TmpRetStr, RetVal) .BspAlter = GetPrivateProfileInt("Persönliche Daten", "Alter", 0, _ App.Path & "\Daten.ini") RetVal = GetPrivateProfileString("Persönliche Daten", "Telefonnummer", _ "Unbekannt" & vbNullChar, TmpRetStr, Len(TmpRetStr), _ App.Path & "\Daten.ini") .BspTel = Left$(TmpRetStr, RetVal) End With End Sub ' Daten in INI-Datei speichern Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) With PDaten WritePrivateProfileString "Persönliche Daten", "Name", _ .BspName, App.Path & "\Daten.ini" WritePrivateProfileString "Persönliche Daten", "Straße", _ .BspStrasse, App.Path & "\Daten.ini" WritePrivateProfileString "Persönliche Daten", "Haus Nummer", _ .BspHausNr, App.Path & "\Daten.ini" WritePrivateProfileString "Persönliche Daten", "Alter", _ CStr(.BspAlter), App.Path & "\Daten.ini" WritePrivateProfileString "Persönliche Daten", "Telefonnummer", _ .BspTel, App.Path & "\Daten.ini" End With End Sub ' Daten ändern Private Sub Command1_Click() Dim TmpStr As String With PDaten .BspName = InputBox("Geben Sie Ihren Name ein.", _ "Namen eingeben", "Manfred") .BspStrasse = InputBox("Geben Sie die Strasse ein.", _ "Strasse eingeben", "Berliner Strasse") .BspHausNr = InputBox("Geben Sie die Hausnummer.", _ "Hausnummer eingeben", "96b") TmpStr = InputBox("Geben Sie Ihr Alter ein.", _ "Alter eingeben", "45") If IsNumeric(TmpStr) = False Then .BspAlter = 0 Else .BspAlter = TmpStr End If .BspTel = InputBox("Geben Sie Ihre Telefonnummer ein.", _ "Telefonnummer eingeben", "555 - 667788") End With End Sub ' Daten in MsgBox anzeigen Private Sub Command2_Click() With PDaten MsgBox "Name: " & .BspName & vbCrLf & _ "Straße: " & .BspStrasse & " " & .BspHausNr & vbCrLf & _ "Alter: " & .BspAlter & vbCrLf & _ "Telefon: " & .BspTel, vbOKOnly, "Hallo " & .BspName End With End Sub Diese Seite wurde bereits 25.020 mal aufgerufen. |
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 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 Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||||
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. |