vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Re: Fenster über eigene Titelleiste bewegen 
Autor: Hänk
Datum: 18.06.10 19:29

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

Hänk

(Wer früh aufsteht hat mehr vom Tag)

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Fenster über eigene Titelleiste bewegen1.122Benutzername18.06.10 19:20
Re: Fenster über eigene Titelleiste bewegen1.085Hänk18.06.10 19:29
Re: Fenster über eigene Titelleiste bewegen654Benutzername18.06.10 19:57
Re: Fenster über eigene Titelleiste bewegen773Christoph197219.06.10 14:30
Re: Fenster über eigene Titelleiste bewegen697Benutzername19.06.10 21:28

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übersichtSuchen 

nach obenzurück
 
   

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