Texte transparent avec clGdiplus

Version imprimable

Bonjour

J'ai bien réussi à écrire le texte sur une image nouvellement créée dynamiquement.
Ci joint le code:

J'ai mis toute les options sur le texte.
Mais je n'arrive pas à le mettre sur fond transparent

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Private Sub CommandButton1_Click()
 
i = i + 1
 e = e + 100
    Set imageplus = Me.Controls.Add("forms.image.1")
    With imageplus
        .Name = "MonImage" & i
        .Left = e
        .Top = 30
        .Width = 200
        .Height = 60
    .BackColor = 123654
    .BackStyle = fmBackStyleTransparent
    .BorderStyle = fmBorderStyleNone
    a = .Width / 3.3
    End With
 
    MsgBox imageplus.Name & " ajouté dans l'UserForm."
Set o = New ClGdiPlus
o.DrawSmooth = True
' Creation bitmap
nom = "MonImage" & i
Call o.CreateBitmap(o.PointsToPixelsX(Me.Controls(nom).Width), o.PointsToPixelsY(Me.Controls(nom).Height))
' Fond blanc
o.FillColor vbWhite
' Crayon a l'interieur
'o.PenAlignMode = PenAlignmentInset
' Ajout des textures
o.TextureAddFromControl "filltext1", Me.ImgCiel
 
o.ImageListDel "text"
' Ecrit un texte
o.FillTexture = ""
o.FillTexture = "filltext1"
o.DrawText "montext", a, "Arial", 0, 0, o.ImageWidth - 2, o.ImageHeight, 1, , 0, 0, -1, 50, True, True, True, True, True
 
o.RepaintControl Me.Controls(nom)
End Sub

Si je ne me trompe pas le "-1 et 50 devrait être pour le fond transparent.

Mais ça ne fonctionne pas:arf::arf:
Merci pour l'aide

29/07/2010, 22h09
Invité

Bonsoir
Peut être serait-il bon, pour la bonne compréhension de ceux qui participent au Forum, de préciser de quel tutoriel d'Arkham46 il s'agit. ;)
02/08/2010, 11h54
Arkham46
bjr

les paramètres de transparence de DrawText agissent sur la transparence du texte sur l'image (c'est à dire que le texte n'est pas surligné), pas sur la transparence de l'image sur le formulaire

ici il y a au début FillColor vbWhite donc le fond de l'image est blanc opaque
inutile d'essayer de mettre du blanc transparent, ça ne marche pas il devient noir :cry:

sinon tu peux simplement faire au début :
Code:

1 2 o.FillColor Me.BackColor
comme ça le fond de l'image est de la couleur de fond du formulaire
03/08/2010, 14h04
patricktoulon

bonjour arkham

oui jai remarqué il deviens noir
il y a pourtant le parametre dans la ligne de draw text selon ton tutoriel

maintenant il me vien une autre idée pour y arriver

et si apres avoir ecrit mon text dans un control comme je te l'ai presenté precedement je repassais le control dans la moulinette de la classe

une fois le control ecris

je fais refait une image du control

et je fais la meme chose qui est fait avec la fleche (fleche bleue ;fleche rouge)dans l'exemple de ton tuto

crois tu que ca marcherais ?sachant que ce que l'on vois apres avoir ecris sur le control c'est le bipmap

enfin je vais essayer ca

ps :j'ai remarqué aussi que dans le drawpolygone j'etais obligé de metre les point de repere entre parentheze .est_ce une modification de la classe ou bien moi

le rotate region ne fonctionne pas du tout chez moi:bug:
enfin je desespere il y a plein de chose qui ne fonctionnent pas:arf:

est_ce que c'est parceque je suis sur seven (64) que ca ne marche pas :cry:

a vrai dire je ne comprend plus puisque il ne m affiche aucun message d'erreur

si tu a la reponse je serais ravi de la connaitre
:help:
je te remercie pour ton aide

re bonjour

je viens de me rendre compte que je me suis servis du module exporté du fichier exemple pour excel dans ton tutoriel

je viens de voir aussi qu'il y a un module prevu pour se passer de la librairie gdiplus.dll avec excel avec excel2007

est ce cela qui me fou tout en l'air?

et a tu modifié le drawpixel dans celui la aussi?

merci de ton aide

au plaisir

Citation:

Envoyé par patricktoulon

j'ai remarqué aussi que dans le drawpolygone j'etais obligé de metre les point de repere entre parentheze .est_ce une modification de la classe ou bien moi

il faut donner un tableau de points en paramètre, donc Array(10,10,20,20,30,30,10,10) par exemple
je ne crois pas que ça ait changé depuis le début

