กระทู้เก่าบอร์ด อ.Yeadram
3,921 4
URL.หัวข้อ /
URL
ต้องการให้ตัวอักษรใน text box เปลี่ยนสีตามเงื่อนไข
รบกวนสอบถามค่ะ
หากต้องการให้ตัวอักษรใน text box เดียวกันเปลี่ยนสีไปตามเงื่อนไขที่ต้องการ
ยกตัวอย่างเช่น
เงื่อนไขที่ 1 : 0 > x < 50 ให้ตัวอักษรเป็นสีดำ
เงื่อนไขที่ 2 : 50 > x < 60 ให้ตัวอักษรเป็นสีเหลือง
เงื่อนไขที่ 3 : x > 60 ให้ตัวอักษรเป็นสีแดง
โดยกำหนดให้ใน property sheet ของ text box เราสร้างเงื่อนไขในแท็บ after update
ต้องใช้งานโปรแกรมอย่างไรค่ะ
หากต้องการให้ตัวอักษรใน text box เดียวกันเปลี่ยนสีไปตามเงื่อนไขที่ต้องการ
ยกตัวอย่างเช่น
เงื่อนไขที่ 1 : 0 > x < 50 ให้ตัวอักษรเป็นสีดำ
เงื่อนไขที่ 2 : 50 > x < 60 ให้ตัวอักษรเป็นสีเหลือง
เงื่อนไขที่ 3 : x > 60 ให้ตัวอักษรเป็นสีแดง
โดยกำหนดให้ใน property sheet ของ text box เราสร้างเงื่อนไขในแท็บ after update
ต้องใช้งานโปรแกรมอย่างไรค่ะ
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R21350
ขอบคุณมากๆเลยค่ะ
จะนำไปปรับใช้และฝึกหัดโปรแกรมต่อไปค่ะ
จะนำไปปรับใช้และฝึกหัดโปรแกรมต่อไปค่ะ
3 @R21353
รบกวนสอบถามเพิ่มเติมค่ะ จากกรณีข้างต้น
หากเราต้องการทำเป็นแบบ Macro Builder
เราต้องกำหนดเงื่อนไขก่อน เช่น
เริ่มต้นเลือกใช้งานคำสั่ง If ใน Catalog Action จะได้ว่า
If [txtFont] <= 50
แล้วแอคชั่นย่อยลงไป โดยเลือกคำสั่ง SetProperty
โปรแกรมจะให้ใส่รายละเอียด จะได้ว่า
Control name .............................
Property ..................................... (ในที่นี้ใช้ ForeColor)
Value ......................................... (ใส่ค่าสีที่ต้องการ)
อยากทราบว่า Value ที่โปรแกรมให้กรอกหมายถึงสีที่ต้องการ ควรจะใส่ argument อย่างไรดีคะ ขอคำแนะนำด้วยคะ
หากเราต้องการทำเป็นแบบ Macro Builder
เราต้องกำหนดเงื่อนไขก่อน เช่น
เริ่มต้นเลือกใช้งานคำสั่ง If ใน Catalog Action จะได้ว่า
If [txtFont] <= 50
แล้วแอคชั่นย่อยลงไป โดยเลือกคำสั่ง SetProperty
โปรแกรมจะให้ใส่รายละเอียด จะได้ว่า
Control name .............................
Property ..................................... (ในที่นี้ใช้ ForeColor)
Value ......................................... (ใส่ค่าสีที่ต้องการ)
อยากทราบว่า Value ที่โปรแกรมให้กรอกหมายถึงสีที่ต้องการ ควรจะใส่ argument อย่างไรดีคะ ขอคำแนะนำด้วยคะ
4 @R21354
สีแดง #FF0000
สีเขียว #00FF00
สีน้ำเงิน #0000FF
สีดำ #000000
สีขาว #FFFFFF
ดูได้จากสีใน Property ของ Fore Color
ใส่รหัสสีเป็นเลขฐาน 16 จำนวน 3 คู่ แบบ RBG
สีเขียว #00FF00
สีน้ำเงิน #0000FF
สีดำ #000000
สีขาว #FFFFFF
ดูได้จากสีใน Property ของ Fore Color
ใส่รหัสสีเป็นเลขฐาน 16 จำนวน 3 คู่ แบบ RBG
Time: 0.2515s
โดยใส่ Code นี้เข้าไปที่ AfterUpdate ของ TextBox ที่ต้องการเปลี่ยนสี
ในที่นี้ Text Box ผมใช้ชื่อว่า txtFont
Private Sub txtFont_AfterUpdate()
Select Case txtFont
Case Is <= 0
txtFont.ForeColor = vbWhite
Case Is <= 50
txtFont.ForeColor = vbBlack
Case Is <= 60
txtFont.ForeColor = vbYellow
Case Is > 60
txtFont.ForeColor = vbRed
End Select
End Sub