Die Community zu .NET und Classic VB.
Menü

VB 5/6-Tipp 0054: Desktophintergrundbild ändern

 von 

Beschreibung 

Ein beliebiges (Naja geht nur mit Bitmapbildern) Bild läßt sich hiermit als Desktophintergrund einbauen.

Schwierigkeitsgrad:

Schwierigkeitsgrad 1

Verwendete API-Aufrufe:

SystemParametersInfoA (SystemParametersInfo)

Download:

Download des Beispielprojektes [13,75 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
' Die Komponente 'Microsoft Common Dialog Control 6.0 (SP3) (COMDLG32.OCX)' wird benötigt.

'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Standarddialog-Steuerelement "CommonDialog1"
' Steuerelement: Schaltfläche "Command3"
' Steuerelement: Schaltfläche "Command2"
' Steuerelement: Bildfeld-Steuerelement "Picture1"
' Steuerelement: Schaltfläche "Command1"

Option Explicit

Private Declare Function SystemParametersInfo Lib "user32" _
        Alias "SystemParametersInfoA" (ByVal uAction As _
        Long, ByVal uParam As Long, ByVal lpvParam As Any, _
        ByVal fuWinIni As Long) As Long

Const SPIF_SENDWININICHANGE = &H2
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1


Private Sub Command1_Click()
  CommonDialog1.Filter = ("BMP-Grafiken (*.BMP)|*.BMP")
  CommonDialog1.InitDir = App.Path
  CommonDialog1.ShowOpen
    
  If CommonDialog1.filename <> "" Then
    Picture1.Picture = LoadPicture(CommonDialog1.filename)
  End If
End Sub

Private Sub Command2_Click()
  If CommonDialog1.filename <> "" Then
    SystemParametersInfo SPI_SETDESKWALLPAPER, 0, _
    CommonDialog1.filename, SPIF_UPDATEINIFILE Or _
    SPIF_SENDWININICHANGE
  End If
End Sub

Private Sub Command3_Click()
  SystemParametersInfo SPI_SETDESKWALLPAPER, 0, "", _
  SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Tipp-Kompatibilität:

Windows/VB-VersionWin32sWin95Win98WinMEWinNT4Win2000WinXP
VB4
VB5
VB6

Hat dieser Tipp auf Ihrem Betriebsystem und mit Ihrer VB-Version funktioniert?

Ja, funktioniert!

Nein, funktioniert nicht bei mir!

VB-Version:

Windows-Version:

Ihre Meinung  

Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 13 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.

Kommentar von gioykgyzj am 10.11.2011 um 22:28

V1JaV7 <a href="http://hvdmnydjddnb.com/">hvdmnydjddnb</a>, [url=http://rvdljzhiktau.com/]rvdljzhiktau[/url], [link=http://losgcpmwavce.com/]losgcpmwavce[/link], http://dvybagzczfrm.com/

Kommentar von Philipp B. am 02.10.2010 um 00:30

Unter Vista funktioniert der Code nicht mehr (zumindest mit JPG's)

Kommentar von Borsti am 24.02.2008 um 13:58

Kleine Info: Unter Vista funktionierts jetz auch mit JPEG

Kommentar von steppi am 01.02.2005 um 15:17

funktioniert ganz gut, hab mir ein kleines Tool gebaut, das automatisch alle 5 Minuten das Bild ändert.
Schön wäre es jetzt noch wenn man von einem in das nächste Bild überblenden könnte...

Kommentar von Florian Rittmeier am 23.05.2004 um 15:34

Sehr geehrte Leser,

es ist nach aktuellem Kentnissstand nicht möglich andere Hintergrundbilder, als solche vom Typ Bitmap, zu verwenden.
Auch der Microsoft Internet Explorer verwendet zum Setzen von JPEGs als Hintergrundbild eine Kopie des JPEGS vom Typ Bitmap.

Gruß Florian
--------------
Organisation und Koordination bei ActiveVB.de

Kommentar von Michael am 26.01.2004 um 22:28

Ein sehr guter Beitrag muss ich sagen. Habe ich auch die möglichkeit direkt eine jpg-Datei als hintergrund festzulegen, ohne diese vorher in eine bmp umzuwandeln?

Kommentar von J. Wagner am 08.10.2003 um 08:38

Bei Windows 2000 kann ich als Hintergrundbild auch .JPG verwenden. Wie kann ich das programmtechnisch machen ?

Kommentar von Movergan am 30.12.2002 um 16:57

Man kann auch gif und jpg verwenden, wenn man vorher einfach den folgenden Tipp anwendet:
http://www.activevb.de/tipps/vb6tipps/tipp0493.html
Damit lassen sich jpg und gif nach Bitmap konvertieren.

Kommentar von JPA am 07.12.2002 um 22:42

Echt wird auf die Dauer etwas groß .bmp datein gibs da keine möglichkeit?

Kommentar von René am 08.09.2001 um 13:16

Wal eine Frag wenn ich den computer unter Win2000 Pro abmelde und wieder anmelde ist das alte Bild wieder da bei euch auch so????

Kommentar von Reinhard am 25.01.2001 um 14:31

Wie kann ich eine Bitmap Datei (bmp, gif usw.) verkleinern. Ich meine, richtig verkleiner, wie es mit einem Bildbearbeitungsprogramm geht. ZB. eine Bilddatei die zb. 400x300 Pixel groß ist, auf zb. 100x75 Pixel ECHT herrunterrechen.
Vielen Dank

Kommentar von marac am 17.01.2001 um 14:22

Für Kachel-Hintergründe eine tolle Sache!
Und was mache ich, wenn ich keine Kacheln will, sondern ein zentriertes Bild?

Kommentar von jochen Schneider am 09.11.2000 um 17:08

Echt super eure Tips,
aber sagt mal geht das mit dem hintergrund nur mit *BMP-Dateien?
Giebt es keine möglichkeit auch *.jpg-Dateien oder Gifs zu zeigen?