- Option Explicit
-
-
- Private Sub cal_Click()
- Dim n, somme
- n = Val(txtsaisie.Text)
- somme = n * (n + 1) / 2
- txtaffich.Text = "La somme est " & somme
- End Sub
-
- Private Sub end_Click()
- End
- End Sub
-
- Private Sub Form_Load()
- MsgBox "Mise à jour de l'anciène version avec un curseur"
- End Sub
-
- Private Sub txtsaisie_keypress(keyascii As Integer)
- If keyascii < 48 Or keyascii > 57 Then
- keyascii = 0
- Beep
- End If
- End Sub
-
- Private Sub sldsaisie_mousedown(button As Integer, shift As Integer, _
- x As Single, y As Single)
- txtaffich.Text = ""
- End Sub
-
- Private Sub sldsaisie_mouseup(button As Integer, shift As Integer, _
- x As Single, y As Single)
- cal_Click
- End Sub
-
- Private Sub sldsaisie_scroll()
- txtsaisie.Text = sldsaisie.Value
- End Sub
Option Explicit
Private Sub cal_Click()
Dim n, somme
n = Val(txtsaisie.Text)
somme = n * (n + 1) / 2
txtaffich.Text = "La somme est " & somme
End Sub
Private Sub end_Click()
End
End Sub
Private Sub Form_Load()
MsgBox "Mise à jour de l'anciène version avec un curseur"
End Sub
Private Sub txtsaisie_keypress(keyascii As Integer)
If keyascii < 48 Or keyascii > 57 Then
keyascii = 0
Beep
End If
End Sub
Private Sub sldsaisie_mousedown(button As Integer, shift As Integer, _
x As Single, y As Single)
txtaffich.Text = ""
End Sub
Private Sub sldsaisie_mouseup(button As Integer, shift As Integer, _
x As Single, y As Single)
cal_Click
End Sub
Private Sub sldsaisie_scroll()
txtsaisie.Text = sldsaisie.Value
End Sub