Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Dessin de rectangle en couleur

Dessin de rectangle en couleur

4 réponses
Avatar
André AVONS
Salut @ tous
Dans une picturebox je dessine un rectangle bleu
Puis un rectangle rouge qui le le chevauche d'un tiers
Mon probleme est que je voudrais voir un peu par transparence la partie
bleue de chevauchement
POur l'instant le rouge(solid) masque completement le bleu , il faudrait
qu'il soit legerement opaque ou transparent
et tout ca dans la meme picturebox

Merci pour votre aide
--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
EddiGordo
"André AVONS" a formulé la demande :
Salut @ tous
Dans une picturebox je dessine un rectangle bleu
Puis un rectangle rouge qui le le chevauche d'un tiers
Mon probleme est que je voudrais voir un peu par transparence la partie
bleue de chevauchement
POur l'instant le rouge(solid) masque completement le bleu , il faudrait
qu'il soit legerement opaque ou transparent
et tout ca dans la meme picturebox

Merci pour votre aide


Bonjour

Si tes rectangles sont des objets Shape, tu peux essayer en jouant avec
leur propriété DrawMode; s'il s'agit de l'emploi de la méthode Line,
fait varier celle du picturebox.

Essaie avec la valeur 14 (Merge Not Pen); le résultat ne sera peut-être
pas celui que tu escomptes mais tu peux peut-être tenter le coup...

En espérant t'avoir aidé


--
Enjoy !
Avatar
André AVONS
Salut
Merci pour ta reponse mais je vois que je n'ai pas etais assez clair
En fait c'est polygon, et je veux vir legerement celui qui en dessous
Public Sub drawPolygone(x1 As Long, y1 As Long, x2 As Long, y2 As Long, x3
As Long, _
y3 As Long, x4 As Long, y4 As Long, _
Optional TempFillColor As Long = 0)

Dim hNewBrush As Long
Dim hOldBrush As Long
Dim lngTmpColor As Long
Dim hNewPen As Long
Dim hOldPen As Long
Dim pts(1 To 4) As POINTAPI
Dim cnt As Long

'initialisation des points des 4 angles du polygone
pts(1).x = x1
pts(1).y = y1
pts(2).x = x2
pts(2).y = y2
pts(3).x = x3
pts(3).y = y3
pts(4).x = x4
pts(4).y = y4

lngTmpColor = apiSetTextColor(m_hDC, TempFillColor)
' m_ForeColor = TempFillColor


If TempFillColor <> 0 Then
hNewBrush = apiCreateSolidBrush(TempFillColor)
Else
' Use FillColor Prop
hNewBrush = apiCreateSolidBrush(m_FillColor)
End If

' Select new brush onto our DC
hOldBrush = SelectObject(m_hDC, hNewBrush)


' Use a NULL Pen so ther is no Border around
' the rectangle
hNewPen = apiCreatePen(PS_NULL, 0&, m_ForeColor)
hOldPen = SelectObject(m_hDC, hNewPen)

'set the polygon fillmode to winding
If GetPolyFillMode(Me.hdc) <> WINDING Then SetPolyFillMode Me.hdc,
WINDING
'draw the polygon
Polygon Me.hdc, pts(1), 4

Call SelectObject(m_hDC, hOldBrush)
Call DeleteObject(hNewBrush)

' Cleanup
Call SelectObject(m_hDC, hOldPen)
Call DeleteObject(hNewPen)

'm_ForeColor = lngTmpColor
lngTmpColor = apiSetTextColor(m_hDC, lngTmpColor)

' Update the display
Me.DIBtoPictureData

End Sub

--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/

"EddiGordo" a écrit dans le message de
news:
"André AVONS" a formulé la demande :
> Salut @ tous
> Dans une picturebox je dessine un rectangle bleu
> Puis un rectangle rouge qui le le chevauche d'un tiers
> Mon probleme est que je voudrais voir un peu par transparence la partie
> bleue de chevauchement
> POur l'instant le rouge(solid) masque completement le bleu , il faudrait
> qu'il soit legerement opaque ou transparent
> et tout ca dans la meme picturebox
>
> Merci pour votre aide
Bonjour

