สอบถามเรื่อง Property ของ Object ครับ

[bgfc]

สมมุติว่า ใน Form มีปุ่มชื่อ Command0   (ผมเรียก Command0 ว่า Object ตัวหนึ่ง ถูกต้องหรือเปล่าก็ไม่ทราบ หากผิดขออภัย)   คือ ผมอยากทราบว่า Command0 นี้   มี Property ชื่ออะไรบ้าง / และมีค่าเป็นอย่างไร   หมดทุก Property      โดยเขียนเป็น VBA แล้วให้ VBA นั้น สร้างเป็น Text file รายงานผลคือ ชื่อ property และ ค่าขอ Property ตัวนั้น ๆ ออกมาจนครบ

ตัวอย่าง text file

a.text

  command0.caption , "Add"
  command0.FontSize , 11
    .
    .
  จนหมด Property ทุกตัว

ต้องเขียน VBA อย่างไรครับ   เรียนถามท่านผู้รู้ครับ

[สันติสุข]

โค้ดนี้พิมพ์ทุก Property ของทุก Control บนฟอร์มที่ระบุตามชื่อออกเท็กซ์ไฟล์ แต่บาง Property อ่านค่าได้เฉพาะเมื่อเปิดฟอร์มใน Design View มั่ง หรือใน Form View มั่ง ดังนั้นผลลัพธ์จึงอาจแตกต่างเมื่อฟอร์มเปิดใน View ที่ต่างกัน และเพื่อไม่ให้เกิด Runtime Error เมื่ออ่าน Property ตัวไหนไม่ได้ จึงใส่ On Error Resume Next เพื่อข้ามตัวนั้นไป

โค๊ด: [Select]

Public Sub DumpProp()
    Dim obj, prop, str As String
   
    On Error Resume Next
    For Each obj In Forms("ชื่อฟอร์ม")
        For Each prop In obj.Properties
            str = str & vbCrLf & obj.Name & vbTab & prop.Name & vbTab & prop.Value
        Next
    Next
   
    Open "ชื่อพาธและไฟล์.txt" For Output As #1
    Print #1, str
    Close #1
End Sub