ตรวจสอบ ฟอนต์ ในเครื่องมีหรือไม่ access ทำได้หรือไม่



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

13 มิ.ย. 61 , 16:41:57
อ่าน 574 ครั้ง

kitisak

ขอโค๊ตตรวจสอบ ฟอนต์ ในเครื่องมีหรือไม่ด้วย access ครับ

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

13 มิ.ย. 61 , 23:42:34
ตอบกลับ #1

TTT

โค๊ด: [Select]
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
<การใช้งาน> CheckFont(ชื่อฟอนต์, ขนาดฟอนต์ (กำหนดหรือไม่ก็ได้))
CheckFont("พส. พิมพ์ดีด ๒ ใหม่", 12)
หรือ
CheckFont("พส. พิมพ์ดีด ๒ ใหม่")
 
Return:
True  คือ มีฟอนต์ชื่อ "พส. พิมพ์ดีด ๒ ใหม่" อยู่ในเครื่องแล้ว และใช้ขนาด 12 ได้
False คือ ไม่มีฟอนต์ชื่อ "พส. พิมพ์ดีด ๒ ใหม่" อยู่ในเครื่อง หรือใช้ขนาด 12 ไม่ได้

ฐานข้อมูลเป็นเรื่องใกล้ตัว ใครๆก็ทำฐานข้อมูลเองได้นะครับhttp://www.youtube.com/c/AccessCreator link
 
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak, มาลี, suaccess


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