|
| |
VB.NET - Ein- und Umsteiger| Re: Taskleiste erweitern? | |  | | Autor: Nils Christian | | Datum: 03.08.10 14:14 |
| Hallo
Mit dem Link von Maas bin ich nicht sehr viel weiter gekommen. Dann habe ich etwas anderes ausprobiert. Der Button1 (als Beispiel für ein Steuerelement) setzt sich dabei direkt auf den Desktop, und nicht in die Taskleiste. Kann mir einer erklären was ich falsch mache?
------------------------------------------------------------------------------------------
Imports System.Runtime.InteropServices
Public Class Form1
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
Private Declare Function FindWindowEx Lib "user32.dll" Alias _
"FindWindowExA" _
(ByVal hWnd1 As IntPtr, ByVal hWnd2 As IntPtr, ByVal lpsz1 As String, ByVal _
lpsz2 As String) As IntPtr
Private Declare Function SetParent Lib "user32.dll" _
(ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Int32
Private Declare Function MoveWindow Lib "user32.dll" _
(ByVal hwnd As IntPtr, ByVal x As Int32, ByVal y As Int32, ByVal nWidth As _
Int32, ByVal nHeight As Int32, ByVal bRepaint As Int32) As Int32
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim TrayWnd As IntPtr, TrayReBar As IntPtr, TrayToolBar As IntPtr
TrayWnd = FindWindow("Shell_TrayWnd", vbNullString)
TrayReBar = FindWindowEx(TrayWnd, 0, "ReBarWindow32", vbNullString)
TrayToolBar = FindWindowEx(TrayReBar, 0, vbNullString, "WaveAnimation")
SetParent(Button1.Handle, TrayToolBar)
MoveWindow(Button1.Handle, 1600, 1030, Button1.Width, Button1.Height, 1)
End Sub
End Class
------------------------------------------------------------------------------------------
Ich arbeite mit:
Windows 10 Professional 64-bit * Visual Basic 2010 Express | |
 | 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 |
 |
|
Neu! sevCoolbar 3.0 
Professionelle Toolbars im modernen Design!
Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
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.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
