DÉPLACER UN FORMULAIRE SANS BARRE DE TITRE , Source N°18355

Information sur la source

Catégorie :VB.NET Niveau : Débutant Date de création : 01/12/2003 Date de mise à jour : 01/12/2003 22:07:34 Vu / téléchargé: 2 255 / 184

Auteur : CeTjsMoi

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (1)

Ajouter un commentaire et/ou une note

Description

Déplacer un formulaire vb.net sans barre de titre et sans pb de visuel(flash) en moins de 10 lignes de code

Source

''explication: à placer dans les déclarations privées du formulaire
Private _DecX As Double 'utilisé pour calculer le décalage entre le curseur de la souris et le formulaire
Private _DecY As Double 'utilisé pour calculer le décalage entre le curseur de la souris et le formulaire
''explication: gestion du déplacement (évènement mousemove du formulaire)
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If e.Button = MouseButtons.Left Then 'si bouton gauche
If Me.MouseButtons = MouseButtons.Left Then 'si bouton gauche (sécurité)
MyBase.DesktopLocation = New System.Drawing.Point(Me.MousePosition.X - Me._DecX, Me.MousePosition.Y - Me._DecY) 'déplacement du formulaire
End If
End If
End Sub
''explication: gestion du décalage entre la position de la souris et la position du formulaire (évènement mousedown du formulaire)
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
'calcul du décalage entre la position du formulaire et la position de la souris
Me._DecX = Me.MousePosition.X - Me.DesktopLocation.X
Me._DecY = Me.MousePosition.Y - Me.DesktopLocation.Y
End Sub

''explication: à placer dans les déclarations privées du formulaire
    Private _DecX As Double 'utilisé pour calculer le décalage entre le curseur de la souris et le formulaire
    Private _DecY As Double 'utilisé pour calculer le décalage entre le curseur de la souris et le formulaire

''explication: gestion du déplacement (évènement mousemove du formulaire)
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        If e.Button = MouseButtons.Left Then 'si bouton gauche
            If Me.MouseButtons = MouseButtons.Left Then 'si bouton gauche (sécurité)
                MyBase.DesktopLocation = New System.Drawing.Point(Me.MousePosition.X - Me._DecX, Me.MousePosition.Y - Me._DecY) 'déplacement du formulaire
            End If
        End If
    End Sub

''explication: gestion du décalage entre la position de la souris et la position du formulaire (évènement mousedown du formulaire)
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        'calcul du décalage entre la position du formulaire et la position de la souris
        Me._DecX = Me.MousePosition.X - Me.DesktopLocation.X
        Me._DecY = Me.MousePosition.Y - Me.DesktopLocation.Y
    End Sub

Conclusion

Si le formulaire est recouvert de control, il suffit d'ajouter les handlers aux évènements pour que celà fonctionne.
Ex: Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove, TextBox1.MouseMove (à faire sur tout les contrôles permettant le déplacement du formulaire et sur tous les évènements cités ci-dessus)

ATTENTION: Le dépassement d'écran n'est pas géré dans ce code

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

AssemblyInfo.vb 1 110 octets
MyDepFrom.exe10 752 octets
MyDepFrom.pdb15 872 octets
Form1.resx 6 433 octets
Form1.vb 2 457 octets
MyDepFrom.sln 903 octets
MyDepFrom.suo7 680 octets
MyDepFrom.vbproj 4 206 octets
MyDepFrom.vbproj.user 1 814 octets
MyDepFrom.exe10 752 octets
MyDepFrom.Form1.resources3 304 octets
MyDepFrom.pdb15 872 octets

Télécharger le zip

Sources du même auteur

Toutes les sources de CeTjsMoi

Sources de la même categorie

Toutes les sources de la catégorie VB.NET

Commentaires

Commentaire de Warny le 02/12/2003 16:38:42

la même chose en magnétique :
http://www.vbfrance.com/code.aspx?ID=17715
le même chose avec un contrôle dans une frame (et magnétique et compris sous forme de classe dans mon premier) :
http://www.vbfrance.com/code.aspx?ID=17548
Warny