Formes geometriques
cs_notrix
Messages postés
12
Date d'inscription
mardi 6 septembre 2005
Statut
Membre
Dernière intervention
1 novembre 2005
-
29 sept. 2005 à 22:55
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 - 30 sept. 2005 à 12:25
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 - 30 sept. 2005 à 12:25
3 réponses
P__ROMEO
Messages postés
294
Date d'inscription
vendredi 25 février 2005
Statut
Membre
Dernière intervention
9 mars 2006
1
30 sept. 2005 à 01:32
30 sept. 2005 à 01:32
Salut
Deja, meme sans comprendre entierement ce que tu veux, je peux te dire que la réponse est surement sur le site. une recherche sera plus rapide que d'attendre la réponse.
Mais, explique toi un peux mieu quand même, au cas ou quelqu'un veut te répondre. dis nous si tu veux quelque chose comme paint, ou tu dessine à la main, ou si tu veux et je pense que c'es ce que tu veux, dessiner en un clic, un cercle, ou un carré, ou ....
<TD id=HB_Focus_Element vAlign=top width="100%" background="" height=250 body UNSELECTAB<>
Deja, meme sans comprendre entierement ce que tu veux, je peux te dire que la réponse est surement sur le site. une recherche sera plus rapide que d'attendre la réponse.
Mais, explique toi un peux mieu quand même, au cas ou quelqu'un veut te répondre. dis nous si tu veux quelque chose comme paint, ou tu dessine à la main, ou si tu veux et je pense que c'es ce que tu veux, dessiner en un clic, un cercle, ou un carré, ou ....
<TD id=HB_Focus_Element vAlign=top width="100%" background="" height=250 body UNSELECTAB<>
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
30 sept. 2005 à 10:37
30 sept. 2005 à 10:37
Bonjour,
Tu peux te baser sur ce code:
'Dans un Module:
Declare Sub FloodFill Lib "GDI32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long)
' Le code suivant s'applique à la feuille.
Private Sub Form_Click()
' Windows dessine en pixels.
ScaleMode = vbPixels
'Choisit la couleur noire pour tracer la ligne.
ForeColor = vbBlack
' Dessine un triangle.
Line (100, 50)-(300, 50)
Line -(200, 200)
Line -(100, 50)
' Affecte à FillStyle la valeur Solid.
FillStyle = vbFSSolid
' Définit la propriété FillColor.
FillColor = RGB(128, 128, 255)
' Appelle l'API Windows pour remplir le triangle.
FloodFill hDC, 200, 100, ForeColor
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
Tu peux te baser sur ce code:
'Dans un Module:
Declare Sub FloodFill Lib "GDI32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long)
' Le code suivant s'applique à la feuille.
Private Sub Form_Click()
' Windows dessine en pixels.
ScaleMode = vbPixels
'Choisit la couleur noire pour tracer la ligne.
ForeColor = vbBlack
' Dessine un triangle.
Line (100, 50)-(300, 50)
Line -(200, 200)
Line -(100, 50)
' Affecte à FillStyle la valeur Solid.
FillStyle = vbFSSolid
' Définit la propriété FillColor.
FillColor = RGB(128, 128, 255)
' Appelle l'API Windows pour remplir le triangle.
FloodFill hDC, 200, 100, ForeColor
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
NHenry
Messages postés
15113
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
22 avril 2024
159
30 sept. 2005 à 12:25
30 sept. 2005 à 12:25
Sinon, un classique :
Obj.Line (X1,Y1)-(X2,Y2), [BF],Color
Obj.Circle (CentreX,CentreY),Color
Etc, regarde dans MSDN.
Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NH
Obj.Line (X1,Y1)-(X2,Y2), [BF],Color
Obj.Circle (CentreX,CentreY),Color
Etc, regarde dans MSDN.
Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NH
