[VB.NET] การทำข้อความอธิบายในช่อง TextBox Control
http://www.g2gsoft.com/webboard/images/VBNet/setsearchbox.pngการทำข้อความอธิบายในช่อง TextBox Control (ให้ดูตามภาพ) เพราะแอดมินจำไม่ได้ว่าลักษณะแบบนี้เขาเรียกว่าอะไร และ Visual Studio รุ่นไหนขึ้นไปที่ทำได้บ้าง แต่แอดมินใช้ Visual Studio 2010 ซึ่งมันจะไม่มีให้ ดังนั้นก็ต้องเขียนโค้ดขึ้นมาใหม่เอง ...
มาดูโค้ดกันเถอะ ...
Public Class frmSetSearchBox
Private Sub frmSetSearchBox_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Call SetSearchBox()
End Sub
Private Sub SetSearchBox()
If txtSearch.Text = "" Then
txtSearch.Text = "พิมพ์คำค้นหาที่นี่ แล้วกด Enter"
txtSearch.ForeColor = Color.Gray
End If
End Sub
Private Sub txtSearch_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearch.LostFocus
Call SetSearchBox()
End Sub
Private Sub txtSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.Click
If txtSearch.Text = "พิมพ์คำค้นหาที่นี่ แล้วกด Enter" Then
txtSearch.Text = ""
txtSearch.ForeColor = Color.Black
ElseIf txtSearch.Text <> "" Then
txtSearch.SelectAll()
End If
End Sub
End Class
ดาวน์โหลดโค้ดต้นฉบับ Visual Basic .NET (2010) ได้ที่นี่ ...
หน้า:
[1]