Discussion :

[islamune9]

bonjour tout le monde j'utilise un msgBoxStyle avec ok et cancel je veux en cliquant sur ok effectuer une tache et sur cancel effectuer autre tache!
par exemple:
If ok = False Then
MsgBox("ok")

ElseIf ok = True Then
MsgBox("notok")

End If
mais çaaveut pas marcher!!merci

[Pol63]

y a pas grand chose de plus simple pourtant


If MsgBox("Message", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then

Else
End If

[islamune9]

merci énormément

If MsgBox("Message", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
MsgBox("ok")
ElseIf MsgBox("Message", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
MsgBox("annuler")
End If

ça marche et pour annuler je dois cliquer 2 fois pr visualiser mon message..pq pas une seule fois en un seul clic?

[Pol63]

merci énormément

If MsgBox("Message", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
MsgBox("ok")
ElseIf MsgBox("Message", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
MsgBox("annuler")
End If

ça marche et pour annuler je dois cliquer 2 fois pr visualiser mon message..pq pas une seule fois en un seul clic?

elseif refait un if
else tout court execute dans le cas ou le premier if n'était pas bon
le code que j'ai mis marche

[islamune9]

mmm oui tout à fait d'accord les deux codes marchent
je vous remercie encore une fois

[islamune9]

je veux bien que vous continuez votre aide si ça vous dérange pas

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
34
 Dim Message As String
         Dim TitreMessage As String
        Dim Bouton As MessageBoxButtons
        Dim Icone As MessageBoxIcon
        Dim Resultat As DialogResult
 
        Message = "Atention vous n'aurez plus le droit de modifier ce rapport!!"
        TitreMessage = "Avertissement"
        Bouton = MessageBoxButtons.OKCancel
        Icone = MessageBoxIcon.Question
        Resultat = MessageBox.Show(Message, TitreMessage, Bouton, Icone)
 
        Select Case Resultat
            Case Windows.Forms.DialogResult.OK
                con.Open()
                cmd = New SqlCommand("insert into RprtValidé(n_rapport,n_ligne_rapport,semaine,id_pers,date_deb_dep,date_fin_dep,nom_clt,ville,libelle,prix) values('" & Me.DataGridView1.CurrentRow.Cells.Item(0).Value & "' , '" & Me.DataGridView2.CurrentRow.Cells.Item(0).Value & "' , '" & Me.DataGridView1.CurrentRow.Cells.Item(1).Value & "' , '" & Me.txtdersonnel.Text & "' , '" & Me.DataGridView2.CurrentRow.Cells.Item(2).Value & "' , '" & Me.DataGridView2.CurrentRow.Cells.Item(3).Value & "' , '" & Me.DataGridView2.CurrentRow.Cells.Item(4).Value & "' , '" & Me.DataGridView2.CurrentRow.Cells.Item(5).Value & "' , '" & Me.DataGridView2.CurrentRow.Cells.Item(6).Value & "' , '" & Me.DataGridView2.CurrentRow.Cells.Item(7).Value & "')")
                cmd.Connection = con
                cmd.ExecuteNonQuery()
                cmd = New SqlCommand("delete from fraisDeplacement where n_ligne_rapport='" & Me.DataGridView2.CurrentRow.Cells.Item(0).Value & "'")
                cmd.Connection = con
                cmd.ExecuteNonQuery()
                cmd = New SqlCommand("delete from clients where n_ligne_rapport='" & Me.DataGridView2.CurrentRow.Cells.Item(0).Value & "'")
                cmd.Connection = con
                cmd.ExecuteNonQuery()
                cmd = New SqlCommand("delete from ligneRapport where n_ligne_rapport='" & Me.DataGridView2.CurrentRow.Cells.Item(0).Value & "'")
                cmd.Connection = con
                cmd.ExecuteNonQuery()
                cmd = New SqlCommand("delete from rapport where n_rapport='" & Me.DataGridView1.CurrentRow.Cells.Item(0).Value & "'")
                cmd.Connection = con
                cmd.ExecuteNonQuery()
                MsgBox("voulez vous l'imprimer?", MsgBoxStyle.OkCancel)
            Case Windows.Forms.DialogResult.Cancel
                'et là je veux annuler l'exécution de ces commandes
        End Select

j'espère être claire

[Gdal]

Salut,

Pourrais-tu utiliser les balises .

Pour ton problème, voici la sulution:

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
 
        Dim Message As String
        Dim TitreMessage As String
        Dim Bouton As MessageBoxButtons
        Dim Icone As MessageBoxIcon
        Dim Resultat As DialogResult
 
        Message = "Ton message."
        TitreMessage = "Ton titre."
        Bouton = MessageBoxButtons.OKCancel
        Icone = MessageBoxIcon.Question
        Resultat = MessageBox.Show(Message, TitreMessage, Bouton, Icone)
 
        Select Case Resultat
            Case DialogResult.OK
                ' Instructions
            Case DialogResult.Cancel
                ' Instructions
        End Select

Autrement dans l'aide VS, tu aurais pu trouver en faisant et en recherchant Messagebox

Bonne continuation

Gwendal

Pense à

[islamune9]

je te remercie aussi GDAl c'est intéréssant comme code pour les msgBoxStyle,et la prochaine j'utiliserai les balise "CODE" promis..
merciiiiii
ça a marché très bien chez moi