Programmation
Résolu
1217meyrin
Messages postés
159
Date d'inscription
lundi 5 avril 2004
Statut
Membre
Dernière intervention
6 février 2007
-
26 nov. 2005 à 20:47
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 26 nov. 2005 à 21:16
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 26 nov. 2005 à 21:16
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
130
26 nov. 2005 à 21:16
26 nov. 2005 à 21:16
Mon dieu, tu confonds beaucoup de chose là !
Le VB, ce n'est pas du LISP, tu ne peux pas affecter des références de
variables Integer à une variable String : une variable String ne stocke
qu'une chaîne de caractère, et n'interprète pas cette chaîne.
Du coup :
Triangle "Triangle" & i & "_" & j donne : Triangle "Triangle1_5"
Et non le contrôle nommé Triangle1_5
De même, Could "coul" ne donne pas : Could "2", mais Could = "coul" c'est tout !
Du coup :
Dim coul As Integer
coul = "coul" & Mid(triangle, 9, 12) & "d"
Te provoquera forcément une erreur !
Bref, revois toutes les bases concernant les types de variables, et tu
verras vite que ce que tu cherche à faire est bien plus compliqué que
ce que tu fait actuellement !
______________________________________________________
DarK Sidious
Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en français : www.ProgOtoP.com/popapi/
Le VB, ce n'est pas du LISP, tu ne peux pas affecter des références de
variables Integer à une variable String : une variable String ne stocke
qu'une chaîne de caractère, et n'interprète pas cette chaîne.
Du coup :
Triangle "Triangle" & i & "_" & j donne : Triangle "Triangle1_5"
Et non le contrôle nommé Triangle1_5
De même, Could "coul" ne donne pas : Could "2", mais Could = "coul" c'est tout !
Du coup :
Dim coul As Integer
coul = "coul" & Mid(triangle, 9, 12) & "d"
Te provoquera forcément une erreur !
Bref, revois toutes les bases concernant les types de variables, et tu
verras vite que ce que tu cherche à faire est bien plus compliqué que
ce que tu fait actuellement !
______________________________________________________
DarK Sidious
Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en français : www.ProgOtoP.com/popapi/
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
130
26 nov. 2005 à 20:55
26 nov. 2005 à 20:55
Salut,
could est un string, pas un entier donc :
dim coul as integer
dim could as string
coul=2
'MAUVAIS : could="coul" 'could = "coul" et non pas 2
'BON :
could = coul
if could = "2" Then ..
_____________________________________________________________________
DarK Sidious
Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en français : www.ProgOtoP.com/popapi/
could est un string, pas un entier donc :
dim coul as integer
dim could as string
coul=2
'MAUVAIS : could="coul" 'could = "coul" et non pas 2
'BON :
could = coul
if could = "2" Then ..
_____________________________________________________________________
DarK Sidious
Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en français : www.ProgOtoP.com/popapi/
1217meyrin
Messages postés
159
Date d'inscription
lundi 5 avril 2004
Statut
Membre
Dernière intervention
6 février 2007
26 nov. 2005 à 21:05
26 nov. 2005 à 21:05
j'ai mal exprimé ce que je voulais faire, voici le bout de prog.
vous l'aurez bien compris, le teste if doit pouvoir controler si le could est egal au coul donc a 2, mais ca ne march pas.
coul=2
For i = 1
To 61
For j = 2
To 6
Step 2
triangle = "triangle" & i & "_" & j
For
Each ctrl
In Panel1.Controls
If ctrl.Name = triangle
Then
coul = "coul" & Mid(triangle, 9, 12) & "d"
could = coul
If triangle1_5.Top - ctrl.Top <= 10
And triangle1_5.Top - ctrl.Top >= -10
And triangle1_5.Left - ctrl.Left - 30 <= 10
And triangle1_5.Left - ctrl.Left - 30 >= -10
And could = "2"
Then
vous l'aurez bien compris, le teste if doit pouvoir controler si le could est egal au coul donc a 2, mais ca ne march pas.
coul=2
For i = 1
To 61
For j = 2
To 6
Step 2
triangle = "triangle" & i & "_" & j
For
Each ctrl
In Panel1.Controls
If ctrl.Name = triangle
Then
coul = "coul" & Mid(triangle, 9, 12) & "d"
could = coul
If triangle1_5.Top - ctrl.Top <= 10
And triangle1_5.Top - ctrl.Top >= -10
And triangle1_5.Left - ctrl.Left - 30 <= 10
And triangle1_5.Left - ctrl.Left - 30 >= -10
And could = "2"
Then