Deklaration: Declare Function GetProfileString Lib "kernel32.dll" _ Alias "GetProfileStringA" ( _ ByVal lpAppName As String, _ ByVal lpKeyName As String, _ ByVal lpDefault As String, _ ByVal lpReturnedString As String, _ ByVal nSize As Long) As Long
Beispiel: Private Declare Function GetProfileInt Lib "kernel32.dll" _ Alias "GetProfileIntA" ( _ ByVal lpAppName As String, _ ByVal lpKeyName As String, _ ByVal nDefault As Long) As Long Private Declare Function GetProfileString Lib "kernel32.dll" _ Alias "GetProfileStringA" ( _ ByVal lpAppName As String, _ ByVal lpKeyName As String, _ ByVal lpDefault As String, _ ByVal lpReturnedString As String, _ ByVal nSize As Long) As Long Private Declare Function WriteProfileString Lib "kernel32.dll" _ Alias "WriteProfileStringA" ( _ ByVal lpszSection As String, _ ByVal lpszKeyName As String, _ ByVal lpszString As String) As Long Private Sub Command1_Click() Dim Retval As Long Dim TmpWP As String, TmpTile As String, TmpDesc As String ' Hintergrundbild ermitteln und VbNullChar abtrennen TmpWP = Space(256) Retval = GetProfileString("Desktop", "Wallpaper", "Kein", TmpWP, Len(TmpWP)) TmpWP = Left$(TmpWP, Retval) ' Art der Anzeige des Hintergrundbildes ermitteln Select Case GetProfileInt("Desktop", "TileWallpaper", 2) Case 1 TmpTile = "auf der Fläche" Case 0 TmpTile = "Mittig" Case Else TmpTile = "auf eine Unbekannte weise" End Select ' Ergebnis ausgeben und Frage zum Eintragen einer Bemerkung stellen MsgBox "Das Hintergundbild " & TmpWP & " wird " & TmpTile & " angeziegt" Retval = MsgBox("Wollen Sie eine Bemerkung in die Win.ini eintragen", _ vbQuestion + vbYesNo, "Bemerkung eintragen") ' entweder Bemerkung eintragen oder löschen If Retval = vbYes Then TmpDesc = InputBox("Bemerkung eingeben", "Bemerkung", "Bitte hier _ Bemerkung eingeben") ' wird eine leere Zeichenfolge oder nichts eingegeben so wird die ' Bemerkung gelöscht If TmpDesc = "" Or TmpDesc = "Bitte Bemerkung eingeben" Then WriteProfileString "Desktop", "Bemerkung", vbNullString Else WriteProfileString "Desktop", "Bemerkung", TmpDesc End If End If End Sub Diese Seite wurde bereits 12.127 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 Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung 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. |