Position image dans une function

Question

Salut à tous, je cherche à disposer des images dans une form (50 images) nommées im1() il se trouve que j'ai ces images dans plusieurs de mes form, donc je cherche à mettre dans un module la chose suivante: 
function(PositionTop as integer,PositionLeft as integer, NbColonne as integer, im() as image)

le problème c'est dans la déclaration de im()
j'ai essayé im() as image

et en faisant 

call function(100,100,7,im1())
il me répond par une erreur : incompatibilité de type: tableau ou type défini par l'utilisateur attendu:

si quelqu'un sait comment faire ce serai sympat...

merci pour votre attention

:)Sator :)

ps: si il ni avait pas de faute d'orthographe dans ce texte, il y a fort à parier que ce texte ne serait pas de moi...

jrivet · Answer

Salut,
une fois tu postes dans VB.NET et une fois dans Visual Basic6.
On pourrais savoir quelle est la version que tu utilises réellement???

Car les réponses diffèreront.

@+: Ju£i€n
Pensez: Réponse acceptée

cs_Sator · Answer

Sorry, dans vb6 désolé mais ça m'a déjà fais le coup, c'est ma molette qui fait la folle.... désolé

:)Sator :)

ps: si il ni avait pas de faute d'orthographe dans ce texte, il y a fort à parier que ce texte ne serait pas de moi...

jrivet · Answer

Salut,
Tiens va voir cette source que j'ai faite.

[../codes/JEU-STYLE-COLORJUNCTION_38821.aspx 
JEU STYLE COLORJUNCTION

]
Il me semble que j'utilise une fonction pour positionner les images sur le plateau de jeu. peu etre qu'elle t'aideras.

Je vais voir si je retrouve de mon coté cette fonction.
Mais de mémoire je dirais qu'il faut que le parametre de la fonction soit de type object

@+: Ju£i€n
Pensez: Réponse acceptée

jrivet · Answer

Ah bah le Copier coller n'a pas fonctionné.

C'est ICI

@+: Ju£i€n
Pensez: Réponse acceptée

cs_Sator · Answer

Apparement tu résous la position des images ainsi

Begin VB.Image Images

BorderStyle = 1 'Fixed Single

Height = 375

Index = 5

Left = 2160

Picture = "FrmAffichagePlateau.frx":0000

Stretch = -1 'True

Top = 1200

Visible = 0 'False

Width = 375

End

Apparement tu ne fais pas de passage vers une function.... :)Sator :) ps: si il ni avait pas de faute d'orthographe dans ce texte, il y a fort à parier que ce texte ne serait pas de moi...

jrivet · Answer

Salut,
Non, ceci est l'entête du fichier FrmAffichagePlateau je crois

Bon Essaie ce code dans un nouveau projet avec des images sur ton formulaire nommée Image1(0)  Image1(1) Image1(2)

Le code peu etre dans un module.

Est ce que c'est cela (ou un truc dans le style) que tu souhaites faire?

Public Sub PlaceImages(Im As Object)
Dim i As Integer
   For i = Im.Lbound To Im.Ubound
       Im(i).Left = 15 + (i * Im(i).Width)
       Im(i).Top = 15
   Next
End Sub , ----
[../code.aspx?ID=41455 By Renfield]

Si oui et bien je pense que tu as tout ce qui te faut dans la source proposée.

@+: Ju£i€n
Pensez: Réponse acceptée

cs_Sator · Answer

oui et non...

en fait j'ai plusieurs form avec une ou des grilles d'image 50 images ou 9 images pour gérer les chiffres et les étoilles, les grilles n'étant pas pareilles d'un pays à l'autre, et j'ai une dizaine de form où sont placé ces grilles, je cherche à mettre dans un module la chose suivante et function
0) la form
1) position de l'image 1 en top
2) position de l'image 1 en left
3) le nom des images (c'est là que ça bloque) 
4) Nombre de colonnes

mon code=
Public Function Ep(Fm As Form, DTop As Integer, Dleft As Integer, imag() As Object, nbCol as integer)

et appel de la function :

call ep(me,100,100,im1(),6)

mais ça me bolque au transphère de imag()

merci pour ta patience
:)Sator :)

ps: si il ni avait pas de faute d'orthographe dans ce texte, il y a fort à parier que ce texte ne serait pas de moi...

cs_Sator · Answer

avec ce que tu m'a proposé j'ai toujours la même erreur

:)Sator :)

ps: si il ni avait pas de faute d'orthographe dans ce texte, il y a fort à parier que ce texte ne serait pas de moi...

Position image dans une function

8 réponses

Votre réponse

Discussions similaires