Citation:

Envoyé par patricktoulon

le rotate region ne fonctionne pas du tout chez moi:bug:

normalement ça marche, un exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Commande1_Click() Dim o As clGdiplus Set o = New clGdiplus o.CreateBitmapForImage Me.Image0 o.FillColor vbWhite o.DrawRectangle 100, 100, 200, 200, , , , , , "monrectangle" o.RotateRegion "monrectangle", 50 o.HatchRegion "monrectangle", vbRed o.RepaintControl Me.Image0 End Sub
ça dessine un rectangle et crée une région
on tourne la région de 50° et on la hachure
(j'ai mis une nouvelle version 1.8, j'espère que le rotateregion n'était pas buggué avant)

Citation:

Envoyé par patricktoulon

est_ce que c'est parceque je suis sur seven (64) que ca ne marche pas :cry:

aucune idée...je ne pense pas

Citation:

Envoyé par patricktoulon

a vrai dire je ne comprend plus puisque il ne m affiche aucun message d'erreur

il y a peu de messages d'erreur, les fonctions renvoient généralement False si elle n'ont pas fonctionné

Citation:

Envoyé par patricktoulon

je viens de me rendre compte que je me suis servis du module exporté du fichier exemple pour excel dans ton tutoriel

il faut mieux télécharger le module seul, sinon ce n'est peut-être pas la dernière version

Citation:

Envoyé par patricktoulon

je viens de voir aussi qu'il y a un module prevu pour se passer de la librairie gdiplus.dll avec excel avec excel2007

est ce cela qui me fou tout en l'air?

et a tu modifié le drawpixel dans celui la aussi?

Oui les modules sont identiques, sauf que celui pour 2007 utilise la librairie installée avec Office 2007

Pour le reste, je ne comprend pas bien ce que cherche à faire avec le texte ... :?
Ce qui est sûr c'est que pour l'instant la transparence de l'image n'est pas conservée lors du passage dans le contrôle.

04/08/2010, 20h46
patricktoulon

re

bonjour arkham

comme je l'ai precedement speculé

j'ai essayé de repasser le control a la moulinette

de la meme facon que l'exemple (fleche bleu,fleche rouge)

et bien ca marche

je finalise tout ca et je poste un exemple

merci pour ton aide
au plaisir

:koi:bonjour arkham

voila une facon d'ecrire le text avec texture sur fond transparent
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 Private Sub CommandButton1_Click() Set o = New ClGdiPlus o.DrawSmooth = True ' Creation bitmap Call o.CreateBitmap(500, 100) ' Ajout des textures par le control"ImgCiel" o.TextureAddFromControl "texture", Me.ImgCiel o.FillTexture = "texture" o.TextureTranslate "texture", 300, 300 o.DrawText (montext), 100, "Arial", 0, 0, 500, 100, 1, 0, vbBlack, 255, vbRed, 0, , , , True, True o.FillTexture = "" o.FastRepaint Me.Image1 End Sub Private Sub ScrollBar1_Change() o.Rotate (Me.ScrollBar1 - 180) o.FastRepaint Me.Image1 End Sub
en gros je crée la bipmap a la dimension que je veux et non plus a la taille du control image1
je dessine le texte avec la texture

reste maintenant a effacer le precedent quand j'applique une rotation avec la scrollbar1

a tu une idée sur la question:koi:

j'ai utilise le fastrepaint qui lui laisse le fond transparent a la place de repaintcontrol qui lui me met un fond noir
et m'efface l'image de fond (image1)

un peu d'aide:merci:

09/08/2010, 21h28
Arkham46

Citation:

Envoyé par patricktoulon

reste maintenant a effacer le precedent quand j'applique une rotation avec la scrollbar1

un simple Me.Repaint avant le FastRepaint devrait suffire
par contre ça risque de scintiller un peu...
15/08/2010, 19h50
patricktoulon

re

bonjour arkham

oui ca j avais conpris le seul probleme c'est que je peut reevenir dessus un text apres avoir rajouté d'autre textes donc tu comprend bien que la il faut faire apel a une memoire j'ai donc inseré un liste
box transparente qui memorise
le bipmap
le drawtext
la texture
ou la couleur
le rotate
le fond transparent ou non
ect.....

je n'ai trouvé que ce moyen pour le momment

si tu a quelque chose de plus propre je suis preneur

et oui si je fait repaint apres avoir ajouté deux ou trois text seul le dernier en memoire sera redessiné j'ai donc utilisé une listbox qui memorise tout ca
et a la fin je retranscris la list box dans un sheet pour le garder en tant que model

merci de ton aide:merci: