Online Reference

Home

Microsoft Reference
Knowledge Developer Database Internet Resource Forum
VBA
General Function
ดาวน์โหลดคู่มือ

GetAllSettings Function

VBA Function, ส่งออกค่าเป็นรายการ key settings และค่าที่เกี่ยวข้อง (ที่สร้างด้วย SaveSetting) จาก application entry ใน Registry ของ Windows

ไวยากรณ์

GetAllSettings(appname, section )

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

ส่วน รายละเอียด
appname บังคับ, เป็น expression ของข้อความที่เก็บชื่อการประยุกต์หรือโครงการที่ key setting ต้องการ
section บังคับ, เป็น expression ของข้อความที่เก็บชื่อ section ที่ key setting ต้องการ ฟังก์ชัน GetAllSettings ส่งออกค่าเป็นประเภทข้อมูล Variant ที่เป็นค่าของ array 2 มิติของข้อความที่เก็บค่า key setting ทั้งหมดใน section ที่ระบุและค่าที่ตรงกัน

ลักษณะการประยุกต์

ฟังก์ชัน GetAllSettings ส่งค่าตัวแปร Variant ที่ไม่กำหนดค่าเริ่มต้น ถ้าไม่มีค่า appname หรือ section

ดูเพิ่มเติม

DeleteSetting Statement, ฟังก์ชัน GetSetting, SaveSetting Statement

ตัวอย่าง

ตัวอย่างการใช้ฟังก์ชัน GetAllSettings ซึ่งเริ่มจากการใช้คำสั่ง SaveSetting ทำการ Registry ใน Windows สำหรับโปรแกรมประยุกต์ที่ระบุเป็น appname แล้วใช้ฟังก์ชัน GetAllSettings แสดงค่า settings และสุดท้ายใช้คำสั่ง DeleteSetting ลบค่าทั้งหมด

' ให้ Variant เก็บค่า array 2 มิติที่ส่งโดย GetAllSettings, Integer เก็บค่าตัวนับ
Dim MySettings As Variant, intSettings As Integer

' ที่เก็บค่าบางส่วนของ settings ใน registry
SaveSetting appname := "MyApp", section := "Startup", key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50

' ดึงค่า 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"