ขอทราบวิธีตรวจสอบฟอนต์ในระบบหน่อยค่ะ

[มาลี]

ขออนุญาตสอบถามนะคะ
หนูอยากทราบว่า มีวิธีการใดที่สามารถตรวจสอบฟอนต์ในระบบว่ามีฟอนต์นี้อยู่หรือไม่
หากไม่มีก็แจ้งเตือนแนะนำให้ผู้ใช้ติดตั้งฟอนต์ดังกล่าวก่อน

คือหนูเจอปัญหาออกแบบโปรแกรมเอาไว้ โดยส่วนใหญ่ก็ใช้ฟอนต์ Angsana new
ที่นี้ปัจจุบัน Windows 10 เขาไม่มีฟอนต์ Angsana new ให้ใช้แล้ว
ทำให้เกิดปัญหาส่วนที่ออกแบบโดยใช้ฟอนต์ Angsana new เอาไว้นั้น แสดงขนาดฟอนต์ผิดเพี้ยนไปหมด

จึงอยากขอรบกวนอาจารย์ทุกท่านว่า เราพอจะมีวิธีตรวจสอบฟอนต์ในระบบได้หรือไม่ อย่างไรคะ
ขอคุณค่ะ

[สันติสุข]

https://www.thai-access.com/index.php?topic=370.msg1542#msg1542

[มาลี]

ขอบคุณค่ะอาจารย์
ได้แนวทางแล้วค่ะ

[มาลี]

ยังไม่สำเร็จเลยค่ะอาจารย์
หนูทดลองเอาโค๊ดตามลิงค์ที่ท่านแนะนำไปใฃ้ในฟอร์มดังนี้

Option Compare Database
Function CheckFont(fontName As String, Optional fontSize As Integer) As Boolean
    On Error Resume Next
    With New StdFont
        .Name = fontName
        If fontSize > 0 Then .Size = fontSize
        CheckFont = (StrComp(fontName, .Name, vbTextCompare) = 0)
        fontName = .Name
        fontSize = .Size
    End With
End Function

Private Sub Command0_Click()
    CheckFont ("Angsana New")
     MsgBox "ไม่มีฟอนต์นี้ในระบบ"
End Sub

มันจะขึ้น MsgBox มาเสมอไม่ว่าจะมีฟอนต์นี้หรือไม่ก็ตาม

จุดประสงค์คือต้องการตรวจสอบว่าฟอนต์ Angsana New มีอยู่หรือไม่ หนูไม่ทราบวิธีนำไปใช้ว่าทำถูกต้องหรือไม่
โปรดให้คำแนะนำด้วยนะคะ

[สันติสุข]

ต้องเช็คผลจากฟังก์ชั่นก่อนด้วยสิครับ ถึงจะบอกได้ว่ามีหรือขาดฟอนท์นั้น


Private Sub Command0_Click()
    If Not CheckFont ("Angsana New") Then
       MsgBox "ไม่มีฟอนต์นี้ในระบบ"
    End If
End Sub

[มาลี]

  เย้..สำเร็จแล้ว
ขอบพระคุณอย่างยิ่งค่ะอาจารย์