forum

Home / DeveloperSection / Forums / picture box with 3 partitions and partitions should be controlled with numeric updown

Ask Question

picture box with 3 partitions and partitions should be controlled with numeric updown

Madhu Mitha160919-Mar-2015
hi,

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..

thanks,
sample output:
picture box with 3 partitions and partitions should be controlled with numeric updown
.netvb.net 
Updated on 20-Mar-2015
Madhu Mitha

Madhu Mitha

Follow

Can you answer this question?

Answer

2 Answers

Madhu Mitha

Madhu Mitha

20-Mar-2015
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
            ComboBox1.Items.Add(fontFamily.Name)
        Next
    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
        Try
            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
John Smith

John Smith

20-Mar-2015
can we check your code?

Liked By