[VB.NET] การแสดงผลข้อความอธิบายใน TextBox Control ด้วย Syncfusion

thongkorn

การแสดงผลข้อความอธิบายใน TextBox Control มาตรฐานของทางไมโครซอฟท์ ด้วย Syncfusion ซึ่งศัพท์ภาษาอังกฤษจะเรียกว่า Watermark หรือ Placeholder ... เพื่อความง่ายและสะดวกก็จะเรียกใช้งาน BannerTextProvider ของ Syncfusion เข้ามาช่วย ซึ่งสามารถทำได้ในขณะที่อยู่ในโหมด Design Time (ดูจากภาพ) แต่สำหรับแอดมินจะใช้โค้ดเพื่อให้แสดงผลในขณะ Run Time ครับ ...



ไฟล์มาตรฐาน Shared.Base.DLL และ Tools.Windows.DLL ของ Syncfusion เพื่อนำไปใช้กับเครื่องอื่น ...


คลิปวิดีโอสอนการใช้งาน BannerTextProvider ของ Syncfusion ...

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

1. Imports Syncfusion.Windows.Forms
   
2. 
   
3. Public Class frmBannerText
   
4. 
   
5.     '// S T A R T . . . H E R E
   
6.     Private Sub frmBannerText_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
7.         Dim BannerTextProvider As New BannerTextProvider
   
8.         Dim BannerTextInfo As BannerTextInfo = New BannerTextInfo()
   
9.         With BannerTextInfo
   
10.             .Text = "ป้อนชื่อผู้ใช้งาน"
    
11.             .Visible = True
    
12.             .Color = Color.DarkRed
    
13.             .Mode = BannerTextMode.EditMode '// โหมดนี้เมื่อถูกโฟกัส ข้อความแสดงผลจะยังคงอยู่ จนกว่าจะมีการพิมพ์ค่าลงไป
    
14.             .TextAlignment = StringAlignment.Near
    
15.         End With
    
16.         '// Provide Information into TextBox1 Control.
    
17.         BannerTextProvider.SetBannerText(Me.TextBox1, BannerTextInfo)
    
18.         '//
    
19.         BannerTextInfo = New BannerTextInfo '// เริ่มต้นใหม่ด้วยการเคลียร์ค่าเดิม
    
20.         With BannerTextInfo
    
21.             .Text = "ป้อนรหัสผ่านผู้ใช้งาน"
    
22.             .Visible = True
    
23.             .Color = Color.Gray
    
24.             .Mode = BannerTextMode.FocusMode    '// โหมดนี้เมื่อถูกโฟกัส ข้อความแสดงผลจะหายไป
    
25.             .TextAlignment = StringAlignment.Near
    
26.         End With
    
27.         BannerTextProvider.SetBannerText(Me.TextBox2, BannerTextInfo)
    
28. 
    
29.         '// หรือ ...
    
30.         'BannerTextProvider.SetBannerText( _
    
31.         '    TextBox1, _
    
32.         '    New Syncfusion.Windows.Forms.BannerTextInfo( _
    
33.         '        "Type here ...", _
    
34.         '        True, _
    
35.         '        New System.Drawing.Font( _
    
36.         '            "Tahoma", _
    
37.         '            8.25F, _
    
38.         '            System.Drawing.FontStyle.Italic), _
    
39.         '        System.Drawing.Color.RoyalBlue, _
    
40.         '        Syncfusion.Windows.Forms.BannerTextMode.EditMode) _
    
41.         '    )
    
42.     End Sub
    
43. End Class

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

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