Please enable JavaScript.

Coggle requires JavaScript to display documents.

(((Private Declare PtrSafe Function CoRegisterMessageFilter Lib "…

- - - - Private Declare
        
        Declare: khai báo một hàm nằm ngoài VBA (trong Windows)
        
        Private: chỉ dùng trong module này
      - PtrSafe
        
        Dùng cho Office 64-bit
      - Lib "OLE32.DLL"
        
        OLE32.DLL (thư viện xử lý COM/OLE của Windows)
        
        CoRegisterMessageFilter hàm này lấy từ OLE32.DLL
      - (ByVal lFilterIn As Long, ByRef lPreviousFilter)
        
        lFilterIn (ByVal):
        
        Giá trị truyền vào
        
        0 → tắt message filter
        
        0& → ép kiểu rõ ràng thành Long
        
        Nếu là handle/con trỏ → dùng LongPtr
        
        lPreviousFilter (ByRef):
        
        Biến để nhận lại filter cũ
      - As Long
        
        Giá trị trả về của hàm
        
        Thường là status code (HRESULT)
        
        0 → thành công
        
        Dùng as Longptr
        
        Trên hệ 64 bit, giá trị này sẽ không còn là Long nữa
    - - Đứng dậy ngay
      - Đừng cố ngồi
  - - - mảng (array)
        
        LBound và UBound xác định giới hạn của mảng (array)
        
        LBound: Chỉ số nhỏ nhất của mảng
        
        UBound: Chỉ số lớn nhất của mảng
        
        mảng 2 chiều
        
        Dim arr(1 To 3, 1 To 2) As Integer
        
        3 dòng × 2 cột
        
        Mảng động 2 chiều
        
        Dim arr() As Integer
        ReDim arr(1 To 3, 1 To 2)
        
        Tạo mảng 1 chiều
        
        Dim arr As Variant
        arr = Array(10, 20, 30, 40)
      - Dictionary object
        
        thêm dữ liệu
        
        dictFiles.Add LCase(fileName), True
        
        KHÔNG cần .Add
        
        dictFiles(key) = value
        
        không thể “add nhiều file trong 1 dòng”
        
        For mỗi file
        dictFiles(file) = True
        Next
        
        là một Dictionary object (thường dùng Scripting.Dictionary)
        
        Dim dictFiles As Object
        Set dictFiles = CreateObject("Scripting.Dictionary")
        
        Dictionary hoạt động như: Key → Value