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ề giá trị cài đặt khóa 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
GetSetting ( appname , section, key [, default ] )
Cú pháp hàm getSetting 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 dự án có yêu cầu cài đặt chính. 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. Biểu thức chuỗi chứa tên của phần nơi tìm thấy cài đặt khóa. |
phím |
Bắt buộc. Biểu thức chuỗi chứa tên của cài đặt phím cần trả về. |
mặc định |
Không bắt buộc. Biểu thức chứa giá trị cần trả về nếu không có giá trị nào được đặt trong cài đặt khóa. Nếu bỏ qua, default được giả định là một chuỗi có độ dài bằng không (""). |
Chú thích
Nếu bất kỳ mục nào có tên trong đối số GetSetting không tồn tại, GetSetting sẽ trả về giá trị mặc định.
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 (hoặc tệp .ini trên nền tảng Windows 16 bit) cho ứng dụng được xác định là tên ứng dụng, rồi sử dụng hàm GetSetting để hiển thị một trong các cài đặt. Vì đối số mặc định được xác định, một số giá trị được đảm bảo sẽ được trả về. Lưu ý rằng không thể truy xuất tên phần bằng GetSetting. Cuối cùng, câu lệnh DeleteSetting loại bỏ tất cả các mục của ứng dụng.
' Variant to hold 2-dimensional array returned
' by GetSetting. Dim MySettings As Variant ' Place some settings in the registry. SaveSetting "MyApp","Startup", "Top", 75 SaveSetting "MyApp","Startup", "Left", 50 Debug.Print GetSetting(appname := "MyApp", _ section := "Startup", _ key := "Left", default := "25") DeleteSetting "MyApp", "Startup"