Discussion :

[king2070]

Bonjour,

j'aurais besoin d'un peu d'aide. Je travail en ce moment sur un projet personnel en VB.NET (avec Visual Basic 2010 Express). Je voudrais glisser lebackground d'un des bouton appartenant a une forme 2 vers un des boutons appartenant a une forme 1
merci pour votre aiiide

[tovin]

Bonjour,
Il me semble qu'avec cette procèdure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Button1.BackgroundImage = Form2.Button1.BackgroundImage
End Sub

[nicosmash]

Bonjour,

Je pense que vous trouverez ce dont vous souhaitez ici :
http://plasserre.developpez.com/cour...forms2#LVIII-D

Cordialement.

[king2070]

merci pour vos reponses mais mon problem c'est que jai plusieur boutons appartenant au forme 1 et au forme 2 :/
si je recopie ce code ca marche pa psk tout les boutons prennent tous le mm background

[MABROUKI]

bonjour king2070
Mais la attends-moi,.......je ne suis plus car je suis encire en 2012...

Le drag-drop permet de tout deplacer ......
voici un exemple avec 2 forms:
Le form1 est la source avec 2 buttons colories...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Public Class Form1
    Private frm As Form = New Form2
 
    Public Sub New()
 
        ' Cet appel est requis par le concepteur.
        InitializeComponent()
 
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        Button1.BackColor = Color.Gold
        Button2.BackColor = Color.DeepPink
        frm.Show()
    End Sub
    'action MouseDown 
    'on regroupe  les handlers des 2 buttons sources en  cooperative
    Private Sub Button1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown, Button2.MouseDown
        Dim actualBtn As Button = CType(sender, Button)
        actualBtn.DoDragDrop(actualBtn.BackColor.Name, DragDropEffects.Copy Or DragDropEffects.Move)
 
    End Sub
End Class

Le form2 est la destination là ou tu as les boutins à colorier....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Public Class Form2
    Public Sub New()
 
        ' Cet appel est requis par le concepteur.
        InitializeComponent()
 
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        'ces 3 buttons autorise un  drop par  dessus 
        Button1.AllowDrop = True
        Button2.AllowDrop = True
        Button3.AllowDrop = True
        'celui la non (par defaut je l'ai mis comme exemple) 
        Button4.AllowDrop = False
    End Sub
    'action dragenter :effet c'est une copy
    'on regroupe  les handlers des 3 premiers buttons cooperative
    Private Sub Button1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Button1.DragEnter, Button2.DragEnter, Button3.DragEnter
        If (e.Data.GetDataPresent(DataFormats.Text)) Then
            e.Effect = DragDropEffects.Copy
        Else
            e.Effect = DragDropEffects.None
        End If
 
    End Sub
    ' l'action dragfrop:ici copie proprement dite
    ' idem pour la cooperative des handlers
    Private Sub Button1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Button1.DragDrop, Button2.DragDrop, Button3.DragDrop
        Dim destBtn As Button = CType(sender, Button)
        destBtn.BackColor = Color.FromName(e.Data.GetData(DataFormats.Text).ToString)
 
    End Sub
End Class

bon code................