- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- 'Code trouver dans le tutoriaux
-
- Form1.FontName = "Arial"
- Form1.FontSize = 16
- Form1.FontBold = False
- Form1.FontItalic = False
-
- BackBuffer.SetFont Form1.Font
-
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
-
-
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- 'Mon code
-
-
- 'Fonction qui renvoi une police du type IFONT
- Public Function GetPolice(ByVal Nom As String, ByVal Taille As Currency, Optional ByVal Gras As Boolean, Optional ByVal Italique As Boolean) As IFont
-
- Set GetPolice = New StdFont
-
- GetPolice.Name = Nom
- GetPolice.Size = Taille
- GetPolice.Bold = Gras
- GetPolice.Italic = Italique
-
- End Function
-
-
- 'Voila pour l'utiliser rien de plus simple (les deux dernier paramétré sont optionel
- 'gras et italique sont à faux par défaut)
-
- BackBuffer.SetFont GetPolice("Arial",16)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Code trouver dans le tutoriaux
Form1.FontName = "Arial"
Form1.FontSize = 16
Form1.FontBold = False
Form1.FontItalic = False
BackBuffer.SetFont Form1.Font
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Mon code
'Fonction qui renvoi une police du type IFONT
Public Function GetPolice(ByVal Nom As String, ByVal Taille As Currency, Optional ByVal Gras As Boolean, Optional ByVal Italique As Boolean) As IFont
Set GetPolice = New StdFont
GetPolice.Name = Nom
GetPolice.Size = Taille
GetPolice.Bold = Gras
GetPolice.Italic = Italique
End Function
'Voila pour l'utiliser rien de plus simple (les deux dernier paramétré sont optionel
'gras et italique sont à faux par défaut)
BackBuffer.SetFont GetPolice("Arial",16)