Y a t-il un equivalent de picturebox.pset (x,y),vbblack sur un compatible bitma

Question

Salut a tous
Je dessine des points  noirs sur une picturebox  avec un fond blanc puis pour un traitement s&#233;par&#233; j'aurais besoin de dessiner les memes points sur un compatible DC compatible bitmap  ou bien dibsection 256 (selon la soluce la plus facile et performante ?!) avec un draw with = 8 sur l'image en memoire au lieu d'un drawwidth de 1 sur le picturebox initiale 
comment creer une image en memoire equivalente au picturebox avec la meme couleur de fond blanc ?

ensuite je souhaiterai l'equivalent  de getpixel,  setpixel pour travailler sur l'image en memoire ( compatible bitmap ou dibsection 256)
qui peut m'aider ?

Merci pour vos lumi&#233;res 
coirdialement

Gobillot · Answer

quel langage ? quel syst&#232;me ?

si tu es en .net le gdiplus est d&#233;j&#224; incorpor&#233;

en Vb6 il est possible de l'utiliser que sous windows XP

il a toutes les fonctions r&#234;v&#233;es pour travailler sur des images
bitmaps, cr&#233;ation de pen, de brush, tra&#231;age de lignes, de rectangles,
etc ...

l'inconv&#233;nient c'est que ce n'est pas facile &#224; mettre en oeuvre, la
documentation est tr&#232;s limit&#233;e et que ce ne sera pas compatible avec
les autres syst&#232;mes, en cas de plantage Vb se plante ...



'initialisation de gdiplus

Dim GpInput As GdiplusStartupInput

GpInput.GdiplusVersion = 1

If GdiplusStartup(token, GpInput) <> Ok Then

    MsgBox "Error loading GDI+!", vbCritical

    Unload Me

    End If



'exemple d'utilisation d'une image bitmap

Call GdipCreateFromHDC(wHdc, graph)

Call GdipCreateBitmapFromGraphics(bw, bh, graph, img)



Call GdipBitmapSetPixel(img, W, H, arg)


Call GdipDrawImageI(graph, img, 0, 0)

Call GdipDisposeImage(img)

Call GdipDeleteGraphics(graph)



'arr&#234;t de gdiplus

Call GdiplusShutdown(token)


Daniel

Renfield · Answer

[gdiplus, ]en Vb6 il est possible de l'utiliser que sous windows XP
absolument faux.... integr&#233; &#224; Xp, oui, mais telechargeable pour les autres OS

getpixel et SetPixels travaillent bien avec ton image.... je ne vois pas ou est le probleme ...

Renfield
Admin CodeS-SourceS - MVP Visual Basic

hcadieu · Answer

Merci a vous deux pour vos r&#233;ponses, 

1&#176;) Daniel merci je ne souhaite pas utiliser GDI+
2&#176;)Renfield merci , je ne doute pas que ce ne soit pas compliqu&#233;, mais si je pose la question c'est que l'&#233;vidence m'&#233;chappe.
Donc je suis sous VB6, je souhaite cr&#233;er un compatible bitmap en memoire avec un fond blanc  selon un picturebox de reference (thepic pour les dimensions)   et utiliser une boucle pour dessiner des points  noirs  avec une epaisseur de 8 pixels sur le dit compatiblebitmap avec un fond blanc. (je n'arrive pas &#224; creer un compatible bitmap avec fond blanc (j'ai toujours un fond noir)

ensuite sur ce compatiblebitmap je souhaite pouvoir utiliser getpixel setpixelV 
avec une boucle for x=0 to compatiblebitmapwidth 
for y=0 to compatible bitmapheight

if getpixel(x,y,....) = 0  then 'noir 
do something
next y
next x

pourrais tu me montrer comment faire ?

Merci pour ton aide.
Cordialement

Renfield · Answer

il sera toujours avec fond noir, a l'arriv&#233;e..... suffit de le colorier !!

(API 'Rectangle')

Renfield
Admin CodeS-SourceS - MVP Visual Basic

hcadieu · Answer

Merci pour ce point, et concernant l'equivalent de picturebox.pset avec un drawWidth de 8 ?  Y a -til un equivalent pour dessiner sur le compatible bitmap ?

Renfield · Answer

pour le DrawWidth, c'est &#224; g&#233;rer avec ton Pen

pour le pSet, n'utilise pas SetPixel..... je pense &#224; LineTo / MoveToEx

Renfield
Admin CodeS-SourceS - MVP Visual Basic

Y a t-il un equivalent de picturebox.pset (x,y),vbblack sur un compatible bitma

6 réponses

Discussions similaires