Apr 10, 2010 11:34 AM
(This post was last modified: Apr 10, 2010 11:34 AM by The-One.)
[img]http://i43.[censored].com/25ai41t.jpg[/img]
To:
[img]http://i43.[censored].com/jh8xfb.jpg[/img]
Needs:
Codes:
Timer
Textbox.Click
Textbox.Leave
I copyed it straight out one of my old projects, I hope you guys like it.
I made this code on my own.
To:
[img]http://i43.[censored].com/jh8xfb.jpg[/img]
Needs:
- Timer
- Textbox
Codes:
Timer
Code
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim fnt As Font
fnt = TextBox1.Font
If TextBox1.Text = "" Then
TextBox1.ForeColor = Color.DimGray
TextBox1.Font = New Font(fnt.Name, 9.75, FontStyle.Italic)
TextBox1.Text = "Enter a title for your data here..."
End If
End SubTextbox.Click
Code
Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click
If TextBox1.Text = "Enter a title for your data here..." Then
Dim fnt As Font
fnt = TextBox1.Font
TextBox1.ForeColor = Color.White
TextBox1.Font = New Font(fnt.Name, 9.75, FontStyle.Regular)
TextBox1.Clear()
Timer2.Stop()
End If
End SubTextbox.Leave
Code
Private Sub TextBox1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Leave
Timer2.Start()
End SubI copyed it straight out one of my old projects, I hope you guys like it.
I made this code on my own.
FR1908

