VB.NET: Comment composer et d'appliquer une police de l'étiquette lors de l'exécution?

Je suis le développement d'une Application Windows Forms dans Visual Basic .NET avec Visual Studio 2008.

Je suis en train de composer les polices de caractères (nom de Famille, la taille de la police, et les styles) au moment de l'exécution, basé sur les préférences de l'utilisateur, et de les appliquer à des étiquettes.

Pour le bien de la fois plus simple de l'interface utilisateur, et la compatibilité entre plus d'une machine nécessitant d'utiliser la même police, je vais PAS utiliser le InstalledFontCollection, mais un ensemble de boutons qui vont mettre quelques polices sélectionnées, que je sais être présent dans toutes les machines (polices comme Verdana).

Donc, je dois faire un Public Sub sur un Module qui permettra de créer des polices, mais je ne sais pas comment code. Il y a aussi quatre Cases à cocher définir les styles Gras, Italique, souligné et Barré.

Comment dois-je code? Le SomeLabel.La police.Gras propriété est en lecture seule, et il semble y avoir un problème lors de la conversion d'une chaîne comme "Times New Roman" une FontFamily type. (Il a juste dit qu'il ne pouvait pas le faire)

Comme sur

Dim NewFontFamily As FontFamily = "Times New Roman"

Merci d'avance.

OriginalL'auteur Camilo Martin | 2009-08-29

  1. 9

    Cela devrait résoudre votre police en question:

    Label1.Font = New Drawing.Font("Times New Roman", _
                               16,  _
                               FontStyle.Bold or FontStyle.Italic)

    La documentation MSDN sur la propriété de Police ici

    Une mise en œuvre possible pour la fonction qui crée cette police pourrait ressembler à ceci:

    Public Function CreateFont(ByVal fontName As String, _
                           ByVal fontSize As Integer, _
                           ByVal isBold As Boolean, _
                           ByVal isItalic As Boolean, _
                           ByVal isStrikeout As Boolean) As Drawing.Font

    Dim styles As FontStyle = FontStyle.Regular

    If (isBold) Then
        styles = styles Or FontStyle.Bold
    End If

    If (isItalic) Then
        styles = styles Or FontStyle.Italic
    End If

    If (isStrikeout) Then
        styles = styles Or FontStyle.Strikeout
    End If

    Dim newFont As New Drawing.Font(fontName, fontSize, styles)
    Return newFont

End Function

    Polices sont immuables, ce qui signifie que, une fois qu'ils sont créés, ils ne peuvent pas être mis à jour. Par conséquent, toutes les propriétés en lecture seule que vous avez remarqué.

    Merci! =) Il a résolu mon problème!
    Et juste au cas où il peut aider les autres, ce que j'ai fait a été d'utiliser les informations de la précédente de la police pour faire la suivante, sauf pour la valeur que j'ai voulu changé. À mon avis, il aurait été plus facile si VB.NET juste fait tout le code répétitif quand je demande à une propriété unique d'être modifié, mais il est assez facile déjà j'ai donc préférable de ne pas se plaindre! =P

    OriginalL'auteur Philip Fourie