Condition inverse de "Type of " [Résolu]

cs_andrebernard 406 Messages postés lundi 9 juin 2003Date d'inscription 4 septembre 2013 Dernière intervention - 17 sept. 2007 à 12:06 - Dernière réponse : cs_Exploreur 4824 Messages postés lundi 11 novembre 2002Date d'inscription 15 novembre 2016 Dernière intervention
- 17 sept. 2007 à 13:45
Bonjour à tous

J'utilise :

Dim Ctrl As Control
 
For Each Ctrl In Me.Controls
  
 If TypeOf Ctrl Is Shape Then
  .
  .Bla bla
  .
 Endif

Next

ça marche nikel, mais si je voulais la fonction inverse
C'est à dire que si le type n'est pas une shape alors ...
J'ai essayé 

If TypeOf Ctrl Is Not Shape Then

Mais ça marche pas

Merci de votre aide
Bonne journée
Afficher la suite 

Votre réponse

9 réponses

Meilleure réponse
cs_Exploreur 4824 Messages postés lundi 11 novembre 2002Date d'inscription 15 novembre 2016 Dernière intervention - 17 sept. 2007 à 12:11
3
Merci
Salut,

Je ne sais pas , mais j'aurais fait le contraire moi :

If Not TypeOf Ctrl Is Shape Then

A+
Exploreur

 Linux a un noyau, Windows un pépin

 

Merci cs_Exploreur 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 75 internautes ce mois-ci

Commenter la réponse de cs_Exploreur
PCPT 13368 Messages postés lundi 13 décembre 2004Date d'inscription 3 février 2018 Dernière intervention - 17 sept. 2007 à 12:28
0
Merci
salut,

allons dont....
faut faire un minimum d'efforts de réflexion andrebernard
Commenter la réponse de PCPT
cs_andrebernard 406 Messages postés lundi 9 juin 2003Date d'inscription 4 septembre 2013 Dernière intervention - 17 sept. 2007 à 12:29
0
Merci
Tu as absolument raison, malgre que ce soit lundi

Merci beaucoup de ton aide, ça marche
Bonne journée
Commenter la réponse de cs_andrebernard
cs_andrebernard 406 Messages postés lundi 9 juin 2003Date d'inscription 4 septembre 2013 Dernière intervention - 17 sept. 2007 à 12:34
0
Merci
Tu as raison PCPT
Mais je n'avais jamais utilisé le NOT
J'avais jusqu'a maintenant des comparaisons <> ou = ou > ou <
Donc il me suffisait de mettre l'inverse.

Je sais, c'est la honte ...

Mais faut vraiment parler petit negre pour dire :

Si ce n'est pas le type de control est shape alors

Je me suis fait avoir
Excusez moi du derangement
Mais encore merci a explorer
Commenter la réponse de cs_andrebernard
PCPT 13368 Messages postés lundi 13 décembre 2004Date d'inscription 3 février 2018 Dernière intervention - 17 sept. 2007 à 12:42
0
Merci
astuce (si on peut appeler çà comme çà) :

un IF teste uniquement VRAI FAUX, quelque soit le type de condition !

quand tu fais if i>5 then, c'est simplement SI la condition (i>5) est VRAI ALORS

donc If TypeOf Ctrl Is Shape Then c'est If (TypeOf Ctrl Is Shape)=true Then

l'inverse est donc If (TypeOf Ctrl Is Shape)=false Then, (condition = false)
qui s'écrit également  If not(TypeOf Ctrl Is Shape) Then (condition = false)

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Commenter la réponse de PCPT
cs_Exploreur 4824 Messages postés lundi 11 novembre 2002Date d'inscription 15 novembre 2016 Dernière intervention - 17 sept. 2007 à 13:14
0
Merci
Re,

YOUPI !!!! Ok...ok...je sort...

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Commenter la réponse de cs_Exploreur
cs_andrebernard 406 Messages postés lundi 9 juin 2003Date d'inscription 4 septembre 2013 Dernière intervention - 17 sept. 2007 à 13:16
0
Merci
D'accord, je crois que cette fois j'ai compris.
Je comprend vite, mais faut m'expliquer longtemps

Merci de votre patience
Commenter la réponse de cs_andrebernard
PCPT 13368 Messages postés lundi 13 décembre 2004Date d'inscription 3 février 2018 Dernière intervention - 17 sept. 2007 à 13:24
0
Merci
sors pas Explo ^^
ta réponse est bonne, je ne fais qu'expliquer pourquoi  
Commenter la réponse de PCPT
cs_Exploreur 4824 Messages postés lundi 11 novembre 2002Date d'inscription 15 novembre 2016 Dernière intervention - 17 sept. 2007 à 13:45
0
Merci
Re,

Le "YOUPI" et par raport à ce matin à sa question  concernant la remise à "zéro" d'une variable type dont j'avais dit une belle 'Bip.Bip'...

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Commenter la réponse de cs_Exploreur

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.