Ecrire avec l'API windowsRésolu

Question

Est ce que quelqun sait comment on fait apres avoir ecrit un texte avec l'API windows
pour savoir la taille en pixel du texte
je m'explique j'utilise TextOut  toto.hdc,10,10,"Salut ",len("Salut ")
et je voudrais positionnez sur la meme ligne albert
sa donnerai la phrase salut albert
et ce independament de la police de la taille,etc
et surtout sans chevauchement

merci c'est urgent

cs_Infern0 · Accepted Answer

As tu essayé TextWidth("Salut") / 15 ?

cs_DARKSIDIOUS · Answer

N'utilise pas TextOut mais DrawText qui te permet bien plus de choses, telles que l'alignement par exemple, qui te permet de calculer le rectangle englobant du texte (avec gestion de la font bien entendu !), etc.

Renfield · Answer

Infern0, TRES mauvais, ce /15

utilises Screen.TwipsPerPixelX

sur un ecran en 16/9 tu aurait certainement des soucis, sans cela

Renfield
Admin CodeS-SourceS- MVP Visual Basic

PADYVEN · Answer

Merci beaucoup
quand a drawtext pourquoi ce casser le cul quand ya plus simple

B0mbJacK · Answer

Lu, 
j'ai fait un programme y'a tres longtemps (création etiquette[codebarre/logo/texte/image...ect])
l'api TexTout est tres sympa avec CreateFont je trouve

exemple utilisant une picturebox
pour la taille, utilise cette api 
Public Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" (ByVal hdc As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As POINTAPI) As Long

Private Type POINTAPI
    X As Long
    Y As Long
End Type
dim Txt as String
Public TextSize As POINTAPI
Txt = "TextOutExemple"
With TaPicureBox
..(tu crée ta police) ..createfont 
..tu place la police à ta pic ..selectobject(.hdc, createfont)
GetTextExtentPoint32 .hdc, Txt, Len(Txt), TextSize
'-------------------------------------------------
.Width = TextSize.X * Screen.TwipsPerPixelX
.Height = TextSize.Y * Screen.TwipsPerPixelY
End With

Ecrire avec l'API windows

5 réponses

Votre réponse

Discussions similaires