SOMME DES NOMBRE ENTIER DE 1 À N VERSION CURSEUR

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 

Télécharger le zip

• NAVIGUATEUR WEB
• UTILISATION DES OBJETS ADO
• SUPER FTP
• ACTIVEX ( OCX ) ZONE DE SAISIE NUMÉRIQUE + TEST DE L'OCX
• STRUCTURES DE CONTRÔLE PAR STEVEN007

• TUER UNE/DES SESSION(S) CACHÉE(S) D'EXCEL À PARTIR D'UNE AUTRE SESSION
• TITLE BAR, AJOUTEZ VOTRE BOUTTON DANS LA BARE DE TITRE DES FENETRE
• VERROUILLAGE DU LECTEUR CD - EJECTION SUR MOT DE PASSE
• CHANGEDESKTOP: CHANGEMENT DE L'APPARENCE DE LA LISTVIEW DU BUREAU WINDOWS
• SERVEUR OPC