ฟังก์ชัน GetAllSettings

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

ไวยากรณ์

GetAllSettings(appname, section)

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

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

    

ข้อสังเกต

GetAllSettings จะส่งกลับตัวแปรที่ไม่ได้เตรียมใช้งานถ้าไม่มีชื่อ appname หรือ section

ตัวอย่าง

ตัวอย่างนี้ก่อนอื่นใช้คําสั่ง SaveSetting เพื่อสร้างรายการในรีจิสทรีของ Windows สําหรับแอปพลิเคชันที่ระบุเป็น appname แล้วใช้ฟังก์ชัน GetAllSettings เพื่อแสดงการตั้งค่า โปรดทราบว่าชื่อแอปพลิเคชันและชื่อ ส่วน ไม่สามารถดึงข้อมูลด้วย GetAllSettings ได้ สุดท้าย คําสั่ง DeleteSetting จะเอารายการของแอปพลิเคชันออก

' 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"