Avatar billede cold_raider Nybegynder
12. maj 2008 - 17:40

Stroke i System.Drawing

Hej Eksperter

Jeg har et script som generer et bilelde ud fra noget tekst.
Er der en måde jeg kan få det script til at lave en sort stroke (outline) rundt om teksten?
Her er min kode:

    Public Sub TextToImage(ByVal Tekst As String, ByVal Path As String)
        Dim Text As String = Tekst
        Dim FontColor As Color = Color.White
        Dim BackColor As Color = Color.Transparent
        Dim FontName As String = "Arial Black"

        Dim FontSize As Integer = 17
        Dim Height As Integer = 20
        Dim Width As Integer = 168

        Dim FileName As String = "box1"

        Dim objBitmap As New Bitmap(Width, Height)

        Dim objGraphics As Graphics = Graphics.FromImage(objBitmap)

        'Dim objColor As Color

        Dim objFont As New Font(FontName, FontSize, FontStyle.Regular, GraphicsUnit.Pixel)

        Dim objPoint As New PointF(-3.0F, -4.0F)

        Dim objBrushForeColor As New SolidBrush(FontColor)

        Dim objBrushBackColor As New SolidBrush(BackColor)

        objGraphics.FillRectangle(objBrushBackColor, 0, 0, Width, Height)
        objGraphics.DrawString(Text, objFont, objBrushForeColor, objPoint)

        objBitmap.Save(Path & FileName & ".png", ImageFormat.Png)

    End Sub


Håber i kan hjælpe.

Stefan
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester