Hello, I search code in vb.net to text in a drawing to give this letter by letter, at any place on the drawing.
Sorry for my poor English.
Loading
Know the answer? Post it — somebody with the same question will find it here.
Sign in to answer this question
It is the same account you read, post and publish with — and you will come straight back to this page.
FroglegPosted Mar 18, 2011, 4:32 AM
Let me know what you think
Jozef Van NieuwenhuysPosted Mar 21, 2011, 2:39 PM
Jef
Jozef Van NieuwenhuysPosted Mar 18, 2011, 1:45 AM
FroglegPosted Mar 17, 2011, 5:16 PM
Jozef Van NieuwenhuysPosted Mar 17, 2011, 5:13 PM
Jozef Van NieuwenhuysPosted Mar 15, 2011, 2:06 AM
FroglegPosted Mar 14, 2011, 9:25 PM
Jozef Van NieuwenhuysPosted Mar 14, 2011, 5:09 PM
FroglegPosted Mar 13, 2011, 5:19 PM
Jozef Van NieuwenhuysPosted Mar 13, 2011, 3:37 PM
FroglegPosted Mar 13, 2011, 5:18 AM
set timer to 1000 (1 sec)
rename button1 to bttnDraw
change picturebox1.backcolor to black
code*********
Imports System.Drawing
Public Class Form1
Dim myFont As Font
Dim cArr() As Char
Dim count As Integer
Dim myString As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
myFont = (New Font("Microsoft Sans Serif", 26, FontStyle.Regular))
End Sub
Private Sub bttnDraw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnDraw.Click
If String.IsNullOrEmpty(TextBox1.Text) Then ' if textbox1 has no text, exit sub
Exit Sub
End If
cArr = TextBox1.Text.ToCharArray
Dim i As Integer = cArr.Length
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim myother As String = cArr(count)
myString = myString & myother
If count = cArr.Length - 1 Then
Timer1.Stop()
End If
count += 1
PictureBox1.Refresh()
End Sub
Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
e.Graphics.DrawString(myString, myFont, Brushes.Lime, 50, 50)
End Sub
End Class