[VB6/VB.NET] การแสดงกล่องโต้ตอบ (Dialog) ของ Windows เมื่อคัดลอกไฟล์ ด้วย Win32 API

thongkorn

แอดมินรับอีเมล์ข่าวสารมาจาก www.developer.com มาเจอหัวข้อหนึ่งที่น่าสนใจ คือ Displaying the Windows Copy Dialog Box when Copying Files ซึ่งเป็นการคัดลอกไฟล์ขนาดใหญ่ แล้วให้มันแสดงผลไดอะลอค (หน้าต่างตอบโต้ผู้ใช้งาน) ของตัว Windows ขึ้นมา แต่ทว่าโค้ดมันเป็น VB.NET ดังนั้นแอดมินก็เลยทำการแปลงร่างมันให้กลายเป็น VB6 แทน เพราะโค้ดของ VB6 ค่อนข้างจะอ่านได้ง่ายกว่า ทั้งนี้ทั้งนั้นเราต้องเรียกใช้ Win32 API (Application Programming Interface) ซึ่งตัวนี้เรียกได้ว่าเป็นพลังของ VB6 ในการดึงขีดความสามารถของ Windows ออกมาใช้งานได้อย่างเต็มที่ ...

ข้อมูลเบื้องต้น มาทำความรู้จักกับ Application Programming Interface (API)

เรียกใช้งาน API Text Viewer (ตอนลงโปรแกรม Visual Studio อย่าไปตัดทิ้งซ่ะล่ะครับ)


Load Text File เข้ามา ...


เลือก WIn32API.Text


การเรียกใช้งานค่าคงที่ Constant (โดยเราพิมพ์เฉพาะคำสำคัญบางคำเท่านั้น)


การเรียกใช้งาน Type (เป็นพวกโครงสร้าง หรือ Structure ภายในของตัว Windows)


เรียกใช้งานการประกาศฟังค์ชั่น (Declares)


มาดูโค้ดในส่วนของ VB6 ... (กรุณาแก้ไขการ Copy ไฟล์ด้วยล่ะครับ)

1. ' / -----------------------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand only)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' /
   
8. ' / Purpose: Displaying the Windows Copy Dialog Box when Copying Files.
   
9. ' / Microsoft Visual Basic 6.0 Service Pack 6
   
10. ' /
    
11. ' / This is open source code under @Copyleft by Thongkorn Tubtimkrob.
    
12. ' / You can feel free modify and/or distribute without to inform the developer.
    
13. ' / -----------------------------------------------------------------------------------------------
    
14. 
    
15. Option Explicit
    
16. 
    
17. '// TYPE : Structure from Win32 API
    
18. '// https://docs.microsoft.com/en-us/windows/desktop/api/shellapi/ns-shellapi-_shfileopstructa
    
19. Private Type SHFILEOPSTRUCT
    
20.     hwnd As Long
    
21.     wFunc As Long
    
22.     pFrom As String
    
23.     pTo As String
    
24.     fFlags As Integer
    
25.     fAnyOperationsAborted As Long
    
26.     hNameMappings As Long
    
27.     lpszProgressTitle As String '// Only used if FOF_SIMPLEPROGRESS
    
28. End Type
    
29. 
    
30. '// DECLARE : Call Win32 API
    
31. '// https://docs.microsoft.com/en-us/windows/desktop/api/shellapi/nf-shellapi-shfileoperationa
    
32. Private Declare Function SHFileOperation Lib "shell32" Alias "SHFileOperationA" ( _
    
33.     lpFileOp As SHFILEOPSTRUCT _
    
34.     ) As Long
    
35.    
    
36. '// Instance Name for Structure.
    
37. Private SHFileOp As SHFILEOPSTRUCT
    
38. 
    
39. '// CONSTANT
    
40. '// Operation with constant from Win32 API.
    
41. Const FO_COPY = &H2
    
42. Const FO_DELETE = &H3
    
