Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ ระบบฐานข้อมูล
Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ การเขียนโปรแกรม
Access : เป็นได้ทั้งตัวเก็บฐานข้อมูล และตัวจัดการฐานข้อมูล
Thai Access : บอร์ดเสริมการเรียนรู้ Access ด้วยภาษาไทย

น้อมรำลึกในพระมหากรุณาธิคุณอันหาที่สุดมิได้ พระบาทสมเด็จพระปรมินทรมหาภูมิพลอดุลยเดชฯ พระผู้เสด็จสู่สวรรคาลัย

Back to Board : Thai Access Webboard New Topic    Reply
ดูฟอนต์วในเครื่องจาก word

Topic by Message Posted : on : 13/8/2560 8:59:19
กิติศักดิ์ จันทรา  เคยมีอาจารย์ท่านหนึ่งในบอร์ดนี้ เขียน VB ใน word เพื่อดูฟอนต์ในเครื่องทั้งหมด โดยเรียงตามตัวอักษร หาดูแล้วไม่เจอ ไม่ทราบว่าท่านใดมีบ้างครับ หรือมีวิธีอื่นที่ดูได้ โดยเรียงฟอนต์ด้วยครับ
(ขออภัยครับที่จำชื่ออาจารย์ที่ทำไม่ได้)

2 Reply in this Topic. Dispaly 1 pages and you are on page number 1

Reply by Message on : 14/8/2560 0:24:33
pizza_p
(R23891)
Private Sub listFonts()
    Dim wd As Object, fontID As Variant

    Set wd = CreateObject("Word.Application")

    For Each fontID In wd.FontNames
        Me.List1.AddItem fontID
    Next
    wd.Quit
    Set wd = Nothing
End Sub

อันนี้คือไม่ Sort ถ้าจะ sort ก็เอาไปใส่ตารางแล้ว sort เอาครับ
Back to Top
Reply by Message on : 14/8/2560 11:26:04
pizza_p
(R23892)
กรณีจะเลือก font ผมแนะนำให้ใช้ Win API จะดีกว่า เพราะทำงานได้เร็วกว่าการไปสร้างไฟล์ word แล้วไปดึงรายชื่อ font ออกมา

ตัวอย่างการใช้ Win API โหลดได้จาก

http://www.lebans.com/fontcolordialog.htm
Back to Top

Reply

 *Indicates required fields
Format:
Bold Under Line Italic Add Hyperlink Add Email Link Italic List Indent Add Image Emoticons Insert code Mode:
Message:*
Your Name*:
Normal word*: Please input : ไทยแอ็คเซส
+++ webboard source: ASPThai.Net Webboard 6.0 webbord +++++++ admin : yeadram +++