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



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

13 มี.ค. 63 , 06:24:26
อ่าน 253 ครั้ง

มาลี

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

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

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

 

13 มี.ค. 63 , 10:32:09
ตอบกลับ #1

สันติสุข

ช่วยพกถุงผ้า/ถุงพลาสติกใช้แล้วไปซื้อของเพื่อลดการใช้พลาสติก ขยะ รักษาสิ่งแวดล้อม และไม่ให้ภาวะโลกร้อนวิกฤติเร็วขึ้นกว่านี้
ช่วยคลิกโฆษณาข้างล่างนี้ เพื่อสนับสนุนเวปบอร์ดด้วยครับ
:nice day:
 
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี

13 มี.ค. 63 , 10:58:13
ตอบกลับ #2

มาลี

: ขอทราบวิธีตรวจสอบฟอนต์ในระบบหน่อยค่ะ
« ตอบกลับ #2 เมื่อ: 13 มี.ค. 63 , 10:58:13 »
ขอบคุณค่ะอาจารย์
ได้แนวทางแล้วค่ะ

 
โพสต์นี้ได้รับคำขอบคุณจาก: สันติสุข

13 มี.ค. 63 , 20:08:42
ตอบกลับ #3

มาลี

: ขอทราบวิธีตรวจสอบฟอนต์ในระบบหน่อยค่ะ
« ตอบกลับ #3 เมื่อ: 13 มี.ค. 63 , 20:08:42 »
ยังไม่สำเร็จเลยค่ะอาจารย์
หนูทดลองเอาโค๊ดตามลิงค์ที่ท่านแนะนำไปใฃ้ในฟอร์มดังนี้

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 มีอยู่หรือไม่ หนูไม่ทราบวิธีนำไปใช้ว่าทำถูกต้องหรือไม่
โปรดให้คำแนะนำด้วยนะคะ

 

13 มี.ค. 63 , 22:17:19
ตอบกลับ #4

สันติสุข

: ขอทราบวิธีตรวจสอบฟอนต์ในระบบหน่อยค่ะ
« ตอบกลับ #4 เมื่อ: 13 มี.ค. 63 , 22:17:19 »
ต้องเช็คผลจากฟังก์ชั่นก่อนด้วยสิครับ ถึงจะบอกได้ว่ามีหรือขาดฟอนท์นั้น


Private Sub Command0_Click()
    If Not CheckFont ("Angsana New") Then
       MsgBox "ไม่มีฟอนต์นี้ในระบบ"
    End If
End Sub
ช่วยพกถุงผ้า/ถุงพลาสติกใช้แล้วไปซื้อของเพื่อลดการใช้พลาสติก ขยะ รักษาสิ่งแวดล้อม และไม่ให้ภาวะโลกร้อนวิกฤติเร็วขึ้นกว่านี้
ช่วยคลิกโฆษณาข้างล่างนี้ เพื่อสนับสนุนเวปบอร์ดด้วยครับ
:nice day:
 
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี

14 มี.ค. 63 , 04:59:39
ตอบกลับ #5

มาลี

: ขอทราบวิธีตรวจสอบฟอนต์ในระบบหน่อยค่ะ
« ตอบกลับ #5 เมื่อ: 14 มี.ค. 63 , 04:59:39 »
 :shout: เย้..สำเร็จแล้ว
ขอบพระคุณอย่างยิ่งค่ะอาจารย์

 


บอร์ดเรียนรู้ Access สำหรับคนไทย