[VB.NET] การใส่ปุ่มคำสั่งเข้าไปใน TextBox หรือที่เราเรียกว่า SearchBox (VB2010)

thongkorn

สำหรับ VB.NET รุ่น 2010 จะไม่มี Control แบบที่ช่อง TextBox จะมีปุ่มคำสั่ง (Button) อยู่ภายใน ... แต่ทว่าเราสามารถสร้าง UserControl ขึ้นมาใช้งานเองก็ได้ แต่นั่นมันดูยุ่งยากเกินไป วันนี้แอดมินจะใช้วิธีการที่เรียกว่า Inherits Function หรือการสืบพันธุ์ เอ้ย สืบทอดในรูปแบบฟังค์ชั่นแทน ...

อันดับแรกก็ต้องสร้างโปรเจคขึ้นมาใหม่ก่อน ... จากนั้นก็ใส่โค้ดตามข้างล่างนี้ในฟอร์มหลัก (Form1)

1. Public Class Form1
   
2.     '//
   
3. End Class
   
4. 
   
5. Public Class TextBoxButton
   
6.     Inherits TextBox
   
7. 
   
8.     Public mButton As Button
   
9. 
   
10.     Public Property Button As Button
    
11.         Get
    
12.             Return mButton
    
13.         End Get
    
14. 
    
15.         Set(value As Button)
    
16.             mButton = value
    
17.         End Set
    
18.     End Property
    
19. 
    
20.     Protected Overrides Sub OnCreateControl()
    
21.         Me.Controls.Add(Me.mButton)
    
22.         Me.mButton.Dock = DockStyle.Right
    
23.         MyBase.OnCreateControl()
    
24.     End Sub
    
25. 
    
26.     Public Sub New()
    
27.         MyBase.New()
    
28.         mButton = New Button
    
29.         '// Properties
    
30.         With Me.mButton
    
31.             .Width = 20
    
32.             .FlatAppearance.BorderSize = 0
    
33.             '// If you want to use "Text" properties, You have to change it to "System".
    
34.             .FlatStyle = FlatStyle.Popup
    
35.             .BackColor = Color.Transparent
    
36.             .Cursor = Cursors.Hand
    
37.             .Image = My.Resources.Search
    
38.             '.Text = "..."
    
39.         End With
    
40.         '// Event Handler
    
41.         AddHandler mButton.Click, AddressOf MyClick
    
42.     End Sub
    
43. 
    
44.     '// Event/Driven
    
45.     Private Sub MyClick(ByVal sender As Object, ByVal e As EventArgs)
    
46.         MessageBox.Show("Ohhhh !!! You click me.")
    
47.     End Sub
    
48. 
    
49.     '// Clean up memory.
    
50.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    
51.         If disposing Then
    
52.             If Not (mButton Is Nothing) Then
    
53.                 mButton.Dispose()
    
54.             End If
    
55.         End If
    
56.         MyBase.Dispose(disposing)
    
57.     End Sub
    
58. End Class

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

อย่าพึ่งรันครับ เดี๋ยวเราไปใส่รูปเข้ามายัง Resource ก่อน


การเพิ่มรูปภาพ เพื่อนำไปใส่ยังปุ่มคำสั่ง ... โดยเลือกเมนู Project --> ชื่อโปรเจค Properties ...

เลือก Add Existing File จากนั้นก็ทำการ Browse เพื่อหาไฟล์ภาพที่เราต้องการ ...



สำเร็จเสร็จสมบูรณ์ ...


เลือก Build ...



เลือก Form1 ให้ดูที่กลุ่มเครื่องมือ ToolBox ก็จะปรากฏ Control ตัวใหม่ขึ้นมา ...

ก็จัดการจับลากมาวางบนฟอร์มได้เลยทันที หรือดับเบิ้ลคลิ๊กเบาๆ 1 ทีพอครับ ...


จบแต่เพียงเท่านี้แหละครับ ... ดาวน์โหลดโค้ดฉบับเต็ม VB.NET (2010) ได้ที่นี่ ...