กระทู้เก่าบอร์ด อ.Yeadram
1,688 9
URL.หัวข้อ /
URL
สอบถามขนาด Font Text box
ผมทำโปรแกรมคิว ต้องการให้แสดงหมายเลขคิวขนาดใหญ่แสดงให้เห็นทางหน้าจอ โดยสร้างเป็น Text box แต่ปรับขนาด Font ได้สูงสุดแค่ 127 ซึ่งมันเล็กเกินไป พอจะมีวิธีอื่นที่ทำให้ได้ Font ใหญ่เต็มจอบ้างครับ ขอบคุณครับ
9 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R19535
127 ใหญ่สุดแล้วครับ คุณเปลี่ยน Font เป็นพวก Tahoma , MS Reference Sans Serif ดูนะครับ หรือโหลด Font ที่ตัวใหญ่ๆมาลงดูนะครับ
2 @R19537
ถ้าอยากได้แบบเต็มจอ
ผมเคยทำเมื่อนานมาแล้ว แต่เป็นวิธีการสร้างเลข 0-9 เป็นไฟล์รูป ขนาดตัวหนังสือใหญ่ๆมาก่อน แล้วค่อยเขียนโค้ดผูกไว้ว่ารูปไหนเลขไหน เมื่อผู้ใช้กรอกเลขมา ระบบก็จะปริ้นรูปนั้นออกมา
ผมเคยทำเมื่อนานมาแล้ว แต่เป็นวิธีการสร้างเลข 0-9 เป็นไฟล์รูป ขนาดตัวหนังสือใหญ่ๆมาก่อน แล้วค่อยเขียนโค้ดผูกไว้ว่ารูปไหนเลขไหน เมื่อผู้ใช้กรอกเลขมา ระบบก็จะปริ้นรูปนั้นออกมา
3 @R19538
น่าสนใจครับคุณ GOD_ENEL พอจะยกตัวอย่าง code ได้ไหมครับ ขอบคุณครับ
4 @R19540
- ทำแบบที่คุณ GOD_ENEL ก็ดีครับจะทำได้หลากหลายตามใจมากกว่า
- แต่หากอยากทำแบบไม่ต้องเขียนอะไรมากนัก ก็ให้ไปใช้ ActiveX Control ชื่อ Microsoft Forms 2.0 TextBox มาใช้แทน TextBox ที่ใช้อยู่ครับ
แต่มันจะไม่มี Property พวกกำหนดขนาดให้ ให้เรากำหนดให้มันโดยเขียน VBA แทนดังนี้นะครับ
- สมมุติ ActiveX Control Textbox ใช้ชื่อ TextBox1
- ที่ Event > On Open: กำหนดค่าให้มันโดยเขียนประมาณนี้ครับ
Me.TextBox1.FontName = "Tahoma"
Me.TextBox1.FontSize = 400
Me.TextBox1.FontWeight = 500
Me.TextBox1.WordWrap = False
ปรับใช้ดูครับ
- แต่หากอยากทำแบบไม่ต้องเขียนอะไรมากนัก ก็ให้ไปใช้ ActiveX Control ชื่อ Microsoft Forms 2.0 TextBox มาใช้แทน TextBox ที่ใช้อยู่ครับ
แต่มันจะไม่มี Property พวกกำหนดขนาดให้ ให้เรากำหนดให้มันโดยเขียน VBA แทนดังนี้นะครับ
- สมมุติ ActiveX Control Textbox ใช้ชื่อ TextBox1
- ที่ Event > On Open: กำหนดค่าให้มันโดยเขียนประมาณนี้ครับ
Me.TextBox1.FontName = "Tahoma"
Me.TextBox1.FontSize = 400
Me.TextBox1.FontWeight = 500
Me.TextBox1.WordWrap = False
ปรับใช้ดูครับ
5 @R19543
ความรู้ใหม่ ผมไม่เคยคิดว่ามันจำเป็นต้องใช้มาก่อนเลย สงสัยต้องกลับไปอ่าน Reference ของพวกนี้แล้วว่ามันทำอะไรได้บ้าง บางทีอาจตอบโจทย์ในงานบางอย่างได้
6 @R19544
ขอบคุณครับ จะนำไปปรับใช้ดู
7 @R19545
OK ครับ แต่ปรับสี Font ได้มั้่ยครับ หรือว่าได้แต่สีดำ
8 @R19552
ได้ครับ ส่วนใหญ่จะใช้ชื่อ Property เหมือนกันสำหรับการกำหนดอักษร
สี
Me.TextBox1.ForeColor = RGB(255, 0, 0)
ตัวเอียง
Me.TextBox1.FontItalic = True
เส้นใต้
Me.TextBox1.FontUnderline = True
หลายบรรทัด
Me.TextBox1.MultiLine = True
ก็ใช้คล้ายๆกับ Property ของ Textbox มาตรฐานบนฟอร์ม MS Access เพียงแต่มันไม่ได้ถูกออกแบบมาให้ใช้กับ MS Access ตรงๆ Property บางตัวเลยไม่รองรับ Tool ของ MS Access ต้องสั่งโดยใช้โค๊ตแทน
สี
Me.TextBox1.ForeColor = RGB(255, 0, 0)
ตัวเอียง
Me.TextBox1.FontItalic = True
เส้นใต้
Me.TextBox1.FontUnderline = True
หลายบรรทัด
Me.TextBox1.MultiLine = True
ก็ใช้คล้ายๆกับ Property ของ Textbox มาตรฐานบนฟอร์ม MS Access เพียงแต่มันไม่ได้ถูกออกแบบมาให้ใช้กับ MS Access ตรงๆ Property บางตัวเลยไม่รองรับ Tool ของ MS Access ต้องสั่งโดยใช้โค๊ตแทน
9 @R19561
แค่นี้ก็สุดยอดแล้ว ใช้งานได้เลย ขอบคุณมากๆ ครับ
Time: 0.3288s