[VB.NET] การทำข้อความอธิบายในช่อง TextBox Control

thongkorn

การทำข้อความอธิบายในช่อง TextBox Control (ให้ดูตามภาพ) เพราะแอดมินจำไม่ได้ว่าลักษณะแบบนี้เขาเรียกว่าอะไร และ Visual Studio รุ่นไหนขึ้นไปที่ทำได้บ้าง แต่แอดมินใช้ Visual Studio 2010 ซึ่งมันจะไม่มีให้ ดังนั้นก็ต้องเขียนโค้ดขึ้นมาใหม่เอง ...

มาดูโค้ดกันเถอะ ...

1. Public Class frmSetSearchBox
   
2. 
   
3.     Private Sub frmSetSearchBox_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
4.         Call SetSearchBox()
   
5.     End Sub
   
6. 
   
7.     Private Sub SetSearchBox()
   
8.         If txtSearch.Text = "" Then
   
9.             txtSearch.Text = "พิมพ์คำค้นหาที่นี่ แล้วกด Enter"
   
10.             txtSearch.ForeColor = Color.Gray
    
11.         End If
    
12.     End Sub
    
13. 
    
14.     Private Sub txtSearch_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearch.LostFocus
    
15.         Call SetSearchBox()
    
16.     End Sub
    
17. 
    
18.     Private Sub txtSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.Click
    
19.         If txtSearch.Text = "พิมพ์คำค้นหาที่นี่ แล้วกด Enter" Then
    
20.             txtSearch.Text = ""
    
21.             txtSearch.ForeColor = Color.Black
    
22.         ElseIf txtSearch.Text <> "" Then
    
23.             txtSearch.SelectAll()
    
24.         End If
    
25.     End Sub
    
26. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ Visual Basic .NET (2010) ได้ที่นี่ ...