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ề giá trị thiết đặ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:
| Đố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ó thiết đặ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 nơi có thiết đặt phím. |
| 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, mặc định được giả định là chuỗi độ dài bằng không (""). |
Chú thích
Nếu bất kỳ mục nào được đặt tên trong các đố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ì tham đối mặc định đã được chỉ đị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 sẽ loại bỏ tất cả các mục nhập 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"