Si tes rectangles sont des objets Shape, tu peux essayer en jouant avec
leur propriété DrawMode; s'il s'agit de l'emploi de la méthode Line,
fait varier celle du picturebox.

Essaie avec la valeur 14 (Merge Not Pen); le résultat ne sera peut-être
pas celui que tu escomptes mais tu peux peut-être tenter le coup...

En espérant t'avoir aidé


--
Enjoy !



Avatar
André AVONS
Merci pour votre aide

J'ai rajoute ca a mon code
If Transp = 1 Then
SetROP2 Me.hdc, R2_MASKPEN
Else 'R2_COPYPEN
SetROP2 Me.hdc, R2_COPYPEN
End If
Et j'obtiens ce que je souhaitais
Merci a eddiCordo qui grace a R2_notmergepen m'a bien oriente
--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/

"Christophe" a écrit dans le message de
news:bm0up4$6ek$
Bonjour,

Pourquoi ne pas calculer l'intersection des deux polygones et la tracer


dans
la couleur souhaitée ?

Autrement joue avec les Rasterops (copy merge copy etc...)

Christophe Vergon
"André AVONS" a écrit dans le message de news:
e6kxS$
> Salut
> Merci pour ta reponse mais je vois que je n'ai pas etais assez clair
> En fait c'est polygon, et je veux vir legerement celui qui en dessous
> Public Sub drawPolygone(x1 As Long, y1 As Long, x2 As Long, y2 As Long,


x3
> As Long, _
> y3 As Long, x4 As Long, y4 As Long, _
> Optional TempFillColor As Long = 0)
>
> Dim hNewBrush As Long
> Dim hOldBrush As Long
> Dim lngTmpColor As Long
> Dim hNewPen As Long
> Dim hOldPen As Long
> Dim pts(1 To 4) As POINTAPI
> Dim cnt As Long
>
> 'initialisation des points des 4 angles du polygone
> pts(1).x = x1
> pts(1).y = y1
> pts(2).x = x2
> pts(2).y = y2
> pts(3).x = x3
> pts(3).y = y3
> pts(4).x = x4
> pts(4).y = y4
>
> lngTmpColor = apiSetTextColor(m_hDC, TempFillColor)
> ' m_ForeColor = TempFillColor
>
>
> If TempFillColor <> 0 Then
> hNewBrush = apiCreateSolidBrush(TempFillColor)
> Else
> ' Use FillColor Prop
> hNewBrush = apiCreateSolidBrush(m_FillColor)
> End If
>
> ' Select new brush onto our DC
> hOldBrush = SelectObject(m_hDC, hNewBrush)
>
>
> ' Use a NULL Pen so ther is no Border around
> ' the rectangle
> hNewPen = apiCreatePen(PS_NULL, 0&, m_ForeColor)
> hOldPen = SelectObject(m_hDC, hNewPen)
>
> 'set the polygon fillmode to winding
> If GetPolyFillMode(Me.hdc) <> WINDING Then SetPolyFillMode Me.hdc,
> WINDING
> 'draw the polygon
> Polygon Me.hdc, pts(1), 4
>
> Call SelectObject(m_hDC, hOldBrush)
> Call DeleteObject(hNewBrush)
>
> ' Cleanup
> Call SelectObject(m_hDC, hOldPen)
> Call DeleteObject(hNewPen)
>
> 'm_ForeColor = lngTmpColor
> lngTmpColor = apiSetTextColor(m_hDC, lngTmpColor)
>
> ' Update the display
> Me.DIBtoPictureData
>
> End Sub
>
> --
> @+
> André
>
> Quelques liens avec des exemples, des utilitaires et des compléments


pour
> Access
> http://access.seneque.free.fr/
> http://www.self-access.com/
> http://www.mvps.org/accessfr/
> http://mypage.bluewin.ch/w.stucki/
> http://access.jessy.free.fr/
>
> "EddiGordo" a écrit dans le message de
> news:
> > "André AVONS" a formulé la demande :
> > > Salut @ tous
> > > Dans une picturebox je dessine un rectangle bleu
> > > Puis un rectangle rouge qui le le chevauche d'un tiers
> > > Mon probleme est que je voudrais voir un peu par transparence la
partie
> > > bleue de chevauchement
> > > POur l'instant le rouge(solid) masque completement le bleu , il
faudrait
> > > qu'il soit legerement opaque ou transparent
> > > et tout ca dans la meme picturebox
> > >
> > > Merci pour votre aide
> > Bonjour
> >
> > Si tes rectangles sont des objets Shape, tu peux essayer en jouant


