Discussion :

[gabvoir]

Bonjour,

J'ai une image avec des formes quelconque dessus.
Je souhaiterais creer des zones sur cette image afin de savoir ou se trouve le curseur.
Est il possible de creer des zones avec des formes personnalises ?

Merci
Gabvoir

[marot_r]

Regarde ceci

Classe Gdi+ : personnalisez la forme des formulaires
par Thierry Gasperment

http://arkham46.developpez.com/artic...tutoformshape/

et peut-être aussi

Les APIs ludiques avec Access : dessiner sur un formulaire
par Cafeine

http://cafeine.developpez.com/access/tutoriel/paint/

A+

[gabvoir]

Ouaww merci la classe GDI+ est vraiment puissante.
Mais j'ai toujours un probleme ...

Jai donc une image et je cree les zones grace a des images.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub init()
Dim i As Integer
Dim tmp As ClGdiPlus
Dim lregion As Integer
Set clGdip = New ClGdiPlus
clGdip.ImageListDelAll
clGdip.DeleteAllRegions
clGdip.LoadBitmapFromControl Me.ImgBack
For i = 1 To 16
    Call clGdip.ImageListAdd("zone" & i, CurrentProject.Path & "\Datas\workarea\zone" & i & ".jpg", clGdip.ImageWidth, clGdip.ImageHeight)
    Call clGdip.ImageListCreateRegionFromColor("zone" & i, "zone" & i, vbWhite)
    Call clGdip.FillRegion("zone" & i, vbBlack)
Next i
 
Call clGdip.ImageListAdd("couleur5", CurrentProject.Path & "\Datas\workarea\workarea5.bmp", clGdip.ImageWidth, clGdip.ImageHeight)
Call clGdip.ImageListCreateRegionFromColor("couleur5", "couleur5", vbWhite)
Call clGdip.FillRegion("couleur5", vbYellow)
 
clGdip.KeepImage
clGdip.RepaintControl Me.ImgBack, , , True
End Sub

Plusieurs probleme,
- deja de une l'affichage est tres long du au chargement des images... Y a til une autre maniere de faire ?!
- la fonction ImageListCreateRegionFromColor me renvoi un peu nimporte quoi :S
Voir ci joint le rendu, et un exemple de fichier creant une zone
Les debordement sur le noir ne me derange pas puisque ce sont des zone qui napparaitront pas mais le jaune correspond a une couleur devant se trouver dans une forme en dessous /remplissage fleche, que je compte faire clignoter au passage sur la zone noir)
Jai donc essayer pour le jaune de passer par une ReplaceColor :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Call clGdip.ImageListReplaceColor("couleur5", RGB(255, 1, 152), vbYellow)
Call clGdip.DrawImage("couleur5", 0, 0, , , , GdipSizeModeAutoSize)

Le resultat n'est tjs pas satisfaisant...

Si quelquun est specialiste de ce GDI Plus jattend les suggestions

merci !!

[Arkham46]

bjr,

en premier lieu, il faudrait utiliser si possible autre chose que du jpeg
il faudrait que la couleur soit unie pour que ça fonctionne bien (au moins la couleur de transparence unie)
le jpeg est compressé et altéré
un gif, png ou bmp avec des couleurs unies serait plus efficace