43. Const FO_MOVE = &H1
    
44. Const FO_RENAME = &H4
    
45.    
    
46. Public Sub CopyFiles(ByVal sSource As String, ByVal sTarget As String)
    
47.     '// Define value with Structure.
    
48.     With SHFileOp
    
49.         .wFunc = FO_COPY    '// Mode Copy
    
50.         .pFrom = sSource        '// Source
    
51.         .pTo = sTarget              '// Destination
    
52.     End With
    
53.     '// Operation with structure.
    
54.     Call SHFileOperation(SHFileOp)
    
55. End Sub
    
56. 
    
57. Private Sub Command1_Click()
    
58.     '// SAMPLE - Please be careful.
    
59.     Call CopyFiles("C:\*.*", "C:\NewFolder")
    
60. End Sub
    
61. 
    
62. Private Sub Form_Unload(Cancel As Integer)
    
63.     End
    
64. End Sub

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

มาดูโค้ดต้นฉบับของ VB.NET (2010)

1. ' / -----------------------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand only)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' /
   
8. ' / Purpose: Displaying the Windows Copy Dialog Box when Copying Files.
   
9. ' / Microsoft Visual Basic .NET (2010)
   
10. ' /
    
11. ' / This is open source code under @Copyleft by Thongkorn Tubtimkrob.
    
12. ' / You can feel free modify and/or distribute without to inform the developer.
    
13. ' / -----------------------------------------------------------------------------------------------
    
14. Imports System.Runtime.InteropServices
    
15. 
    
16. Public Class frmCopyDialogNet
    
17.     Private Enum FO_Func As Short
    
18.         FO_COPY = &H2
    
19.         FO_DELETE = &H3
    
20.         FO_MOVE = &H1
    
21.         FO_RENAME = &H4
    
22.     End Enum
    
23. 
    
24.     Private Structure SHFILEOPSTRUCT
    
25.         Public hwnd As IntPtr
    
26.         Public wFunc As FO_Func
    
27.         <MarshalAs(UnmanagedType.LPWStr)>
    
28.         Public pFrom As String
    
29.         <MarshalAs(UnmanagedType.LPWStr)>
    
30.         Public pTo As String
    
31.         Public fFlags As UShort
    
32.         Public fAnyOperationsAborted As Boolean
    
33.         Public hNameMappings As IntPtr
    
34.         <MarshalAs(UnmanagedType.LPWStr)>
    
35.         Public lpszProgressTitle As String
    
36.     End Structure
    
37. 
    
38.     <DllImport("shell32.dll", CharSet:=CharSet.Unicode)>
    
39.     Private Shared Function SHFileOperation(
    
40.       <[In]()> ByRef lpFileOp As SHFILEOPSTRUCT) As Integer
    
41.     End Function
    
42. 
    
43.     Private Shared _ShFile As SHFILEOPSTRUCT
    
44. 
    
45.     Public Shared Sub CopyFiles(ByVal sSource As String, ByVal sTarget As String)
    
46.         Try
    
47.             _ShFile.wFunc = FO_Func.FO_COPY
    
48.             _ShFile.pFrom = sSource
    
49.             _ShFile.pTo = sTarget
    
50.             SHFileOperation(_ShFile)
    
51.         Catch ex As Exception
    
52.             MessageBox.Show(ex.Message)
    
53.         End Try
    
54.     End Sub
    
55. 
    
56.     Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    
57.         '// Call Function
    
58.         CopyFiles("C:\*.*", "C:\NewFolder")
    
59.     End Sub
    
60. 
    
61.     Private Sub frmCopyDialogNet_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
62.         Me.Dispose()
    
63.         Application.Exit()
    
64.     End Sub
    
65. End Class

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

ดาวน์โหลดไฟล์ต้นฉบับทั้ง VB6 (ชื่อไฟล์ CopyDialog.zip) และ VB.NET (2010) ชื่อไฟล์ CopyDialogNet.zip ได้ที่นี่ ...