Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Fensterposition / Reihenfolge
Autor: Joe1972
Datum: 12.10.06 20:55
Hallo, hab hier mal was ausprobiert.... der Code bewirkst das eine Picturebox Direkt auf den desktop dargestellt wird, mit den icons im vordergrund. Hat nur so ein paar schönheitsfehler... Wenn man ein icon anklickt wird das bild zerstört. Bitte, Bitte... hab wirklich schon einiges ausprobiert. Aber im Code scheinen noch einige Fehgler zu stecken... Option Explicit ' Benötigte API-Deklarationen Private Declare Function GetDesktopWindow Lib "user32.dll" () As Long Private Declare Function GetDC Lib "user32.dll" (ByVal hwnd As Long) As Long Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetWindowRect Lib "user32.dll" ( _ ByVal hwnd As Long, _ ByRef lpRect As RECT) As Long Private Declare Function TransparentBlt Lib "msimg32.dll" ( _ ByVal hdc As Long, _ ByVal x As Long, ByVal y As Long, _ ByVal nWidth As Long, ByVal nHeight As Long, _ ByVal hSrcDC As Long, _ ByVal xSrc As Long, ByVal ySrc As Long, _ ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, _ ByVal crTransparent As Long) As Long Private Declare Function InvalidateRect Lib "user32.dll" ( _ ByVal hwnd As Long, lpRect As Any, ByVal bErase As Long) As Long Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Function DrawItem(varItem As PictureBox, _ Optional ByVal x As Single = -1, _ Optional ByVal y As Single = -1, _ Optional ByVal lngTransparency As ColorConstants = vbMagenta) Dim dc As Long Dim varScreen As RECT Dim varPicture As RECT Dim hwnd As Long ' Handle des Windows-Desktop ermitteln hwnd = GetDesktopWindow() hwnd = 65688 'Dummywert dc = GetWindowDC(hwnd) ' Größe des Desktopbereichs ermitteln GetWindowRect hwnd, varScreen ' Größe der PictureBox ermitteln GetWindowRect varItem.hwnd, varPicture With varPicture .Right = .Right - .Left .Bottom = .Bottom - .Top varScreen.Right = varScreen.Right - .Right + 1 varScreen.Bottom = varScreen.Bottom - .Bottom + 1 End With x = 200 y = 200 With varPicture DrawItem = (TransparentBlt(dc, varScreen.Left + x, varScreen.Top + y, _ .Right, .Bottom, varItem.hdc, 0, 0, .Right, .Bottom, lngTransparency) = 1) End With End Function Private Sub Command1_Click() InvalidateRect False, True, True End Sub Private Sub Command2_Click() InvalidateRect False, True, True DrawItem Picture1 End Sub Um das Programm nachzubauen einfach zwei buttons und eine Picturebox in eine Form einbauen. Ihr müsst alle anderen Fenster in den Hintergrundbringen (sonst seht ihr den desktop nicht. Danach Button 2 drücken... und dann... Wer kann mir helfen eine Form oder Picturebox zwischen Icons und Wallpaper darzustellen, ohne das ich was zwischenspeichern muss ?

Fensterposition / Reihenfolge	988	Joe1972	10.10.06 21:43
Re: Fensterposition / Reihenfolge	622	vbtricks	11.10.06 08:36
Re: Fensterposition / Reihenfolge	581	Joe1972	11.10.06 13:15
Re: Fensterposition / Reihenfolge	590	AndyOG	11.10.06 20:55
Re: Fensterposition / Reihenfolge	571	Joe1972	11.10.06 21:12
Re: Fensterposition / Reihenfolge	624	AndyOG	11.10.06 23:59
Re: Fensterposition / Reihenfolge	576	Joe1972	12.10.06 08:55
Re: Fensterposition / Reihenfolge	605	Joe1972	12.10.06 20:55
Re: Fensterposition / Reihenfolge	596	vbtricks	12.10.06 10:23
Re: Fensterposition / Reihenfolge	616	mm78pr	13.10.06 12:50
Re: Fensterposition / Reihenfolge	577	Joe1972	13.10.06 17:08
Re: Fensterposition / Reihenfolge	578	Joe1972	13.10.06 22:19

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen