[DEBUTANT] Quelques commandes à rajouter.

Réponse acceptée !
Salut,
DAns ta procédure cmdcalculate_Click

Tu déclares des variables puis tu les affectent, mais tu ne t'en sert pas... dommage.
Je ferais donc comme ceci si j'étais toi.

Private Sub cmdcalculate_Click() Dim Premier As Single Dim Operator As String Dim Second As Single Dim Resultat As Single    'si l'une des tris cases n'est pas remplie    If TxtPremier.Text = vbNullString Or txtOperator.Text = vbNullString Or txtSecond.Text = vbNullString Then        MsgBox "Veuillez remplir les trois cases s'il vous plait"    Else        Premier = TxtPremier.Text        Operator = txtOperator.Text        Second = txtSecond.Text            'Raz:  NOTE l'étiquette ne sert pas (sauf si tu ne nous        'à pas tout montrer                Select Case Operator            Case "*": Resultat = Premier * Second            Case "+": Resultat = Premier + Second            Case "-": Resultat = Premier - Second            Case "/": Resultat = Premier / Second        End Select        lblDisplay.Caption = CStr(Resultat)    End If End Sub

By Renfield

ensuite que cherches tu a faire lorsque tu fais  If 4 Then

If 4 Then    End Else '......................... > là, j'aurais besoin d'une commande pour fermer la boite de dialogue. End If

By Renfield

Ensuite qu'entends tu par Boite de Dialogue? la MSgbox? ouo ton formulaire

pour finir regarde ce snippet de  EBArtSoft qui fera que tes TextBox ne pourrons avoir que des chiffres (sans aucun test de ta part)


@+: Ju£i¤n
Pensez: Réponse acceptée

Réponse acceptée !
Je pense que ton If 4 est la pour tester le resultat de la msgbox ! Auquel cas, il faut faire :
Dim rep As Long

rep = MsgBox("....")
If Rep = vbYes Then
End
End

autres remarques ...
Penses bien a renommer tous tes controles .. y compris les bouton de commande Command1 et Command2, qui pourront s'appeler cmdQuitter et cmdRAZ, par exemple.
Attention aussi a une ligne du genre
  premier = txtpremier.Text
C'est dangereux !
  premier = cSng(txtPremier.Text) sera un peu mieux (conversion implicite plutot qu'explicite) ... Sauf que si la textbox contient une valeur non convertible en nombre, ca va crasher !
  If Isnumeric(txtPremier.Text) then
    premier = cSng(txtPremier.Text)
  Else
    Msgbox "Première opérande non valide !", vbOkOnly + vbExclamation
    Exit Sub
  End If

Il faudra faire de même pour la second opérande et éventuellement ajouter un Case Else au select case proposé par jrivet :
  Case "/" ....
  Case Else
    MsgBox "Lopérateur doit être + - * ou /", vbOkOnly + vbExclamation
    Exit Sub
  End Select

Et puis enlève la label "Raz:" de ton code : Il ne sert à rien et risque de donner des boutons à certains (moi le premier !!)