begin process at 2008 08 30 12:13:37
1 234 000 membres
37 nouveaux aujourd'hui
14 294 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

DÉPLACEMENT D'UNE FORM N'AYANT PAS DE BARRE TITRE


Information sur la source

Description

Imaginer que vous avez une fenêtre avec la propriété BoderStyle à None, c'est à dire sans bordure et sans bare de titre, a l'origine impossible de déplacer cette form donc voici un code qui permet de déplacer celle-ci simplement.

Comme je débute en .net , je fais de mon mieux lol

Source

  • #Region "Déclaration des variables"
  • Dim Position_Souris_X As Integer
  • Dim Position_Souris_Y As Integer
  • Dim Variation_Position_Souris_X As Integer
  • Dim Variation_Position_Souris_Y As Integer
  • #End Region
  • Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
  • Position_Souris_X = e.X
  • Position_Souris_Y = e.Y
  • End Sub
  • Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
  • If Me.MouseButtons = MouseButtons.Left Then
  • Variation_Position_Souris_X = e.X - Position_Souris_X
  • Variation_Position_Souris_Y = e.Y - Position_Souris_Y
  • Me.Left = Me.Left + Variation_Position_Souris_X
  • Me.Top = Me.Top + Variation_Position_Souris_Y
  • End If
  • End Sub
#Region "Déclaration des variables"

    Dim Position_Souris_X As Integer
    Dim Position_Souris_Y As Integer
    Dim Variation_Position_Souris_X As Integer
    Dim Variation_Position_Souris_Y As Integer

#End Region

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        Position_Souris_X = e.X
        Position_Souris_Y = e.Y
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        If Me.MouseButtons = MouseButtons.Left Then
            Variation_Position_Souris_X = e.X - Position_Souris_X
            Variation_Position_Souris_Y = e.Y - Position_Souris_Y
            Me.Left = Me.Left + Variation_Position_Souris_X
            Me.Top = Me.Top + Variation_Position_Souris_Y
        End If
    End Sub

Conclusion

Voilà c'est tout

Utile aussi pour attribuer cette méthose à un objet, ou encore votre propre barre titre dessinée :p
  • signaler à un administrateur
    Commentaire de spy166 le 18/05/2004 12:46:59

    Déjà postée : http://www.vbfrance.com/code.aspx?ID=7308

  • signaler à un administrateur
    Commentaire de ABL-Online le 18/05/2004 18:46:53

    Quand on marque déjà postée , c'est pour une source identique autrement dit plagia , ici c'est pas le cas moi je montre ma façon de procédé pour obtenir le même résultat

  • signaler à un administrateur
    Commentaire de labout le 18/05/2004 20:52:31

    ne t'en fait pas spy166 veille. J'y ai eu droit moi aussi.
    @+

  • signaler à un administrateur
    Commentaire de spy166 le 18/05/2004 22:21:42

    Bon, je crois que ça dérangera personne si je poste mes versions de convertisseur euro-francs et de créateur de msgbox ??
    Et oui labout, je vous ai tous à l'oeil, et tous ceux qui posteront un truc déjà dispo auront à faire à moi...
    Mwahahahaha (rire de sadique)
    @+

  • signaler à un administrateur
    Commentaire de Warny le 19/05/2004 08:56:53

    voir aussi :
    http://www.vbfrance.com/code.aspx?ID=17548
    et
    http://www.vbfrance.com/code.aspx?ID=17715
    Le principe est le même, mais comble du luxe, je rends magnétique la form ou le control déplacé

  • signaler à un administrateur
    Commentaire de Danyelk le 16/10/2007 00:09:42 8/10

    Sous vs2005, il signale qu'il faut utiliser :
    - If Control.MouseButtons = ...
    plutot que :
    - If Me.MouseButtons = ...
    Sinon le code fonctionne nickel.

Ajouter un commentaire

Pub



Appels d'offres

Recherche developpeur ...
Budget : 700€
SITE MARCHAND LOCATION...
Budget : 3 000€
SITE MARCHAND POUR HOTEL
Budget : 4 000€

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

Boutique

Boutique de goodies CodeS-SourceS