| |
Suche Visual-Basic CodeRe: Hintergrundbild auf Desktop aktivieren Visual Basic 2012 | | | Autor: Franki | Datum: 02.03.16 01:49 |
| Hallo,
warum möchtest du so etwas machen?
Ich richte meinen Desktop so ein wie ich es für richtig halte. Wenn jetzt ein Programm daher kommt was mir diesen verändert, würde ich es nicht installieren (wenn ich vorher weiß dass es das macht), wenn ich es nicht weiß, würde ich es wieder deinstallieren und hoffen, dass alles wie vorher ist. Wenn das nicht klappt, dann halt Datensicherung einspielen.
Desktopgestaltung, sei es Icons, Hintgergrundbilder oder was auch immer ist Sache des Anwenders. Du hast volle Gestaltungsfreiheit innerhalb deiner Anwendung, aber du solltest dich aus den allgemeinen Einstellungen der User einfach heraus halsten.
Also abschließend nochmals die Frage warum du so etwas machen möchtest.
Einfach ist das nämlich nicht, du müsstest (wenn es wichtig ist) auch kontrollieren, ob der User das nicht wieder umgestellt hat oder viel schlimmer noch, ob er nicht eine andere Software installiert hat die das wi8eder verändert hat. Usw, usw...
Gruß
Frank | |
Hintergrundbild auf Desktop aktivieren Visual Basic 2012 | | | Autor: Albundyah | Datum: 17.08.15 14:23 |
| Hallo,
ich habe hier ein älteres Coding gefunden um Desktop Symbole ein bzw. auszublenden.
Desktop-Icons ein/ausblenden
http://www.vbarchiv.net/tipps/tipp_189-desktop-icons-ein-ausblenden.html
Leider wird nach dem Hide setzen auch das Hintergrundbild ausgeblendet und der Bildschirm ist schwarz.
Aktivieren mit -->
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, sWallpaper, SPIF_UPDATEINIFILE)
klappt leider auch nicht.
Frage: gibt es eine andere Möglichkeit das Hintergrundbild wieder zu aktivieren ?
Danke schon mal im voraus
Beitrag wurde zuletzt am 17.08.15 um 14:24:16 editiert. | |
Re: Hintergrundbild auf Desktop aktivieren Visual Basic 2012 | | | Autor: timonator | Datum: 24.02.16 00:05 |
| Hier alternativer code, der anstandslos funktioniert, allerdings werden auf dem Desktop angepinnte Elemente mit ausgeblendet.
Imports System.Runtime.InteropServices
Public Class Form1
Private Enum SetWindowPosFlags As Integer
''' <summary>Hides the window.</summary>
''' <remarks>SWP_HIDEWINDOW</remarks>
HideWindow = &H80
''' <summary>Displays the window.</summary>
''' <remarks>SWP_SHOWWINDOW</remarks>
ShowWindow = &H40
End Enum
<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function FindWindow( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As IntPtr
End Function
<DllImport("user32.dll", SetLastError:=True)> _
Private Shared Function SetWindowPos( _
ByVal hWnd As IntPtr, _
ByVal hWndInsertAfter As IntPtr, _
ByVal X As Integer, _
ByVal Y As Integer, _
ByVal cx As Integer, _
ByVal cy As Integer, _
ByVal uFlags As SetWindowPosFlags) As Boolean
End Function
<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function FindWindowEx(ByVal parentHandle As IntPtr, _
ByVal childAfter As IntPtr, _
ByVal lclassName As String, _
ByVal windowTitle As String) As IntPtr
End Function
Public Sub DesktopIconsHide()
Dim hWnd As IntPtr
hWnd = FindWindow(Nothing, "Program Manager")
SetWindowPos(hWnd, CType(0, IntPtr), 0, 0, 0, 0, _
SetWindowPosFlags.HideWindow)
End Sub
Public Sub DesktopIconsShow()
Dim hWnd As IntPtr
hWnd = FindWindow(Nothing, "Program Manager")
SetWindowPos(hWnd, CType(0, IntPtr), 0, 0, 0, 0, _
SetWindowPosFlags.ShowWindow)
End Sub
End Class | |
| 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 |
|
|
sevISDN 1.0
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats Neu! sevCommand 4.0
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere Infos
|