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:

Total Post:31
Points:217Post:31
Points:217hai john..
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
© Copyright © 2010 - 2019 MindStick Software Pvt. Ltd. All Rights Reserved
Post:106
Points:748Re: picture box with 3 partitions and partitions should be controlled with numeric updown
can we check your code?