En complément, la fiche suivante de la kb propose une autre résolution: http://support.microsoft.com/kb/175535/en-us
-- FrançoisPicalausa
"michael" wrote:
Bonjour, j'écris sur des picture box du text à l'aide de la commande .print, y a t'il moyen d'ecrire du texte verticalement???? merci d'avance
michael
Je ne veux pas écrire à l'aide de label pour surcharger, c'est un graphique que j'ai dessiner et je doit pouvoir ecrire en verticale pour certaines lignes dessinées... l'etiquette d'un axe par exemple... sur l'instruction form1.picture1.print "bonjour" rien est prévu pour l'afficher en verticale sur la picture box?? merci d'avance
"François Picalausa" wrote:
Hello,
En complément, la fiche suivante de la kb propose une autre résolution: http://support.microsoft.com/kb/175535/en-us
-- FrançoisPicalausa
"michael" wrote:
> Bonjour, j'écris sur des picture box du text à l'aide de la commande .print, > y a t'il moyen d'ecrire du texte verticalement???? > merci d'avance
Je ne veux pas écrire à l'aide de label pour surcharger, c'est un graphique
que j'ai dessiner et je doit pouvoir ecrire en verticale pour certaines
lignes dessinées...
l'etiquette d'un axe par exemple...
sur l'instruction form1.picture1.print "bonjour" rien est prévu pour
l'afficher en verticale sur la picture box??
merci d'avance
"François Picalausa" wrote:
Hello,
En complément, la fiche suivante de la kb propose une autre résolution:
http://support.microsoft.com/kb/175535/en-us
--
FrançoisPicalausa
"michael" wrote:
> Bonjour, j'écris sur des picture box du text à l'aide de la commande .print,
> y a t'il moyen d'ecrire du texte verticalement????
> merci d'avance
Je ne veux pas écrire à l'aide de label pour surcharger, c'est un graphique que j'ai dessiner et je doit pouvoir ecrire en verticale pour certaines lignes dessinées... l'etiquette d'un axe par exemple... sur l'instruction form1.picture1.print "bonjour" rien est prévu pour l'afficher en verticale sur la picture box?? merci d'avance
"François Picalausa" wrote:
Hello,
En complément, la fiche suivante de la kb propose une autre résolution: http://support.microsoft.com/kb/175535/en-us
-- FrançoisPicalausa
"michael" wrote:
> Bonjour, j'écris sur des picture box du text à l'aide de la commande .print, > y a t'il moyen d'ecrire du texte verticalement???? > merci d'avance
ng
Salut,
Non pas sans passer par l'API Windows :
'In general section Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long Private Const LF_FACESIZE = 32 Private Type LOGFONT lfHeight As Long lfWidth As Long lfEscapement As Long lfOrientation As Long lfWeight As Long lfItalic As Byte lfUnderline As Byte lfStrikeOut As Byte lfCharSet As Byte lfOutPrecision As Byte lfClipPrecision As Byte lfQuality As Byte lfPitchAndFamily As Byte lfFaceName(LF_FACESIZE) As Byte End Type 'In form Private Sub Form_Load() 'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail:
Dim RotateMe As LOGFONT 'Set graphic-mode to 'persistent graphic' Me.AutoRedraw = True 'Rotate degrees Deg = 270 'Size (in points) Size = 20 'Set the rotation degree RotateMe.lfEscapement = Deg * 10 'Set the height of the font RotateMe.lfHeight = (Size * -20) / Screen.TwipsPerPixelY 'Create the font rFont = CreateFontIndirect(RotateMe) 'Select the font n the Form's device context Curent = SelectObject(Me.hdc, rFont) 'Print some text ... Me.CurrentX = 500 Me.CurrentY = 200 Me.Print ":-)" End Sub
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
michael wrote:
Je ne veux pas écrire à l'aide de label pour surcharger, c'est un graphique que j'ai dessiner et je doit pouvoir ecrire en verticale pour certaines lignes dessinées... l'etiquette d'un axe par exemple... sur l'instruction form1.picture1.print "bonjour" rien est prévu pour l'afficher en verticale sur la picture box?? merci d'avance
"François Picalausa" wrote:
Hello,
En complément, la fiche suivante de la kb propose une autre résolution: http://support.microsoft.com/kb/175535/en-us
-- FrançoisPicalausa
"michael" wrote:
Bonjour, j'écris sur des picture box du text à l'aide de la commande .print, y a t'il moyen d'ecrire du texte verticalement???? merci d'avance
Salut,
Non pas sans passer par l'API Windows :
'In general section
Private Declare Function CreateFontIndirect Lib "gdi32" Alias
"CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal
hObject As Long) As Long
Private Const LF_FACESIZE = 32
Private Type LOGFONT
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As Byte
lfUnderline As Byte
lfStrikeOut As Byte
lfCharSet As Byte
lfOutPrecision As Byte
lfClipPrecision As Byte
lfQuality As Byte
lfPitchAndFamily As Byte
lfFaceName(LF_FACESIZE) As Byte
End Type
'In form
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim RotateMe As LOGFONT
'Set graphic-mode to 'persistent graphic'
Me.AutoRedraw = True
'Rotate degrees
Deg = 270
'Size (in points)
Size = 20
'Set the rotation degree
RotateMe.lfEscapement = Deg * 10
'Set the height of the font
RotateMe.lfHeight = (Size * -20) / Screen.TwipsPerPixelY
'Create the font
rFont = CreateFontIndirect(RotateMe)
'Select the font n the Form's device context
Curent = SelectObject(Me.hdc, rFont)
'Print some text ...
Me.CurrentX = 500
Me.CurrentY = 200
Me.Print ":-)"
End Sub
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
michael wrote:
Je ne veux pas écrire à l'aide de label pour surcharger, c'est un
graphique que j'ai dessiner et je doit pouvoir ecrire en verticale
pour certaines lignes dessinées...
l'etiquette d'un axe par exemple...
sur l'instruction form1.picture1.print "bonjour" rien est prévu pour
l'afficher en verticale sur la picture box??
merci d'avance
"François Picalausa" wrote:
Hello,
En complément, la fiche suivante de la kb propose une autre
résolution: http://support.microsoft.com/kb/175535/en-us
--
FrançoisPicalausa
"michael" wrote:
Bonjour, j'écris sur des picture box du text à l'aide de la
commande .print, y a t'il moyen d'ecrire du texte verticalement????
merci d'avance
'In general section Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long Private Const LF_FACESIZE = 32 Private Type LOGFONT lfHeight As Long lfWidth As Long lfEscapement As Long lfOrientation As Long lfWeight As Long lfItalic As Byte lfUnderline As Byte lfStrikeOut As Byte lfCharSet As Byte lfOutPrecision As Byte lfClipPrecision As Byte lfQuality As Byte lfPitchAndFamily As Byte lfFaceName(LF_FACESIZE) As Byte End Type 'In form Private Sub Form_Load() 'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail:
Dim RotateMe As LOGFONT 'Set graphic-mode to 'persistent graphic' Me.AutoRedraw = True 'Rotate degrees Deg = 270 'Size (in points) Size = 20 'Set the rotation degree RotateMe.lfEscapement = Deg * 10 'Set the height of the font RotateMe.lfHeight = (Size * -20) / Screen.TwipsPerPixelY 'Create the font rFont = CreateFontIndirect(RotateMe) 'Select the font n the Form's device context Curent = SelectObject(Me.hdc, rFont) 'Print some text ... Me.CurrentX = 500 Me.CurrentY = 200 Me.Print ":-)" End Sub
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
michael wrote:
Je ne veux pas écrire à l'aide de label pour surcharger, c'est un graphique que j'ai dessiner et je doit pouvoir ecrire en verticale pour certaines lignes dessinées... l'etiquette d'un axe par exemple... sur l'instruction form1.picture1.print "bonjour" rien est prévu pour l'afficher en verticale sur la picture box?? merci d'avance
"François Picalausa" wrote:
Hello,
En complément, la fiche suivante de la kb propose une autre résolution: http://support.microsoft.com/kb/175535/en-us
-- FrançoisPicalausa
"michael" wrote:
Bonjour, j'écris sur des picture box du text à l'aide de la commande .print, y a t'il moyen d'ecrire du texte verticalement???? merci d'avance
Guy DETIENNE
Une simple recherche dans Google t'apporterait très certainement des réponses...
Guy
"michael" a écrit dans le message de news:
Je ne veux pas écrire à l'aide de label pour surcharger, c'est un
graphique
que j'ai dessiner et je doit pouvoir ecrire en verticale pour certaines lignes dessinées... l'etiquette d'un axe par exemple... sur l'instruction form1.picture1.print "bonjour" rien est prévu pour l'afficher en verticale sur la picture box?? merci d'avance
"François Picalausa" wrote:
> Hello, > > En complément, la fiche suivante de la kb propose une autre résolution: > http://support.microsoft.com/kb/175535/en-us > > -- > FrançoisPicalausa > > "michael" wrote: > > > Bonjour, j'écris sur des picture box du text à l'aide de la commande
.print,
> > y a t'il moyen d'ecrire du texte verticalement???? > > merci d'avance
Une simple recherche dans Google t'apporterait très certainement des
réponses...
Guy
"michael" <michael@discussions.microsoft.com> a écrit dans le message de
news:533AEC10-9BAE-450C-A7B9-2FF3EE3F831F@microsoft.com...
Je ne veux pas écrire à l'aide de label pour surcharger, c'est un
graphique
que j'ai dessiner et je doit pouvoir ecrire en verticale pour certaines
lignes dessinées...
l'etiquette d'un axe par exemple...
sur l'instruction form1.picture1.print "bonjour" rien est prévu pour
l'afficher en verticale sur la picture box??
merci d'avance
"François Picalausa" wrote:
> Hello,
>
> En complément, la fiche suivante de la kb propose une autre résolution:
> http://support.microsoft.com/kb/175535/en-us
>
> --
> FrançoisPicalausa
>
> "michael" wrote:
>
> > Bonjour, j'écris sur des picture box du text à l'aide de la commande
.print,
> > y a t'il moyen d'ecrire du texte verticalement????
> > merci d'avance
Une simple recherche dans Google t'apporterait très certainement des réponses...
Guy
"michael" a écrit dans le message de news:
Je ne veux pas écrire à l'aide de label pour surcharger, c'est un
graphique
que j'ai dessiner et je doit pouvoir ecrire en verticale pour certaines lignes dessinées... l'etiquette d'un axe par exemple... sur l'instruction form1.picture1.print "bonjour" rien est prévu pour l'afficher en verticale sur la picture box?? merci d'avance
"François Picalausa" wrote:
> Hello, > > En complément, la fiche suivante de la kb propose une autre résolution: > http://support.microsoft.com/kb/175535/en-us > > -- > FrançoisPicalausa > > "michael" wrote: > > > Bonjour, j'écris sur des picture box du text à l'aide de la commande
.print,
> > y a t'il moyen d'ecrire du texte verticalement???? > > merci d'avance
