Hàm GetAllSettings

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 trong chế độ sandbox, 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ế độ sandbox, hãy tìm kiếm "chế độ sandbox" trong trợ giúp.

Trả về danh sách các thiết đặt chính và các giá trị tương ứng của chúng (ban đầu được tạo bằng Savesetat) từ một mục nhập của ứng dụng trong sổ đăng ký Windows hoặc (trên máy Macintosh) trong tệp khởi tạo ứng dụng.

Cú pháp

Getallsettings ( appname , phần )

Cú pháp hàm Getallsettings có các đối số sau đây:

Đối số

Mô tả

tên người dùng

Bắt buộc. Biểu thức chuỗi có chứa tên của ứng dụng hoặc dự án có thiết đặt chính mà bạn 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 ưu tiên trong thư mục hệ thống.

phần

Bắt buộc. Chuỗi expression có chứa tên của phần có thiết đặt chính mà bạn yêu cầu. Getallsettings trả về một biến thể có nội dung là array hai chiều có chứa tất cả các thiết đặ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ể chưa được khởi tạo nếu có tên hoặc phần bổ ngữ 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 lần đầu tiên sử dụng câu lệnh Savesetdự để làm cho các mục nhập trong sổ đăng ký Windows cho ứng dụng được chỉ định là appname, sau đó sử dụng hàm getallsettings để hiển thị các thiết đặt. Lưu ý rằng tên ứng dụng và tên phần không thể được truy xuất với 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"

Bạn cần thêm trợ giúp?

Phát triển kỹ năng Office của bạn
Khám phá nội dung đào tạo
Sở hữu tính năng mới đầu tiên
Tham gia Người dùng nội bộ Office

Thông tin này có hữu ích không?

Cảm ơn bạn đã phản hồi! Để trợ giúp tốt hơn, có lẽ chúng tôi sẽ kết nối bạn với một trong những nhân viên hỗ trợ Office của chúng tôi.

×