avec
> > leur propriété DrawMode; s'il s'agit de l'emploi de la méthode Line,
> > fait varier celle du picturebox.
> >
> > Essaie avec la valeur 14 (Merge Not Pen); le résultat ne sera


peut-être
> > pas celui que tu escomptes mais tu peux peut-être tenter le coup...
> >
> > En espérant t'avoir aidé
> >
> >
> > --
> > Enjoy !
> >
>
>




Avatar
Christophe
Bonjour,

Pourquoi ne pas calculer l'intersection des deux polygones et la tracer dans
la couleur souhaitée ?

Autrement joue avec les Rasterops (copy merge copy etc...)

Christophe Vergon
"André AVONS" a écrit dans le message de news:
e6kxS$
Salut
Merci pour ta reponse mais je vois que je n'ai pas etais assez clair
En fait c'est polygon, et je veux vir legerement celui qui en dessous
Public Sub drawPolygone(x1 As Long, y1 As Long, x2 As Long, y2 As Long, x3
As Long, _
y3 As Long, x4 As Long, y4 As Long, _
Optional TempFillColor As Long = 0)

Dim hNewBrush As Long
Dim hOldBrush As Long
Dim lngTmpColor As Long
Dim hNewPen As Long
Dim hOldPen As Long
Dim pts(1 To 4) As POINTAPI
Dim cnt As Long

'initialisation des points des 4 angles du polygone
pts(1).x = x1
pts(1).y = y1
pts(2).x = x2
pts(2).y = y2
pts(3).x = x3
pts(3).y = y3
pts(4).x = x4
pts(4).y = y4

lngTmpColor = apiSetTextColor(m_hDC, TempFillColor)
' m_ForeColor = TempFillColor


If TempFillColor <> 0 Then
hNewBrush = apiCreateSolidBrush(TempFillColor)
Else
' Use FillColor Prop
hNewBrush = apiCreateSolidBrush(m_FillColor)
End If

' Select new brush onto our DC
hOldBrush = SelectObject(m_hDC, hNewBrush)


' Use a NULL Pen so ther is no Border around
' the rectangle
hNewPen = apiCreatePen(PS_NULL, 0&, m_ForeColor)
hOldPen = SelectObject(m_hDC, hNewPen)

'set the polygon fillmode to winding
If GetPolyFillMode(Me.hdc) <> WINDING Then SetPolyFillMode Me.hdc,
WINDING
'draw the polygon
Polygon Me.hdc, pts(1), 4

Call SelectObject(m_hDC, hOldBrush)
Call DeleteObject(hNewBrush)

' Cleanup
Call SelectObject(m_hDC, hOldPen)
Call DeleteObject(hNewPen)

'm_ForeColor = lngTmpColor
lngTmpColor = apiSetTextColor(m_hDC, lngTmpColor)

' Update the display
Me.DIBtoPictureData

End Sub

--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/

"EddiGordo" a écrit dans le message de
news:
> "André AVONS" a formulé la demande :
> > Salut @ tous
> > Dans une picturebox je dessine un rectangle bleu
> > Puis un rectangle rouge qui le le chevauche d'un tiers
> > Mon probleme est que je voudrais voir un peu par transparence la


partie
> > bleue de chevauchement
> > POur l'instant le rouge(solid) masque completement le bleu , il


faudrait
> > qu'il soit legerement opaque ou transparent
> > et tout ca dans la meme picturebox
> >
> > Merci pour votre aide
> Bonjour
>
> Si tes rectangles sont des objets Shape, tu peux essayer en jouant avec
> leur propriété DrawMode; s'il s'agit de l'emploi de la méthode Line,
> fait varier celle du picturebox.
>
> Essaie avec la valeur 14 (Merge Not Pen); le résultat ne sera peut-être
> pas celui que tu escomptes mais tu peux peut-être tenter le coup...
>
> En espérant t'avoir aidé
>
>
> --
> Enjoy !
>