Dieser Tipp ist für alle, die mal etwas anderes ausprobieren wollen: eine eigene Titelleiste. Erst mal müssen wir die normale Titelleiste wegbekommen. Das geht ganz einfach: Die Eigenschaft "FormBorderStyle" der Form auf "None" stellen. Damit wir aber auch eine neue Titelleiste haben, muss noch ein passendes "Bild" in die obere Ecke der Anwendung, also: ein Panel-Control mit dem Namen "Title" auf die Form, das Hintergrundbild des Panels mit dem Bild versehen und fertig. Was aber muss die Titelleiste eigentlich können? Sie muss das gesamte Fenster verschieben, wenn man es mit der Maus zieht. Also muss dieser Code am Anfang definiert werden: Public Class Form1 ' API-Funition zum Verschieben des Fensters Private Declare Function ReleaseCapture _ Lib "user32" () As Integer Private Declare Function SendMessage _ Lib "user32" Alias "SendMessageA" ( _ ByVal hwnd As Integer, _ ByVal wMsg As Integer, _ ByVal wParam As Integer, _ ByRef lParam As Object) As Integer Private Const WM_NCLBUTTONDOWN = &HA1 Private Const HTCAPTION = 2 Jetzt muss für die Titelleiste, also den Panel "Title", nur noch ein MouseDown-Event deklariert werden, damit man das Fenster auch verschieben kann: Private Sub Title_MouseDown(ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) Handles Title.MouseDown Call ReleaseCapture() SendMessage(Me.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0) End Sub End Class Damit der Benutzer die Anwendung schließen und minimieren kann, wäre es natürlich gut, zwei Buttons zu definieren. Am Ende noch den Namen Ihres Programms auf den Panel "Title" geschrieben und fertig! Dieser Tipp wurde bereits 17.183 mal aufgerufen.
Anzeige
![]() ![]() ![]() (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren [email protected]! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
TOP Entwickler-Paket ![]() TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... Tipp des Monats ![]() Dieter Otter PopUp-Menü wird nicht angezeigt :-( In diesem Tipp verraten wir Ihnen, wie Sie Probleme mit PopUp-Menüs umgehen können, wenn diese unter bestimmten Umständen einfach nicht angezeigt werden. 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. |
||||||||||||||||
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. |