BITMAP ET BRUSHES

'   on importe les classes de dessins sur texte
Imports System.Drawing.Text

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Code généré par le Concepteur Windows Form "
#End Region
    '   on doit dénifir un objet de type graphic pour pouvoir dessiner et écrire sur la form
    Dim G As Graphics
    '   on déclare un bitmap qui recevra le bitmap de texturage
    Dim bitmap As bitmap
    '   on déclare une brosse de type TextureBrush
    Dim brush As TextureBrush

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' on définit un tableau qui prendra les noms des fonts et un objet de type fontfamily pour lister les polices de la bécane
        Dim FontList As New Collections.ArrayList(10)
        Dim Fonts As FontFamily
        '   pour chaque police de l'objet de type "FontFamily", on ajoute le nom dans le tableau de police
        For Each Fonts In FontFamily.Families
            FontList.Add(Fonts.Name)
        Next

        ' on crée l'objet Graphic déclaré plus haut pour pouvoir l'utiliser
        G = Me.CreateGraphics
        ' on relie la source du combobox cbFont à la liste de police récupérée
        cbFont.DataSource = FontList
    End Sub

    Private Sub f_dessine_text()
        '   Le .net comprends maintenant une gestion des erreurs et des exceptions de même type que les "vrais" langages orientés objets
        '   il existe donc maintenant une procédure Try .... catch qui essaye de faire tourner une routine contenue dans le bloc "try" (essaie)
        '   et si une exception se produit, le prog se débranche de la procédure pour aller au bloc "Catch" (attrape)
        '   dans ce bloc, on définit les instructions à suivre selon la nature de l'évenement associé à Catch
        Try
            '   on efface la form à l'aide de l'objet de type "Graphics", par la méthode .Clear(color).
            '   comme couleur, on prends simplement la couleur de fond de la form me.backcolor
            G.Clear(Me.BackColor)
            '   on appelle la méthode de dessin pour les textes DrawString (littéralement Dessine un texte pour les non anglophiles)
            '   cette méthode prends comme argument (dans l'ordre) : 
            '       1°) le texte à afficher (ici "TEST")
            '       2°) la police à utiliser. Ici, no crée une nouvelle police (new Font()) avec comme argument : le nom de la police
            '           (contenue dans le combobx, soit cbFont.text), la taille (120) et un type FontStyle. vous remarquerez qu'il existe
            '           13 types de méthode Font() avec des signatures différentes
            '       3°) la brosse à utiliser (ici notre brosse TextureBrush)
            '       4°) le coin supérieur gauche depuis lequel on va dessiner
            G.DrawString("TEST", New Font(cbFont.Text, 200, FontStyle.Bold), brush, New PointF(40, 20))
            '   on chope les exceptions (notamment si aucune brush n'est définie, cela génére une erreur, et on ne fais rien :D
        Catch ex As Exception
        End Try

    End Sub

    Private Sub btLoadBitmap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btLoadBitmap.Click
        '   il faut créer un délégué GetThumbNailImageAbort pour pouvoir utiliser les thumbnails (voir MSDN pour plus d'info)
        Dim delegue As Image.GetThumbnailImageAbort
        On Error GoTo suite
        '   Classique, comme dans VB6, sauf que l'objet CommonDialog est décliné en plusieurs entités OpenFileDialog, ColorDialog, etc.
        OpenFileDialog.Filter = "*.bmp (bitmap) | *.bmp"
        OpenFileDialog.InitialDirectory = "c:\"
        OpenFileDialog.Title = "Choisissez le bitmap de texturage"
        OpenFileDialog.ShowDialog()

        '   La partie intéressante :D. On charge le bitmap avec la méthode FromFile
        bitmap = bitmap.FromFile(OpenFileDialog.FileName)
        '   on écrit simplement dans le Label lblBitmap le chemin du bitmap chargé
        lblBitmap.Text = OpenFileDialog.FileName
        '   et on définit le bitmap de texture de la brosse Brush
        brush = New TextureBrush(bitmap)
        '   on charge la preview de l'image dans la picturebox
        PictureBox1.Image = bitmap.GetThumbnailImage(70, 70, delegue, IntPtr.Zero)
        f_dessine_text()
suite:
    End Sub

    Private Sub btQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btQuit.Click
        End
    End Sub

    Private Sub cbFont_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbFont.SelectedIndexChanged
        '   on appelle la sub de dessin tout simplement
        f_dessine_text()
    End Sub
End Class