Discussion :

[MarcVB6]

Bonjour,

J'aimerais faire un effet 'stabilo' sur une partie de texte d'un Label ou TextBox.
J'ai pensé à utiliser un label 'stabilo' qui aurait une couleur de fond jaune par exemple et que je pourrais déformer et déplacer sur un autre Label qui n'aurait lui que du texte (ou un TextBox).
Mais, comment rendre la couleur jaune de mon label 'stabilo' semi transparente afin de voir le texte sur le Label texte du dessous ?
L'idéal étant bien évidemment de pouvoir ajuster le niveau de transparence du label 'stabilo' ?

Par avance merci

MarcVB6

[ProgElecT]

Salut

Avec un label cela n'est pas des plus évidant, mais avec un RichTextbox c'est plus facile.

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Option Explicit
 
Private Const LF_FACESIZE = 32
Private Type CHARFORMAT2
    cbSize                              As Integer
    dwMask                              As Long
    dwEffects                           As Long
    yHeight                             As Long
    yOffset                             As Long
    crTextColor                         As Long
    bCharSet                            As Byte
    szFaceName(0 To LF_FACESIZE - 1)    As Byte
 
    wWeight                             As Integer
    sSpacing                            As Integer
    crBackColor                         As Long
    lLCID                               As Long
    dwReserved                          As Long
    sStyle                              As Integer
    bUnderlineType                      As Byte
    bRevAuthor                          As Byte
    bReserved1                          As Byte
End Type
 
Private Declare Function SendMessageA Lib "user32" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'---------------------------------------------------------------------------------------------------------------------------------------
 
Private Sub Form_Load()
RichTextBox1.BackColor = &HFFFFFF
End Sub
 
Public Sub SurligneSelection(TextRichBox As RichTextBox, Optional vbColor As ColorConstants = vbYellow)
    Dim cf As CHARFORMAT2
    Const SCF_SELECTION     As Long = &H1
    Const EM_SETCHARFORMAT  As Long = &H444
    Const CFM_BACKCOLOR     As Long = &H4000000
 
    With cf
        .cbSize = LenB(cf)
        .dwMask = CFM_BACKCOLOR
        .crBackColor = vbColor
    End With
 
    Call SendMessageA(TextRichBox.hWnd, EM_SETCHARFORMAT, SCF_SELECTION, ByVal VarPtr(cf))
End Sub
Private Sub RichTextBox1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton And Shift = vbCtrlMask Then 'Bt. droit + touche Ctrl pour surligner
    SurligneSelection RichTextBox1, vbGreen
End If
If Button = vbLeftButton And Shift = vbAltMask Then 'Bt. droit + touche Alt pour enlever le surlignage
    SurligneSelection RichTextBox1, RichTextBox1.BackColor
End If
End Sub

[MarcVB6]

Merci ProgElect,

S'il existe une solution pour gérer la transparence d'un Label, je suis preneur.
J'aimerais aussi pouvoir faire cet effet sur une image dans un PBox car j'aurai des textes dans des JPG ou BMP.

Merci
MarcVB6

[ProgElecT]

Re

S'il existe une solution pour gérer la transparence d'un Label, je suis preneur.

J'ai cette exemple de code qui n'est pas de moi, mais je ne l'ai pas retrouvé sur DVP.

[MarcVB6]

Merci ProgElect,

Ca fonctionne. Il me reste à adapter cela pour le déplacement.
C'est un peu énorme pour le simple effet recherché.
Je mettrai un Résolu dans quelques temps. Peut-être quelqu'un aura t-il quelque chose de plus simple ...
Merci encore et bonne journée.
MarcVB6

[ProgElecT]

Re

Plus simple, pour un Label
Sur le Form, 1 PictureBox avec à l'intérieur, 1 Shape et 1 Label

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Option Explicit
 
Private Sub Form_Load()
Label1.BorderStyle = 0: Label1.BackStyle = 0: Label1.AutoSize = True
Label1.Caption = "Démonstration d'un effet de stabilot sur un Label"
Label1.FontSize = 14: Label1.FontBold = True
Label1.Move 0, 0
 
Shape1.BackColor = &HC0FFC0: Shape1.BackStyle = 1: Shape1.BorderStyle = 0: Shape1.Shape = 0
Shape1.Move 0, 0, 0, Label1.Height
Shape1.ZOrder 1
 
Picture1.Appearance = 0: Picture1.BorderStyle = 0: Picture1.BackColor = &HFFFFFF
Picture1.Move 120, 120, Label1.Width, Label1.Height
 
Me.Width = ((Picture1.Left + 120) * 2) + Picture1.Width
Me.Height = Picture1.Top + Picture1.Height + Picture1.Left + 540
Me.BackColor = &H808080
End Sub
 
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton And Shift = vbCtrlMask Then 'Bt. droit + touche Ctrl pour surligner
    Shape1.Left = X: Shape1.Width = 0
    Else
    Shape1.Width = 0
End If
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton And Shift = vbCtrlMask Then 'Bt. droit + touche Ctrl pour surligner
    If X > Shape1.Left Then
        Shape1.Width = X - Shape1.Left
        Else
        Dim TheWidth As Integer
        TheWidth = (Shape1.Left - X) + Shape1.Width
        Shape1.Left = X: Shape1.Width = TheWidth
    End If
End If
End Sub

[unparia]

Bonjour

Peut-être quelqu'un aura t-il quelque chose de plus simple ...

Oui : ne pas réinventer la roue et se servir d'une Richtextbox

[MarcVB6]

Bonjour ProgElect,

C'est sioux. Merci.
Je connaissais la propriété d'un label transparent ; Je m'en veux de ne pas y avoir penser.
Voilà l'étape de l'effet Stabilo sur les Labels résolu.

Reste le problème sur les JPEG.
J'ai rebondi sur ton idée en créant un label avec une police type Arial gras qui n'a que des points de couleur (police 4 ou 6) et qui se met sur une JPEG.
Le rendu n'est pas terrible, beaucoup moins bien que sur un label... Le stabilo donne l'impression d'être en fin de vie et très très sec ....
Mais je vais essayer d'affiner.

Merci encore.
Bon week end
Marc VB6

[MarcVB6]

Bonjour Unparia,

Oui mais ... Comment faire sur une JPEG ?

Sur les Labels:
Je trouve la réponse de Progelect avec le Label transparent beaucoup plus simple et rusée que d'utiliser un RichtextBox.
Pas besoin de passer le contenu du Label dedans.
On peut aussi faire du stabilo vertical.
On peut le placer n'importe où.
On peut en faire autant qu'on en veut avec des couleurs différentes.
De plus, son code est aussi pensé pour les gauchers ...
C'est vraiment smart.

MarcVB6