thongkorn โพสต์ 2023-8-25 13:21:15

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

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

http://www.g2gsoft.com/webboard/images/VBNet/syncfusionbanner.png

ไฟล์มาตรฐาน Shared.Base.DLL และ Tools.Windows.DLL ของ Syncfusion เพื่อนำไปใช้กับเครื่องอื่น ...
http://www.g2gsoft.com/webboard/images/VBNet/syncfusionreference.png

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

มาดูโค้ดกันเถอะ ...
Imports Syncfusion.Windows.Forms

Public Class frmBannerText

    '// S T A R T . . . H E R E
    Private Sub frmBannerText_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
      Dim BannerTextProvider As New BannerTextProvider
      Dim BannerTextInfo As BannerTextInfo = New BannerTextInfo()
      With BannerTextInfo
            .Text = "ป้อนชื่อผู้ใช้งาน"
            .Visible = True
            .Color = Color.DarkRed
            .Mode = BannerTextMode.EditMode '// โหมดนี้เมื่อถูกโฟกัส ข้อความแสดงผลจะยังคงอยู่ จนกว่าจะมีการพิมพ์ค่าลงไป
            .TextAlignment = StringAlignment.Near
      End With
      '// Provide Information into TextBox1 Control.
      BannerTextProvider.SetBannerText(Me.TextBox1, BannerTextInfo)
      '//
      BannerTextInfo = New BannerTextInfo '// เริ่มต้นใหม่ด้วยการเคลียร์ค่าเดิม
      With BannerTextInfo
            .Text = "ป้อนรหัสผ่านผู้ใช้งาน"
            .Visible = True
            .Color = Color.Gray
            .Mode = BannerTextMode.FocusMode    '// โหมดนี้เมื่อถูกโฟกัส ข้อความแสดงผลจะหายไป
            .TextAlignment = StringAlignment.Near
      End With
      BannerTextProvider.SetBannerText(Me.TextBox2, BannerTextInfo)

      '// หรือ ...
      'BannerTextProvider.SetBannerText( _
      '    TextBox1, _
      '    New Syncfusion.Windows.Forms.BannerTextInfo( _
      '      "Type here ...", _
      '      True, _
      '      New System.Drawing.Font( _
      '            "Tahoma", _
      '            8.25F, _
      '            System.Drawing.FontStyle.Italic), _
      '      System.Drawing.Color.RoyalBlue, _
      '      Syncfusion.Windows.Forms.BannerTextMode.EditMode) _
      '    )
    End Sub
End Class
ดาวน์โหลดโค้ดต้นฉบับ Visual Basic .NET (2010) ได้ที่นี่ ...

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