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.866 mal aufgerufen. |
sevWizard für VB5/6 ![]() Professionelle Assistenten im Handumdrehen Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Buchempfehlung Tipp des Monats ![]() Dieter Otter sevTabStrip: Rechtsklick auf Reiter erkennen Eine Funktion, mit der sich prüfen lässt, auf welchen Tab-Reiter ein Mausklick erfolgte TOP Entwickler-Paket ![]() TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR... |
||||||||||||||||||
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. |