ฟังก์ชัน GetSetting

ส่งกลับค่าการตั้งค่าคีย์จากรายการของแอปพลิเคชันในรีจิสทรีของ Windows หรือข้อมูล (บน Macintosh) ในไฟล์การเตรียมใช้งานของแอปพลิเคชัน

ไวยากรณ์

GetSetting(appname, section, key [, default ] )

ไวยากรณ์ของฟังก์ชัน GetSetting มีอาร์กิวเมนต์ดังต่อไปนี้

อาร์กิวเมนต์	คำอธิบาย
AppName	จำเป็น นิพจน์สตริงที่มีชื่อของแอปพลิเคชันหรือโครงการที่ร้องขอการตั้งค่าคีย์ บน Macintosh นี่คือชื่อไฟล์ของไฟล์การเตรียมใช้งานในโฟลเดอร์การกําหนดลักษณะในโฟลเดอร์ระบบ
ส่วน	จำเป็น นิพจน์สตริงที่มีชื่อของส่วนที่พบการตั้งค่าคีย์
คีย์	จำเป็น นิพจน์สตริงที่มีชื่อของการตั้งค่าคีย์ที่จะส่งกลับ
เริ่มต้น	ไม่จำเป็น นิพจน์ที่มีค่าที่จะส่งกลับ ถ้าไม่มีค่าถูกตั้งค่าในการตั้งค่าคีย์ ถ้าละไว้ ค่าเริ่มต้น จะถือว่าเป็นสตริงที่มีความยาวเป็นศูนย์ ("")

    

ข้อสังเกต

ถ้าไม่มีรายการใดๆ ที่มีชื่ออยู่ในอาร์กิวเมนต์ GetSetting ฟังก์ชัน GetSetting จะส่งกลับค่าเริ่มต้น

ตัวอย่าง

ตัวอย่างนี้ใช้คําสั่ง SaveSetting เพื่อสร้างรายการในรีจิสทรีของ Windows ก่อน (หรือไฟล์ .ini บนแพลตฟอร์ม Windows 16 บิต) สําหรับแอปพลิเคชันที่ระบุเป็น appname แล้วใช้ฟังก์ชัน 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"