Probleme police et picture box

Question

Bonjour,
Quand j'ecris dans un picture box a l'aide de la methode picturebox.print , je n'arrive pas regle la taille ma police en dessous de 4,il y at'il une soluce

Renfield · Answer

en dssous de 4 ? ca va finir par devenir illisible ^^

serialv2 · Answer

Salut,
J'ai essayer de faire fontsize=4 est ca  fait des lettres comme  sce que j'ecris!!!
JE voudrais faire plus petit
merci

serialv2 · Answer

je pense que l'orsque que je change la taille de la police dans le code ca ne fait rien

serialv2 · Answer

aurai tu une solution??

Renfield · Answer

t'aurais un peu plus de code a nous soumettre ?

serialv2 · Answer

with picture1
   .forecolor=vbblack
   .fontsize=2
   .currenty=30
  .currentx= tpm+4 'tpm est une variable car j'ecris dans des tableaux
   picture2.print "S"
    .currenty=41
   .currentx=tpm+4
  picture.print  "A"
C'est un bout de code pour ecrire Samedi a la vertical dans un cadre que j'ai dessine dans une autre boucle
MErci a toi

Renfield · Answer

pourquoi dessiner ton texte ainsi ?

tu peux le dessiner verticalement (faut tourner la tête pour le lire)


Option Explicit

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 As String * 32
End Type

Private Declare Function GetObject Lib "gdi32.dll" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, ByRef lpObject As Any) As Long
Private Declare Function CreateFontIndirect Lib "gdi32.dll" Alias "CreateFontIndirectA" (ByRef lpLogFont As LOGFONT) As Long
Private Declare Function SelectObject Lib "gdi32.dll" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32.dll" (ByVal hObject As Long) As Long
Private Declare Function TextOut Lib "gdi32.dll" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

Private Sub Command1_Click()
Dim oFont As IFont
Dim hOldFont As Long
Dim tLF As LOGFONT
    Set oFont = Picture1.Font
    
    GetObject oFont.hFont, Len(tLF), tLF
    tLF.lfFaceName = "Arial"
    tLF.lfEscapement = 900 '# 90 degrés
    
    hOldFont = SelectObject(Picture1.hdc, CreateFontIndirect(tLF))

    TextOut Picture1.hdc, 20, 60, "Samedi", 6
    
    DeleteObject SelectObject(Picture1.hdc, hOldFont)
    
    TextOut Picture1.hdc, 20, 65, "Dimanche", 8
End Sub

cnt · Answer

Salut 
Il te faut utiliser une police vectorielle ou "True Type"
du genre "Arial", "Comic" etc...

CNTJC

cnt · Answer

Bonjour Renfield,
Je n'avais pas vu ta version que j'utilise aussi et qui n'est utilisable qu'en police True Type.
Comme tu emplois "Arial", je ne t'apprends rien à ce sujet.
Salut

CNTJC

Renfield · Answer

quel soucis a utiliser une true-type ? 

si c'est du au fait que ton user peut choisir la posice de son choix...
pas de souci; dans la boite de dialogue de selection des polices, on peut le contraindre aisément

serialv2 · Answer

SALUT,
j'ai encore un  petit soucis avec mon apercu avant impression,
voila qd je le lance une premiere fois tout se passe impeccable,par contre si je le ferme sans fermer le l'appli et que je relance l'apercu la picturebox ne se dessine pas ,j'ai une feuille blanche,comment puis je proceder???
merci

Probleme police et picture box

11 réponses

Votre réponse

Discussions similaires