PICTURE BOX WITH 3 PARTITIONS AND PARTITIONS SHOULD BE CONTROLLED WITH NUMERIC UPDOWN

Madhu Mitha

Total Post:31

Points:217
Posted by  Madhu Mitha
VB.Net 
 746  View(s)
Ratings:
Rate this:
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:

  1. John Smith

    Post:103

    Points:727
    Re: picture box with 3 partitions and partitions should be controlled with numeric updown

    can we check your code?

  1. Madhu Mitha

    Post:31

    Points:217
    Re: picture box with 3 partitions and partitions should be controlled with numeric updown

    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

Answer

NEWSLETTER

Enter your email address here always to be updated. We promise not to spam!