Exécution du code d’un bouton dans un autre form

Version imprimable

01/02/2013, 22h35
hassane03

Exécution du code d’un bouton dans un autre form

Salut Tous le monde

J’essaye de réaliser une petite application VB.net,
J’ai un "BtnAnuler" par exemple dans un form "Form1"
Je veux exécuter le code de ce bouton dans un autre Form "Form2"
Comment faire si vous voulez Bien m’aider
Et merci d’avance
01/02/2013, 22h52
Orci76
Salut,

Ne voyant pas trop de possiblité, le meilleure solution pour moi serait de passer par une autre fonction/sub (que tu pourrais ainsi lancer dans ta form1, ta form2 ou de n'importe où ailleurs).
Code:

1 2 3 Public Sub Button1_Action() ' Ce que tu aurais normalement mis dans ton Button1_Click End Sub

Code:

1
2
3
4
5
6
7
Sub Button1Click(sender As Object, e As EventArgs)
    
        Dim lFormTest As FormTest
        lFormTest = New FormTest    
        lFormTest.Button1_Click( nothing, nothing)
End Sub

Voilà

02/02/2013, 13h52
Sankasssss
@Chessmaster1966 :

Votre code ne fonctionnera pas car par défaut les fonctions générées le sont en Private :
Code:

1 2 3 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click End Sub
De plus mettre des Nothing à la place des paramètres n'est pas des plus propre.

Il vaut mieux faire comme le préconise Orci76 en mettant une nouvelle fonction publique et en appelant celle-ci dans Button1_Click et dans le code de la Form2

Bonjour,

Une autre solution est d'utiliser un évènement.

Dans Form2
Déclaration

Code:

Public Event EvtAnnuler As EventHandler

Utilisation

Code:

RaiseEvent EvtAnnuler(Me, New EventArgs)

Dans Form1

Code:

1
2
3
4
5
6
7
8
9
10
11
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler Form2.EvtAnnuler, AddressOf OnAnnuler
    End Sub
 
    Private Sub OnAnnuler(ByVal sender As System.Object, ByVal e As EventArgs)
        ' la procedure d'annulation.
    End Sub
 
    Private Sub Form1_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        RemoveHandler Form2.EvtAnnuler, AddressOf OnAnnuler
    End Sub

A+, Hervé.