[VB6] การประยุกต์ใช้งาน User Controls ด้วยการทำ Scroll Control

thongkorn

บทความนี้ไม่ได้มาสอนวิธีการทำ User Control ขึ้นมาใช้งานเองใดๆหรอกครับ แต่เป็นการแนะนำแหล่งของฟรี และโค้ดฟรีดีๆที่โปรแกรมเมอร์สายพันธุ์ VB6 ทั่วโลกเขาทำมาแจก เพื่อให้เรานำมาประยุกต์ใช้กับงานของเราให้ได้ซ่ะก่อน แล้วค่อยคิดนำไปพัฒนาต่อ-ยอดกันออกไปอีกทีครับ ...

อ่านข้อมูลรายละเอียด และดาวน์โหลดโค้ดต้นฉบับ Scroll Control (VB6) จากเว็บไซต์ผู้พัฒนาโดยตรง ...

Scroll หมายถึง การเลื่อนข้อความหรือภาพบนจอไปตามแนวนอน หรือแนวตั้ง เพราะบางทีภาพหรือข้อความที่ต้องการดูบนจอภาพ ไม่สามารถมองเห็นได้ทั้งหมด เพราะมีขนาดใหญ่กว่าจอภาพ ต้องค่อยๆเลื่อนดูทีละส่วน ในการเลื่อนภาพนั้น อาจจะใช้แป้น PgUp หรือ PgDn เข้าช่วย หรือจะใช้ลูกกลิ้งที่อยู่ตรงกลางเมาส์เข้าช่วยในการเลื่อนภาพก็ได้ ... (จบทฤษฎี)


เริ่มต้นด้วยการ Add User Control เข้ามา ...


การ Save User Control เอาไว้ในโปรเจค ...


แอดมินชื่นชอบในเรื่อง คุณสมบัติ Align ของ User Control ตัวนี้มาก เพราะมันสามารถยืดหด ปรับขนาดตามการย่อ/ขยายฟอร์มได้ และเราสามารถนำโค้ดไปปรับแต่งใช้งานกับ Control ตัวอื่นๆได้ในเรื่องของ Anchor เหมือนใน VB.NET ...

แอดมินจะไม่อธิบายเรื่องตัว User Control นะครับ แต่จะเป็นการนำโค้ดมาใช้งานโดยตรงเลย โดยให้ดูจาก Event หรือ การเกิดเหตุการณ์คลิ๊กที่รูป (PictureBox) จากนั้นสั่งให้มันไปทำงานอะไร (Driven) ...

1. Option Explicit
   
2. 
   
3. Private Declare Sub InitCommonControls Lib "comctl32" ()
   
4. Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
   
5. Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
   
6. Dim m_hMod As Long
   
7. 
   
8. '/ This is just to apply windows themes
   
9. Private Sub Form_Initialize()
   
10.     m_hMod = LoadLibrary("shell32.dll")
    
11.     Call InitCommonControls
    
12. End Sub
    
13. 
    
14. Private Sub Form_Terminate()
    
15.     '/ Release memory.
    
16.     FreeLibrary m_hMod
    
17. End Sub
    
18. 
    
19. Private Sub Form_Load()
    
20.    
    
21.     Dim sDir As String
    
22.     Dim i As Long
    
23.     sDir = Dir(App.Path & "\Images\*.jpg")
    
24.     Do While sDir <> ""
    
25.         If i <> 0 Then
    
26.             '/ Initialized *IMPORTANT
    
27.             Load Picture1(i)
    
28.             Load Picture2(i)
    
29.             
    
30.             '/ แนวนอน
    
31.             Picture1(i).Left = Picture1(i - 1).Left + Picture1(i - 1).Width + 200
    
32.             '/ แนวตั้ง
    
33.             Picture2(i).Top = Picture2(i - 1).Top + Picture2(i - 1).Height + 200
    
34.             
    
35.             Picture1(i).Visible = True
    
36.             Picture2(i).Visible = True
    
37.             
    
38.         End If
    
39.         Picture1(i).Picture = LoadPicture(App.Path & "\Images" & sDir)
    
40.         '/ เก็บชื่อไฟล์ภาพเอาไว้ใน Tag หากต้องการนำชื่อภาพไปทำประโยชน์อย่างอื่น
    
41.         Picture1(i).Tag = sDir
    
42.         Picture1(i).Visible = True
    
43.         '/
    
44.         Picture2(i).Picture = LoadPicture(App.Path & "\Images" & sDir)
    
45.         Picture2(i).Tag = sDir
    
46.         Picture2(i).Visible = True
    
47.         '/
    
48.         i = i + 1
    
49.         sDir = Dir()
    
50.     Loop
    
51. End Sub
    
52. 
    
53. '/ Your code for handling the event.
    
54. Private Sub Picture1_Click(Index As Integer)
    
55.     Select Case Index
    
56.         Case 0:
    
57.             MsgBox "คุณเลือกรายการภาพที่ 1(Event) ... คุณต้องการจะให้โปรแกรมไปทำอะไรดีล่ะ. (Driven)" & vbCrLf & _
    
58.                 "ชื่อภาพ: " & Picture1(Index).Tag
    
59.         Case 1:
    
60.             MsgBox "คุณเลือกรายการภาพที่ " & Index + 1 & " (Event) ... คุณต้องการจะให้โปรแกรมไปทำอะไรดีล่ะ. (Driven)" & vbCrLf & _
    
61.                 "ชื่อภาพ: " & Picture1(Index).Tag
    
62.         'Case ...
    
63.     End Select
    
64. End Sub
    
65. 
    
66. Private Sub Picture2_Click(Index As Integer)
    
67.     Select Case Index
    
68.         Case 0:
    
69.             MsgBox "คุณเลือกรายการภาพที่ 1(Event) ... คุณต้องการจะให้โปรแกรมไปทำอะไรดีล่ะ. (Driven)" & vbCrLf & _
    
70.                 "ชื่อภาพ: " & Picture1(Index).Tag
    
71.         Case 1:
    
72.             MsgBox "คุณเลือกรายการภาพที่ " & Index + 1 & " (Event) ... คุณต้องการจะให้โปรแกรมไปทำอะไรดีล่ะ. (Driven)" & vbCrLf & _
    
73.                 "ชื่อภาพ: " & Picture1(Index).Tag
    
74.         'Case ...
    
75.     End Select
    
76. End Sub

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

ดาวน์โหลดโค้ดต้นฉบับเต็ม VB6 ได้ที่นี่