Aller au contenu

Déplacer une Fenêtre sans Bordure


ThanosS

Messages recommandés

Niveau requis Débutant

Temps estimé : 15 minutes

Bonjour,

 

Pour déplacer une form ayant la propriété FormBorderStyle à None, il faut utiliser le code suivant :

 

Révélation

 

Code :

Private IsFormBeingDragged As Boolean = False
Private MouseDownX As Integer
Private MouseDownY As Integer
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown

If e.Button = MouseButtons.Left Then
  IsFormBeingDragged = True
    MouseDownX = e.X
    MouseDownY = e.Y
  End If
End Sub

Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseUp
  If e.Button = MouseButtons.Left Then
      IsFormBeingDragged = False
  End If
End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseMove
  If IsFormBeingDragged Then

    Dim temp As Point = New Point()

    temp.X = Me.Location.X + (e.X - MouseDownX)
    temp.Y = Me.Location.Y + (e.Y - MouseDownY)
    Me.Location = temp
    temp = Nothing
  End If
End Sub

Vous n'avez qu'a ajouter ce code dans votre class Form1 !

 

 

Cordialement,

ThanosS

Lien vers le commentaire
  • Réponses 4
  • Created
  • Dernière réponse

Top Posters In This Topic

  • 3 months later...
  • 2 months later...

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant


  • Flux d'Activité

    1. 2

      Serveur en Création

    2. 2

      Serveur en Création

    3. 2

      Serveur en Création

    4. 3

      Asiria2 Ultra-Fun - Serveur Ouvert

    5. 5

      Metin2 Download - Migration

    6. 0

      C++ Wiki Ingame

    7. 38

      Installer Ancestra Remake 54

    8. 2

      Ajouter une Commande Lau

  • En ligne récemment

    Aucun utilisateur enregistré regarde cette page.

×
×
  • Créer...

Information importante

Conditions d’utilisation / Politique de confidentialité / Règles / Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer.