Deklaration: Declare Function WriteProfileString Lib "kernel32.dll" _ Alias "WriteProfileStringA" ( _ ByVal lpszSection As String, _ ByVal lpszKeyName As String, _ ByVal lpszString As String) As Long Beschreibung: Parameter:
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 Debug.Print WriteProfileString("Desktop", "Bemerkung", vbNullString) Else WriteProfileString "Desktop", "Bemerkung", TmpDesc End If End If End Sub Diese Seite wurde bereits 10.611 mal aufgerufen. |
Neu! sevDTA 3.0 Pro SEPA mit Kontonummernprüfung Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. 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. |