Products

Data Converter Cleaner TUC - Unit Converter Import Export Survey Manager Tweet Controller

Developer

Article Blog Forum Interview Beginner News Startup Quiz

Users

Career

Apply Job Internship

Pricing

Login Sign Up Get a Quote

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

Madhu Mitha 1945 19 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

Madhu Mitha

Other

2 Answers

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 20 Mar 2015

can we check your code?

advertising