Private Sub Command1_Click() Dim rep as string rep = msgbox ("merci d'avoir testé mon programme, ceci va le fermer", VBOKOnly, "Mon titre de msgbox fermeture") End End Sub
Private Sub Btn_exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_exit.Click Dim Message As String = "Voulez vous quitter?" Dim Caption As String = "Chez Murphy" Dim Buttons As Integer = MessageBoxButtons.YesNo Dim Result As DialogResult 'Displays a MessageBox using the Question icon and specifying the No button as the default. Result = MessageBox.Show(Me, Message, Caption, MessageBoxButtons.YesNo, MessageBoxIcon.Asterisk) If Result = MsgBoxResult.Yes Then 'Fermer le parent End Else End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question