หมายเหตุ: ฟังก์ชัน วิธีการ วัตถุ หรือคุณสมบัติที่อธิบายไว้ในหัวข้อนี้จะถูกปิดใช้งานถ้า Microsoft Jet Expression Service ทํางานในโหมด Sandbox ซึ่งจะป้องกันการประเมินนิพจน์ที่อาจไม่ปลอดภัย สําหรับข้อมูลเพิ่มเติมเกี่ยวกับโหมด Sandbox ให้ค้นหา "โหมด Sandbox" ในวิธีใช้
ส่งกลับค่าการตั้งค่าคีย์จากรายการของแอปพลิเคชันในรีจิสทรีของ Windows หรือข้อมูล (บน Macintosh) ในไฟล์การเตรียมใช้งานของแอปพลิเคชัน
ไวยากรณ์
GetSetting ( appname , section, key [, default ] )
ไวยากรณ์ของฟังก์ชัน GetSetting มีอาร์กิวเมนต์ดังนี้
|
อาร์กิวเมนต์ |
คำอธิบาย |
|
ชื่อแอป |
จำเป็น นิพจน์สตริง ที่มีชื่อของแอปพลิเคชันหรือโครงการที่มีการร้องขอการตั้งค่าคีย์ บน Macintosh นี่คือชื่อไฟล์ของไฟล์การเตรียมใช้งานในโฟลเดอร์การกําหนดลักษณะในโฟลเดอร์ระบบ |
|
ส่วน |
จำเป็น นิพจน์สตริงที่มีชื่อของส่วนที่พบการตั้งค่าคีย์ |
|
คีย์ |
จำเป็น นิพจน์สตริงที่มีชื่อของการตั้งค่าคีย์ที่จะส่งกลับ |
|
เริ่มต้น |
ไม่จำเป็น นิพจน์ที่มีค่าที่จะส่งกลับถ้าไม่มีการตั้งค่าใดถูกตั้งค่าไว้ในการตั้งค่าคีย์ ถ้าละไว้ จะถือว่า default เป็นสตริงที่มีความยาวเป็นศูนย์ ("") |
ข้อสังเกต
ถ้าไม่มีรายการใดๆ ที่มีชื่อในอาร์กิวเมนต์ GetSettingฟังก์ชัน GetSetting จะส่งกลับค่าของค่าเริ่มต้น
ตัวอย่าง
หมายเหตุ: ตัวอย่างต่อไปนี้จะสาธิตการใช้ฟังก์ชันนี้ในโมดูล Visual Basic for Applications (VBA) สําหรับข้อมูลเพิ่มเติมเกี่ยวกับการทํางานกับ VBA ให้เลือก การอ้างอิงสําหรับนักพัฒนา ในรายการดรอปดาวน์ที่อยู่ถัดจาก ค้นหา แล้วใส่คําอย่างน้อยหนึ่งคําในกล่องค้นหา
ตัวอย่างแรกนี้ใช้คําสั่ง SaveSetting เพื่อทํารายการในรีจิสทรีของ Windows (หรือไฟล์ .ini บนแพลตฟอร์ม Windows 16 บิต) สําหรับแอปพลิเคชันที่ระบุเป็น ชื่อแอป แล้วใช้ฟังก์ชัน GetSetting เพื่อแสดงหนึ่งในการตั้งค่า เนื่องจากมีการระบุอาร์กิวเมนต์ เริ่มต้น ไว้ ค่าบางค่าจึงรับประกันว่าจะส่งกลับ โปรดทราบว่าไม่สามารถเรียกใช้ชื่อ ส่วน ด้วย GetSetting ได้ สุดท้าย คําสั่ง DeleteSetting จะเอารายการของแอปพลิเคชันทั้งหมดออก
' 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"
