Les if...

SamuelCadieux Messages postés 31 Date d'inscription dimanche 8 septembre 2002 Statut Membre Dernière intervention 20 juin 2003 - 12 sept. 2002 à 03:58
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 16 sept. 2002 à 01:54
Intro:
voici une programmation qui consite, a changer une shape (shape1) de backcolor selon des données inscrites ds 3 zones de textes(Text1, Text2, Text3) en cliquant sur le bouton Command1.

But:
Si une valeur est suppérieur ou égale a 256 un message derreru apparait ds un label(label1) comme quoi il est trop gros mais...

Problème:
J'ai esseyer de mette une programmation qui em^pêcherai de mettre inférieur`ou égale à: -1

Programation(vb 5):
Voici ma programmation,

Private Sub Command1_Click()
Shape1.BackColor = RGB(Text1.Text, Text2.Text, Text3.Text)
If Val(Text1.Text) >= 256 Or Val(Text2.Text) >= 256 Or Val(Text3.Text) >= 256 Or Val(Text1.Text) <= -1 Or Val(Text2.Text) <= -1 Or Val(Text3.Text) <= -1 Then Label1.Caption = "Une des valeurs est trop grosse! Elles doivent se tenir entre 0 et 255." Else Label1.Caption = ""
End Sub

MErci d'avance pour vos réponses

3 réponses

cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 129
12 sept. 2002 à 08:02
essaye val(text1.text) <0 tout simplement, si ce ne marche pas, réponds à ce message

DARK SIDIOUS
0
SamuelCadieux Messages postés 31 Date d'inscription dimanche 8 septembre 2002 Statut Membre Dernière intervention 20 juin 2003
12 sept. 2002 à 23:06
:shock) T'inquiète j'ai dejas esseye au part avant

et ca me dis | Erreur d'execution '5';
Argument ou procédure incorecte
0
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
16 sept. 2002 à 01:54
Essaie :
Text1.Text = (Val(Text1.Text) + 256) Mod 256

au lieu de -1 tu auras 255
0
Rejoignez-nous