PaintPicture Probleme

Signaler
Messages postés
56
Date d'inscription
jeudi 27 juin 2002
Statut
Membre
Dernière intervention
27 janvier 2005
-
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
-
Picture1.ScaleMode = 2
For n = 0 To 15
On Error Resume Next
Picture1.PaintPicture frmMain.Image2(n), n * 16, 0, 16, 16
Next
For n = 16 To 31
On Error Resume Next
Picture1.PaintPicture frmMain.Image2(n), n * 16 - 256, 16, 16, 16
Next
For n = 32 To 47
On Error Resume Next
Picture1.PaintPicture frmMain.Image2(n), n * 16 - 512, 32, 16, 16
Next
For n = 48 To 63
On Error Resume Next
Picture1.PaintPicture frmMain.Image2(n), n * 16 - 768, 48, 16, 16
Next
For n = 64 To 79
On Error Resume Next
Picture1.PaintPicture frmMain.Image2(n), n * 16 - 1024, 64, 16, 16
Next
For n = 80 To 95
On Error Resume Next
Picture1.PaintPicture frmMain.Image2(n), n * 16 - 1280, 80, 16, 16
Next
For n = 96 To 111
On Error Resume Next
Picture1.PaintPicture frmMain.Image2(n), n * 16 - 1536, 96, 16, 16
Next
For n = 112 To 127
On Error Resume Next
Picture1.PaintPicture frmMain.Image2(n), n * 16 - 1792, 112, 16, 16
Next
For n = 128 To 143
On Error Resume Next
Picture1.PaintPicture frmMain.Image2(n), n * 16 - 2048, 128, 16, 16
Next
For n = 144 To 159
On Error Resume Next
Picture1.PaintPicture frmMain.Image2(n), n * 16 - 2304, 144, 16, 16
Next
For n = 160 To 175
On Error Resume Next
Picture1.PaintPicture frmMain.Image2(n), n * 16 - 2560, 160, 16, 16
Next
For n = 176 To 191
On Error Resume Next
Picture1.PaintPicture frmMain.Image2(n), n * 16 - 2816, 176, 16, 16
Next
For n = 192 To 207
On Error Resume Next
Picture1.PaintPicture frmMain.Image2(n), n * 16 - 3072, 192, 16, 16
Next
For n = 208 To 223
On Error Resume Next
Picture1.PaintPicture frmMain.Image2(n), n * 16 - 3328, 208, 16, 16
Next
For n = 224 To 239
On Error Resume Next
Picture1.PaintPicture frmMain.Image2(n), n * 16 - 3584, 224, 16, 16
Next

Sa c ma source. Et quand je l'execute tout va bien et sa me fait mon image sauf que sa me fait des groupe d'image dison 3x3 et une ligne grise en sépare chaque groupe. C laid et j'ai vraiment besoin de l'enlever. c'est comme si l'image était quadriller mais en groupe de 9 (3x3).

Si jamais vous avez une idée !! REPONDEZ !!!

Merci

8 réponses

Messages postés
56
Date d'inscription
jeudi 27 juin 2002
Statut
Membre
Dernière intervention
27 janvier 2005

Pour ceux qui ne comprenne pas mon prob

http://membres.lycos.fr/Mrfjick/Bug.bmp
0
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
Je crois que ton problème vient de l'alligment de tes images, essaye de définir des coordonnées à - un pixels près...

Et aussi : utilise l'api StretcBlt, c'est plus rapide. Pour plus d'aide sur cette api, va voir ma source AIDE SUR LES PRINCIPALES API.

DARK SIDIOUS
0
Messages postés
56
Date d'inscription
jeudi 27 juin 2002
Statut
Membre
Dernière intervention
27 janvier 2005

Rha moi j'ai jamais arriver a faire un truc avec des API. Et en plus je voit pas a koi sa va me servir car cette api sert a redimentionner une image.
0
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
Oui, elle sert à redimensionner, tout comme la propriété PeintPicture...

DARK SIDIOUS
0
Messages postés
56
Date d'inscription
jeudi 27 juin 2002
Statut
Membre
Dernière intervention
27 janvier 2005

La propriété PainPicture sert a mettre plusieur image dans une grosse image et non redimensionner
0
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
Ah mais si, tu peux parfaitement redimensionner avec Paintpicture : Essaye de mettre des largeurs et des hauteurs différentes pour l'origine et l'arrivée de ton affichage et tu vera... Je le sais car je l'utilisais courement à mes débuts de programmeurs, lorsque je connaissait pas les API.

DARK SIDIOUS
0
Messages postés
56
Date d'inscription
jeudi 27 juin 2002
Statut
Membre
Dernière intervention
27 janvier 2005

Je suis concient qu'elle peut redimentionner mais ce n'est pas ce que j'ai besoin. J'ai besoin de savoir pourquoi quand je me plusieur image dans une grosse avec la fonction PaintPicture, sa me les groupe par 9 ( 3 x 3 ) et que sa les separer par 1 ligne.
0
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
Parce que tes coordonnées ne sont sûrement pas bonnes... Essaye avec des coordonnées inférieures d'un pixel. Exemple :

Si tu as :

Coordonnée_X = 5
Coordonnée_Y = 4
Longueur_X = 20
Longueur_Y = 25
Alors :

Picture1.paintpicture Picture1.picture, coordonnée_X - 1, coordonnée_Y - 1, longueur_X, longueur_Y, 0,0,Longueur_X, Longueur_Y

DARK SIDIOUS
0