S.O.S "Rotation" !!! (suite)

Question

Salut! 

Je tiens tout d'abord &#224; te remercier fortement pour ta r&#233;ponse et pour ton aide.

les fonctions que tu ma propos&#233; m'aident effectivement a r&#233;soudre mon Pb, merci encor!

Dans la fin de ton message tu disais que tu parvenez a parametrer, de telle sorte que tu obtienne des bordures en rouge. je pourrais savoir comment t'y prend tu?

Merci (...Daniel)

Nab

cs_casy · Answer

Pour continuer un sujet, utilise la zone "R&#233;pondre &#224; ce message" en bas
de ton premier post plutot que de cr&#233;er un nouveau message.

Plus quelqu'un qui n'a pas suivi, ce message est plutot incomprehensible.



message d'origine : http://www.vbfrance.com/forum.v2.aspx?ID=409323




<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

liban123 · Answer

Je faisais reference au message " S.O.S "Rotation" !!!" que j'ai envoyer Hi&#232;r: le 10/03/2005 14:59:40  .

Si vous pouvez m'aider, &#231;a serait g&#233;niale!

Au fait on m'a suggerer d'utiliser des instruction "polygone" pour dessiner des rectangle dont les cot&#233; ne sont pas forc&#233;ment paral&#232;lles au axes X et Y. mais je souhaiterai pouvoir choisir la couleur de l'interieur des rectangle et la couleur des contours.

Merci pour votre aide

Nab

cs_casy · Answer

Il faut utiliser je crois la fonction FillRgn, c'est ce que fait
d'ailleur Gobillot dans sa r&#233;ponse dans l'autre message, sur une forme
qui n'est pas parall&#232;le aux axes et qui peut en plus etre un polygone
complexe (Gobillot a d&#233;siner un rectangle, mais en changeant ses
coordonn&#233;es on peut dessiner une forme diforme, &#231;a marche). Mais pour
les couleurs?



Je ne peux pas t'en dire plus, je ne l'ai jamais utilis&#233;e. (Mais &#231;a pourrais venir d'ici peu si je trouve le temps.)


Il faut peut etre regarder aussi du cot&#233; des api FloodFill et ExtFloodFill





<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

liban123 · Answer

Voici le code qu'un interante m'a propos&#233;:

"Option Explicit


Private Type COORD
    x As Long
    y As Long
End Type


Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As Any, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Private Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As Any, ByVal nCount As Long) As Long
Private Declare Function FillRgn Lib "gdi32" (ByVal hdc As Long, ByVal hRgn As Long, ByVal hBrush As Long) As Long
Private Declare Function GetStockObject Lib "gdi32" (ByVal nIndex As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long


Const ALTERNATE = 1 ' ALTERNATE and WINDING are
Const WINDING = 2 ' constants for FillMode.
Const BLACKBRUSH = 4 ' Constant for brush type.


Private Sub Command1_Click()
    Dim poly(4)   As COORD
    Dim NumCoords As Long
    Dim hBrush    As Long
    Dim hRgn      As Long
    
    Picture1.Cls
    
    NumCoords = 4


    Picture1.ScaleMode = vbPixels
    
    poly(0).x = 80
    poly(0).y = 50
    poly(1).x = 150
    poly(1).y = 70
    poly(2).x = 100
    poly(2).y = 220
    poly(3).x = 30
    poly(3).y = 200
    
    Polygon Picture1.hdc, poly(0), NumCoords


    hBrush = GetStockObject(BLACKBRUSH)


    hRgn = CreatePolygonRgn(poly(0), NumCoords, ALTERNATE)
    
    If hRgn Then FillRgn Picture1.hdc, hRgn, hBrush
    
    DeleteObject hRgn
    
End Sub"

Mon probl&#232;me est que n'arrive pas a adapter ces quelques lignes de code &#224; mon application...et je ne sais pas pourquoi!...je ne  pense pas que ce doit etre compliquer mais je d&#233;bute en Visual Basic et je sais que je ne maitrise pas touts, loin de la...!

Dans mon application, Mon objet se nomme PctDessin et mes point,A, B, C, D ont des coordonn&#233;es exprim&#233; en m&#232;tres.

donc dans le code qui pr&#233;c&#232;de j'ai simplement changer le nom de mon objet: de PctDessin et j'ai suprimer le Scalemode car celui de mon objet est "User".

Cependant, le fait que dans mon objet PctDessin, le rep&#232;re  est : Y=0 vers le bas et X=0 c'est en bas &#224; gauche...je ne sais pas si c'est cela qui jou...

En tout cas ce n'est pas une &#233;rreur de compilation car il ne me le signal pas.

Merci pour votre aide...mes question peuvent parr&#232;tre b&#234;te, mais je d&#233;bute...

Merci encore

Nab

Gobillot · Answer

pour les couleurs, j'avais fait varier la valeur de BLACKBRUSH, ce qui donne des effets diff&#233;rents.
pour la bordure il faut changer la propri&#233;t&#233; ForeColor de la PictureBox, mais je n'arrive toujours pas &#224; avoir la couleur de remplissage.
pour les unit&#233;s, il faut toujours les mettre en Pixels, avec l'origine (0,0) en haut &#224; gauche.
si tu as mis une autre unit&#233; il faut faire la conversion toi m&#234;me.

bon courage.

Daniel