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.615 mal aufgerufen. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung sevOutBar 4.0 Vertikale Menüleisten á la Outlook Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. |
||||||||||||||||||
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. |