' Propriété pour exporter la valeur du DGV "DataGridView1". Property Exporter() As String Get Return CStr(DataGridView1.CurrentCell.Value) End Get Set(ByVal Value As String) DataGridView1.CurrentCell.Value = Value End Set End Property
' DEFINIT le résultat renvoyé par les contrôles du formulaire. Private Sub btnOui_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOui.Click Me.DialogResult = DialogResult.Yes 'Me.Validate() End Sub Private Sub btnNon_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNon.Click Me.DialogResult = DialogResult.Cancel 'Me.Validate() End Sub
Public Class Form1 ' formulaire principal '*** Initialisation de "RechercheBeneficiaire" au lancement. Dim formRechercheBeneficiaire As RechercheBeneficiaire = New RechercheBeneficiaire() Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load '*** abonnement des contrôles de "formRechercheBeneficiaire" à la procédure ci dessous AddHandler formRechercheBeneficiaire.btnOui.Click, AddressOf RechercheBeneficiaire_Validated AddHandler formRechercheBeneficiaire.btnNon.Click, AddressOf RechercheBeneficiaire_Validated End Sub Private Sub RechercheBeneficiaire_Validated(ByVal sender As Object, ByVal e As System.EventArgs) ' GESTIONNAIRE de l'événement "Validated", selon le contrôle cliqué dans ' le formulaire "Message" Select Case formRechercheBeneficiaire.DialogResult Case DialogResult.Yes 'Là on importe le texte de la cellule sélectionnée du DGV dans le textbox voulu. TxtRechercheIndividu.Text = formRechercheBeneficiaire.Exporter formRechercheBeneficiaire.Close() Case DialogResult.Cancel formRechercheBeneficiaire.Close() '*** Case etc... End Select End Sub '*** le button qui appelle "formRechercheBeneficiaire" Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click formRechercheBeneficiaire.Show() End Sub End Class
Dim formRechercheBeneficiaire As New RechercheBeneficiaire Dim Result As RechercheBeneficiaire.DialogResultat Result = formRechercheBeneficiaire.Show("paramètre 1", "paramètre 2", _ "Enfin tous les paramètres de la boite personnalisée") If Result = Windows.Forms.DialogResult.Yes Then ' une chose Else ' une autre chose End If
If MessageBox.Show("toto", "ma texte box", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then Else End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionIf formRechercheBeneficiaire.DialogResult = Windows.Forms.DialogResult.Yes Then TxtRechercheIndividu.Text = formRechercheBeneficiaire.Exporter formRechercheBeneficiaire.Hide() End If