Deklaration: Declare Function GetPrivateProfileInt Lib "kernel32.dll" _ Alias "GetPrivateProfileIntA" ( _ ByVal lpApplicationName As String, _ ByVal lpKeyName As String, _ ByVal nDefault As Long, _ 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 11.573 mal aufgerufen. |
TOP! Unser Nr. 1 Neu! sevDataGrid 3.0 Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. 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. |