VB.NET 2008 texte dans picturebox Résolu

Question

bonjour à tous.
Je parviens à ecrire un texte dans une picturebox mais mon texte est trop petit.
quelle est l'instruction manquante pour  choisit la taille de ma police.
je vous donne ci dessous mon code en vous remerciant de votre aide.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
        Dim path As String = "E:\VBESSAIPICTUREBOX\VBESSAIPICTURE\VBESSAIPICTURE\bin\Debug\DATA\A.jpg"

       
        ' Chargement de l'image à dessiner 
        Dim image As Image = image.FromFile(path)

        'Création du bitmap pour réaliser le dessin 
        Dim bmp As Bitmap = New Bitmap(image.Size.Width, image.Size.Height)

        'Créatio ndu graphics pour dessiner 
        Dim g As Graphics = Me.CreateGraphics()

        g = Graphics.FromImage(bmp)

        ' On dessine l'image 
        g.DrawImage(image.FromFile(path), 0, 0)

        ' On ajoute un texte 

        g.DrawString("Mon texte", Font, Brushes.Aqua, 0, 0)
        PictureBox1.Image = bmp
    End Sub

cs_ShayW · Accepted Answer

Bonsoir


Dim myfont As New Font("arial", 14, FontStyle.Bold, GraphicsUnit.Pixel)
g.DrawString("Mon texte",myfont, Brushes.Aqua, 0, 0)

DX90 · Answer

Testé et approuvé par moi.
Vire ton avant dernières ligne et met les miennes

        Dim drawFont As Font = New Font("Arial", 54)
        g.DrawString("Mon texte", drawFont, Brushes.Aqua, 0, 0)

cs_DAN1 · Answer

Je vous remercie  ca marche parfaitement

VB.NET 2008 texte dans picturebox

3 réponses

Votre réponse

Discussions similaires