Lưu ý
Hàm, phương pháp, đối tượng hoặc thuộc tính được mô tả trong chủ đề này bị tắt nếu Dịch vụ Biểu thức Microsoft Jet đang chạy ở chế độ hộp cát, điều này ngăn chặn việc đánh giá các biểu thức không an toàn tiềm ẩn. Để biết thêm thông tin về chế độ hộp cát, hãy tìm kiếm "chế độ hộp cát" trong Trợ giúp.
Trả về danh sách các cài đặt khóa và giá trị tương ứng (được tạo từ đầu bằng SaveSetting) từ mục nhập của ứng dụng trong sổ đăng ký Windows hoặc (trên Macintosh) thông tin trong tệp khởi tạo của ứng dụng.
Cú pháp
GetAllSettings(appname, section)
Cú pháp hàm GetAllSettings có các đối số sau:
| Đối số | Mô tả |
|---|---|
| tên ứng dụng | Bắt buộc. Biểu thức chuỗi chứa tên của ứng dụng hoặc dự án có cài đặt khóa được yêu cầu. Trên máy Macintosh, đây là tên tệp của tệp khởi tạo trong thư mục Tùy chọn trong thư mục Hệ thống. |
| phần | Bắt buộc. Biểu thức chuỗi chứa tên của phần có cài đặt khóa được yêu cầu. GetAllSettings trả về một Variant có nội dung là một mảng hai chiều của chuỗi chứa tất cả các cài đặt khóa trong mục được chỉ định và các giá trị tương ứng. |
Chú thích
GetAllSettings trả về một Biến chưa khởi tạo nếu tên ứng dụng hoặc phần không tồn tại.
Ví dụ
Lưu ý
Các ví dụ sau thể hiện cách sử dụng hàm này trong mô-đun Visual Basic for Applications (VBA). Để biết thêm thông tin về cách làm việc với VBA, chọn Tham khảo dành cho Nhà phát triển trong danh sách thả xuống cạnh Tìm kiếm, rồi nhập một hoặc nhiều từ vào hộp tìm kiếm.
Ví dụ này trước tiên sử dụng câu lệnh SaveSetting để tạo các mục nhập trong sổ đăng ký Windows cho ứng dụng được xác định là tên ứng dụng, sau đó sử dụng hàm GetAllSettings để hiển thị cài đặt. Lưu ý rằng không thể truy xuất tên ứng dụng và tên phần bằng GetAllSettings. Cuối cùng, câu lệnh DeleteSetting sẽ loại bỏ các mục nhập của ứng dụng.
' Variant to hold 2-dimensional array returned by GetAllSettings
' Integer to hold counter.
Dim MySettings As Variant, intSettings As Integer
' Place some settings in the registry.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Retrieve the settings.
MySettings = GetAllSettings(appname := "MyApp", section := "Startup")
For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1)
Next intSettings
DeleteSetting "MyApp", "Startup"