Home > DeveloperSection > Forums > picture box with 3 partitions and partitions should be controlled with numeric updown
Madhu Mitha
Madhu Mitha

Total Post:31

Posted on    March-19-2015 11:35 PM

 .NET VB.Net 

 2 Reply(s)
 690  View(s)
Rate this:

i want to make a single picture box with three partitions where in left corner number should be displayed at top plain text and at bottom an scrolling text should be moving.

How to write code for it..

sample output:

John Smith

Total Post:102

Posted on    March-20-2015 12:43 PM

can we check your code?

Madhu Mitha
Madhu Mitha

Total Post:31

Posted on    March-20-2015 10:12 PM

hai john..

             i wrote code for a single picturebox.. and i copied the same for other two pictureboxes.. and my code is

Private Sub fmload()
        ' Create a obejct of InstalledFontCollection
        Dim InstalledFonts As New InstalledFontCollection
        ' Gets the array of FontFamily objects associated with this FontCollection.
        Dim fontfamilies() As FontFamily = InstalledFonts.Families()
        For Each fontFamily As FontFamily In fontfamilies

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'PictureBox1.Image = DrawText("Fun day")
        'PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
        'PictureBox1.Image = DrawText("Fun day")

        Dim scale_factor As Single = Single.Parse(cmbdest.Text)

        ' Get the source bitmap.
        Dim bm_source As New Bitmap(Size.Width, Size.Height, Drawing.Imaging.PixelFormat.Format24bppRgb)

        ' Make a bitmap for the result.
        Dim bm_dest As New Bitmap( _
         CInt(bm_source.Width * scale_factor), _
         CInt(bm_source.Height * scale_factor))

        'Make a Graphics object for the result Bitmap.
        Dim gr_dest As Graphics = Graphics.FromImage(bm_source)
    End Sub

    Private Function DrawText(ByVal Text As String) As Bitmap
        Dim TextBitmap As New Bitmap(Text)
        Dim Brush As New SolidBrush(Color.Black)
        Dim SelectedFont = New Font(FontFamily.GenericSansSerif, 50)
        Using Graphic = Graphics.FromImage(TextBitmap)
            Graphic.DrawString(Text, SelectedFont, Brushes.Black, 0, 0)
        End Using
        Return TextBitmap
    End Function
Private Sub img(ByVal route As String, ByVal font As String, ByVal fnsize As Integer, ByVal x As Integer, ByVal y As Integer)
        PictureBox1.Image = Nothing
        Dim g2 As System.Drawing.Graphics
        Dim img As New Bitmap(Size.Width, Size.Height, Drawing.Imaging.PixelFormat.Format24bppRgb)
        g2 = Graphics.FromImage(img)
        g2.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        g2.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit
        g2.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
            g2.DrawString(route, New Font(font, fnsize), Brushes.White, x, y)
        Catch ex As Exception
            MessageBox.Show("this font not supported try another font")
        End Try
        PictureBox1.SizeMode = PictureBoxSizeMode.Normal

        PictureBox1.Image = img
    End Sub

Don't want to miss updates? Please click the below button!

Follow MindStick