OVH Cloud OVH Cloud

creer l'image d'une partie d'une winform

3 réponses
Avatar
Cyril
bonjour,

comment puis je faire pour créér l'image d'une winform, ou d'une partie de
celle-ci ?

merci,
C.

3 réponses

Avatar
Pyroa
? peux tu donner plus de precision stp ? comme bismark ;)
j'ai pas tout compris

"Cyril" a écrit dans le message de
news:
bonjour,

comment puis je faire pour créér l'image d'une winform, ou d'une partie de
celle-ci ?

merci,
C.




Avatar
Laurent Jordi \(www.ezlogic.mc\)
Salut !

Selon moi tu veux faire une capture d'écran non ?

@+

LJ
"Pyroa" <(DeteleThis ) a écrit dans le message de
news:
? peux tu donner plus de precision stp ? comme bismark ;)
j'ai pas tout compris

"Cyril" a écrit dans le message de
news:
> bonjour,
>
> comment puis je faire pour créér l'image d'une winform, ou d'une partie


de
> celle-ci ?
>
> merci,
> C.
>
>




Avatar
Cyril
Désolé, j'ai pas été très clair. En fait mon problème de départ était le
suivant :
J'essaye de transformer une chaine de caractère en code barre EAN128.
J'utilise un algo + police EAN128 trouvé sur le site de
http://grandzebu.net/

A ma grande surprise, cette fonte appliquée à une textbox est correcte mais
ne fonctionne pas sur un label, un bouton ou dans un état crystal.
Dans le désespoir, je me suis dit que j'allais générer une bitmap de ma
textbox qui contient le code barre.

J'ai trouvé sur le site c2i un moyen de faire cette "copie" de la textbox.
Mais bon, cette solution n'est qu'une solution de remplacement ...
Si vous avez une idée pour résoudre mon premier problème, peut être ne suis
je pas parti dans la bonne direction ...

ci-joint le code de copie d'image :

Private Declare Function BitBlt Lib "gdi32.dll" ( _
ByVal hDestDC As IntPtr, _
ByVal x As Int32, _
ByVal y As Int32, _
ByVal nWidth As Int32, _
ByVal nHeight As Int32, _
ByVal hSrcDC As IntPtr, _
ByVal xSrc As Int32, _
ByVal ySrc As Int32, _
ByVal dwRop As Int32) As Int32

Private Const SRCCOPY = &HCC0020

Private Sub copie(ByVal txt As TextBox)

Dim gForm As Graphics = txt.CreateGraphics()
Dim iHdcForm As IntPtr = gForm.GetHdc()
Dim gBitmap As Graphics = Graphics.FromImage(oB)
Dim iHdcBitmap As IntPtr = gBitmap.GetHdc()

Me.ClientRectangle.Width, Me.ClientRectangle.Height, iHdcForm, 0, 0,
SRCCOPY)

txt.Location.Y, txt.Width, txt.Height, iHdcForm, 0, 0, SRCCOPY)

Dim iResultBitBlt As Int32 = BitBlt(iHdcBitmap, 0, 0, txt.Width, txt.Height,
iHdcForm, 0, 0, SRCCOPY)
gBitmap.ReleaseHdc(iHdcBitmap)
gForm.ReleaseHdc(iHdcForm)
gBitmap.Dispose()
gForm.Dispose()

oB.Save("c:copy.bmp")

End Sub



"Laurent Jordi (www.ezlogic.mc)" <inf[o]@ezlogic.mc> a écrit dans le message
de news:
Salut !

Selon moi tu veux faire une capture d'écran non ?

@+

LJ
"Pyroa" <(DeteleThis ) a écrit dans le message de
news:
> ? peux tu donner plus de precision stp ? comme bismark ;)
> j'ai pas tout compris
>
> "Cyril" a écrit dans le message de
> news:
> > bonjour,
> >
> > comment puis je faire pour créér l'image d'une winform, ou d'une


partie
de
> > celle-ci ?
> >
> > merci,
> > C.
> >
> >
>
>