une serie de question

Question

1. Comment fait-on des calcule?
2. quelle commande nous faut t'il pour autoriser seulement les chifre dans une textbox (yen avais sur le site so jai un msg d'erreur a chq fois)
3. c koi la commande pour changer une image (les picture box) ?

cs_Jack · Answer

Salut Xoper 
(Tu n'as pas encore pas dû cherché beaucoup !)
-1- Calculs : avec les symboles classiques */-+ et d'autres fonctions plus complexes : c'est dans l'aide.
-2- Pour ne pouvoir saisir que des chiffres dans un TextBox :
Dans l'évènement KeyPress : KeyAscii correspond à la lettre saisie. Tu n'as plus qu'à faire le test pour savoir si c'est un chiffre ou pas :
Dim Lettre as String
Lettre = Chr(KeyAscii)
If Not (Lettre Like "[0-9]" Or _
          Lettre Like "[-]" Or _
          Lettre Like "+,.") Then KeyAscii = 0
-3- Avec un controle PictureBox, tu fais Picture1.Picture = LoadPicture("C:\MonFichier")

Conclusion : interesse toi aux définition et capacité des différents types de variables (Integer, Long, Single, Double ...)

Vala
Jack

Xoper · Answer

Private Sub Text2_KeyPress()
Dim Lettre As String
Lettre = Chr(KeyAscii)
If Not (Lettre Like "[0-9]" Or _
Lettre Like "[-]" Or _
Lettre Like "+,.") Then KeyAscii = 0
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
Dim Lettre As String
Lettre = Chr(KeyAscii)
If Not (Lettre Like "[0-9]" Or _
Lettre Like "[-]" Or _
Lettre Like "+,.") Then KeyAscii = 0
End Sub

le kel des 2 est suposer etre bon ?

pcpunch · Answer

Plus simple pour autoriser que les chiffres dans un textbox :


Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub

cs_Virgen · Answer

dans le code de jack : on ne prends pas en compte le back space



il y a moyen de le faire ??

Une serie de question

4 réponses

Discussions similaires