Lưu ý: Hàm, phương pháp, đối tượng hoặc thuộc tính được mô tả trong chủ đề này sẽ bị vô hiệu hóa nếu Dịch vụ Biểu thức Phản lực của Microsoft đang chạy trong chế độ hộp cát, điều này ngăn không cho đá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ủa chúng (ban đầu được tạo 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 đây:
|
Đố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 ứng dự án yêu cầu cài đặt khóa. Trên 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. Chuỗi expression chứa tên của phần có yêu cầu cài đặt khóa. GetAllSettings trả về một Biến_thể có nội dung là một chuỗi mảng hai chiều chứa tất cả các cài đặt chính trong phần được chỉ định và các giá trị tương ứng của chúng. |
Chú thích
GetAllSettings trả về một Biến_ thể không được khởi tạo nếu tên ứng dụnghoặc mục 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 chỉ đị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"
