Bonjour,
Peut être en écrivant avec Print ???
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Eric F." a écrit dans le message de news:
| Bonjour,
| J'ai une application VB6 qui fait défiler un par un des caractères d'une
| police donnée sur un objet "Label". Le label a sa propriété Autosize
validée
| pour que le fond coloré de ce label encadre parfaitement le caractère
| affiché.
| Un problème apparaît sur certains caractères de police Italic: les
| dimensions du label sont plus petites que la largeur réelle du caractère
!!
| Comment puis-je déterminer la largeur réelle du caractère à afficher afin
de
| faire correspondre exactement les dimensions du "Label" ?
| Merci d'avance pour votre aide.
| Eric F.
Bonjour,
Peut être en écrivant avec Print ???
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Eric F." <EricF@discussions.microsoft.com> a écrit dans le message de news:
24500559-E603-48F2-9587-71BC5D2C0472@microsoft.com...
| Bonjour,
| J'ai une application VB6 qui fait défiler un par un des caractères d'une
| police donnée sur un objet "Label". Le label a sa propriété Autosize
validée
| pour que le fond coloré de ce label encadre parfaitement le caractère
| affiché.
| Un problème apparaît sur certains caractères de police Italic: les
| dimensions du label sont plus petites que la largeur réelle du caractère
!!
| Comment puis-je déterminer la largeur réelle du caractère à afficher afin
de
| faire correspondre exactement les dimensions du "Label" ?
| Merci d'avance pour votre aide.
| Eric F.
Bonjour,
Peut être en écrivant avec Print ???
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Eric F." a écrit dans le message de news:
| Bonjour,
| J'ai une application VB6 qui fait défiler un par un des caractères d'une
| police donnée sur un objet "Label". Le label a sa propriété Autosize
validée
| pour que le fond coloré de ce label encadre parfaitement le caractère
| affiché.
| Un problème apparaît sur certains caractères de police Italic: les
| dimensions du label sont plus petites que la largeur réelle du caractère
!!
| Comment puis-je déterminer la largeur réelle du caractère à afficher afin
de
| faire correspondre exactement les dimensions du "Label" ?
| Merci d'avance pour votre aide.
| Eric F.
Bonjour,
J'ai une application VB6 qui fait défiler un par un des caractères d'une
police donnée sur un objet "Label". Le label a sa propriété Autosize validée
pour que le fond coloré de ce label encadre parfaitement le caractère
affiché.
Un problème apparaît sur certains caractères de police Italic: les
dimensions du label sont plus petites que la largeur réelle du caractère !!
Comment puis-je déterminer la largeur réelle du caractère à afficher afin de
faire correspondre exactement les dimensions du "Label" ?
Merci d'avance pour votre aide.
Eric F.
Bonjour,
J'ai une application VB6 qui fait défiler un par un des caractères d'une
police donnée sur un objet "Label". Le label a sa propriété Autosize validée
pour que le fond coloré de ce label encadre parfaitement le caractère
affiché.
Un problème apparaît sur certains caractères de police Italic: les
dimensions du label sont plus petites que la largeur réelle du caractère !!
Comment puis-je déterminer la largeur réelle du caractère à afficher afin de
faire correspondre exactement les dimensions du "Label" ?
Merci d'avance pour votre aide.
Eric F.
Bonjour,
J'ai une application VB6 qui fait défiler un par un des caractères d'une
police donnée sur un objet "Label". Le label a sa propriété Autosize validée
pour que le fond coloré de ce label encadre parfaitement le caractère
affiché.
Un problème apparaît sur certains caractères de police Italic: les
dimensions du label sont plus petites que la largeur réelle du caractère !!
Comment puis-je déterminer la largeur réelle du caractère à afficher afin de
faire correspondre exactement les dimensions du "Label" ?
Merci d'avance pour votre aide.
Eric F.
Bonjour Jacques :o)
Ben moi je viens d'essayer, avec l'Italique ça marche très bien, enfin
la police que j'ai prise, vois ce code :
' TestLabel : test texte label form1 : OBJETS = 1 = LABEL1
Sub Form_Activate()
Form1.AutoRedraw = True
Form1.ScaleMode = vbPixels
FontName = "courier new"
FontSize = 72
FontItalic = True
Form1.ForeColor = &HFF& ' rouge
CurrentX = 234
CurrentY = 99
Print "Salut"
'
Label1.Alignment = 2 ' center
Label1.AutoSize = True
Label1.Appearance = 0 ' flat
Label1.BorderStyle = 0 ' non
Label1.FontName = "courier new"
Label1.FontSize = 72
Label1.FontItalic = True
Label1.ForeColor = &HFF& ' rouge
Label1.Left = 30
Label1.Top = 250
Label1.Caption = "Bonjour"
End Sub
Bonjour Jacques :o)
Ben moi je viens d'essayer, avec l'Italique ça marche très bien, enfin
la police que j'ai prise, vois ce code :
' TestLabel : test texte label form1 : OBJETS = 1 = LABEL1
Sub Form_Activate()
Form1.AutoRedraw = True
Form1.ScaleMode = vbPixels
FontName = "courier new"
FontSize = 72
FontItalic = True
Form1.ForeColor = &HFF& ' rouge
CurrentX = 234
CurrentY = 99
Print "Salut"
'
Label1.Alignment = 2 ' center
Label1.AutoSize = True
Label1.Appearance = 0 ' flat
Label1.BorderStyle = 0 ' non
Label1.FontName = "courier new"
Label1.FontSize = 72
Label1.FontItalic = True
Label1.ForeColor = &HFF& ' rouge
Label1.Left = 30
Label1.Top = 250
Label1.Caption = "Bonjour"
End Sub
Bonjour Jacques :o)
Ben moi je viens d'essayer, avec l'Italique ça marche très bien, enfin
la police que j'ai prise, vois ce code :
' TestLabel : test texte label form1 : OBJETS = 1 = LABEL1
Sub Form_Activate()
Form1.AutoRedraw = True
Form1.ScaleMode = vbPixels
FontName = "courier new"
FontSize = 72
FontItalic = True
Form1.ForeColor = &HFF& ' rouge
CurrentX = 234
CurrentY = 99
Print "Salut"
'
Label1.Alignment = 2 ' center
Label1.AutoSize = True
Label1.Appearance = 0 ' flat
Label1.BorderStyle = 0 ' non
Label1.FontName = "courier new"
Label1.FontSize = 72
Label1.FontItalic = True
Label1.ForeColor = &HFF& ' rouge
Label1.Left = 30
Label1.Top = 250
Label1.Caption = "Bonjour"
End Sub
Bonjour LE TROLL,
LE TROLL a écrit :
> Bonjour Jacques :o)
>
> Ben moi je viens d'essayer, avec l'Italique ça marche très bien, enfin
> la police que j'ai prise, vois ce code :
>
> ' TestLabel : test texte label form1 : OBJETS = 1 = LABEL1
> Sub Form_Activate()
> Form1.AutoRedraw = True
> Form1.ScaleMode = vbPixels
> FontName = "courier new"
> FontSize = 72
> FontItalic = True
> Form1.ForeColor = &HFF& ' rouge
> CurrentX = 234
> CurrentY = 99
> Print "Salut"
> '
> Label1.Alignment = 2 ' center
> Label1.AutoSize = True
> Label1.Appearance = 0 ' flat
> Label1.BorderStyle = 0 ' non
> Label1.FontName = "courier new"
> Label1.FontSize = 72
> Label1.FontItalic = True
> Label1.ForeColor = &HFF& ' rouge
> Label1.Left = 30
> Label1.Top = 250
> Label1.Caption = "Bonjour"
> End Sub
>
Essaie avec :
Label1.Alignment = 2 ' center
Label1.AutoSize = True
Label1.Appearance = 0 ' flat
Label1.BorderStyle = 0 ' non
Label1.FontName = "Symbol" '"courier new"
Label1.FontSize = 72
Label1.FontItalic = True
Label1.ForeColor = &HFF& ' rouge
Label1.Left = 30
Label1.Top = 250
Label1.Caption = Chr$(166) '"Bonjour"
cela affiche le symbole monétaire du Florin, c'est ce que j'ai compris
du message d'Eric F. Tu verras qu'il y a bien un problème :-)
--
Cordialement,
Jacques.
Bonjour LE TROLL,
LE TROLL a écrit :
> Bonjour Jacques :o)
>
> Ben moi je viens d'essayer, avec l'Italique ça marche très bien, enfin
> la police que j'ai prise, vois ce code :
>
> ' TestLabel : test texte label form1 : OBJETS = 1 = LABEL1
> Sub Form_Activate()
> Form1.AutoRedraw = True
> Form1.ScaleMode = vbPixels
> FontName = "courier new"
> FontSize = 72
> FontItalic = True
> Form1.ForeColor = &HFF& ' rouge
> CurrentX = 234
> CurrentY = 99
> Print "Salut"
> '
> Label1.Alignment = 2 ' center
> Label1.AutoSize = True
> Label1.Appearance = 0 ' flat
> Label1.BorderStyle = 0 ' non
> Label1.FontName = "courier new"
> Label1.FontSize = 72
> Label1.FontItalic = True
> Label1.ForeColor = &HFF& ' rouge
> Label1.Left = 30
> Label1.Top = 250
> Label1.Caption = "Bonjour"
> End Sub
>
Essaie avec :
Label1.Alignment = 2 ' center
Label1.AutoSize = True
Label1.Appearance = 0 ' flat
Label1.BorderStyle = 0 ' non
Label1.FontName = "Symbol" '"courier new"
Label1.FontSize = 72
Label1.FontItalic = True
Label1.ForeColor = &HFF& ' rouge
Label1.Left = 30
Label1.Top = 250
Label1.Caption = Chr$(166) '"Bonjour"
cela affiche le symbole monétaire du Florin, c'est ce que j'ai compris
du message d'Eric F. Tu verras qu'il y a bien un problème :-)
--
Cordialement,
Jacques.
Bonjour LE TROLL,
LE TROLL a écrit :
> Bonjour Jacques :o)
>
> Ben moi je viens d'essayer, avec l'Italique ça marche très bien, enfin
> la police que j'ai prise, vois ce code :
>
> ' TestLabel : test texte label form1 : OBJETS = 1 = LABEL1
> Sub Form_Activate()
> Form1.AutoRedraw = True
> Form1.ScaleMode = vbPixels
> FontName = "courier new"
> FontSize = 72
> FontItalic = True
> Form1.ForeColor = &HFF& ' rouge
> CurrentX = 234
> CurrentY = 99
> Print "Salut"
> '
> Label1.Alignment = 2 ' center
> Label1.AutoSize = True
> Label1.Appearance = 0 ' flat
> Label1.BorderStyle = 0 ' non
> Label1.FontName = "courier new"
> Label1.FontSize = 72
> Label1.FontItalic = True
> Label1.ForeColor = &HFF& ' rouge
> Label1.Left = 30
> Label1.Top = 250
> Label1.Caption = "Bonjour"
> End Sub
>
Essaie avec :
Label1.Alignment = 2 ' center
Label1.AutoSize = True
Label1.Appearance = 0 ' flat
Label1.BorderStyle = 0 ' non
Label1.FontName = "Symbol" '"courier new"
Label1.FontSize = 72
Label1.FontItalic = True
Label1.ForeColor = &HFF& ' rouge
Label1.Left = 30
Label1.Top = 250
Label1.Caption = Chr$(166) '"Bonjour"
cela affiche le symbole monétaire du Florin, c'est ce que j'ai compris
du message d'Eric F. Tu verras qu'il y a bien un problème :-)
--
Cordialement,
Jacques.
Je croyais que "florin" était une police...
Ben, si on fait ça, ça va :
Label1.FontName = "Symbol"
Label1.Caption = " " & Chr(166) & " "
Je croyais que "florin" était une police...
Ben, si on fait ça, ça va :
Label1.FontName = "Symbol"
Label1.Caption = " " & Chr(166) & " "
Je croyais que "florin" était une police...
Ben, si on fait ça, ça va :
Label1.FontName = "Symbol"
Label1.Caption = " " & Chr(166) & " "
LE TROLL a écrit :
> Je croyais que "florin" était une police...
Y'en a peut être ... Sinon :
<http://fr.wikipedia.org/wiki/Florin>
>
> Ben, si on fait ça, ça va :
>
[...]
> Label1.FontName = "Symbol"
> Label1.Caption = " " & Chr(166) & " "
ça peut être une solution, mais qui ne répond pas à la demande
application VB6 qui fait défiler UN par UN
là tu y va trois, par trois ;-)
--
Cordialement,
Jacques.
LE TROLL a écrit :
> Je croyais que "florin" était une police...
Y'en a peut être ... Sinon :
<http://fr.wikipedia.org/wiki/Florin>
>
> Ben, si on fait ça, ça va :
>
[...]
> Label1.FontName = "Symbol"
> Label1.Caption = " " & Chr(166) & " "
ça peut être une solution, mais qui ne répond pas à la demande
application VB6 qui fait défiler UN par UN
là tu y va trois, par trois ;-)
--
Cordialement,
Jacques.
LE TROLL a écrit :
> Je croyais que "florin" était une police...
Y'en a peut être ... Sinon :
<http://fr.wikipedia.org/wiki/Florin>
>
> Ben, si on fait ça, ça va :
>
[...]
> Label1.FontName = "Symbol"
> Label1.Caption = " " & Chr(166) & " "
ça peut être une solution, mais qui ne répond pas à la demande
application VB6 qui fait défiler UN par UN
là tu y va trois, par trois ;-)
--
Cordialement,
Jacques.