ฟังก์ชัน GetAllSettings

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

ไวยากรณ์

GetAllSettings(appname, section)

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

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

    

ข้อสังเกต

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

ตัวอย่าง

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