code ที่เขียนแสดงเฉพาะ เดือนหรือปีในform

[yodpao.b]

ช่วยเขียน code ที่แสดงเฉพาะ เดือนหรือปีในform

untitled.GIF

Code: Select all

Private Sub UserForm_Initialize()
TextBox1.Text = DateSerial(Year(Date), Month(Date), Day(Date))
TextBox2.Text = DateSerial(Year(Date), Month(Date), Day(Date))
End Sub

[snasui]

ช่วยเขียน code ที่แสดงเฉพาะ เดือนหรือปีในform

Code: Select all

Private Sub UserForm_Initialize()
TextBox1.Text = DateSerial(Year(Date), Month(Date), Day(Date))
TextBox2.Text = DateSerial(Year(Date), Month(Date), Day(Date))
End Sub

ลองตามด้านล่างครับ

Code: Select all

Private Sub UserForm_Initialize()
     TextBox1 = Format(Date, "mmmm")
     TextBox2 = Format(Date, "yyyy")
End Sub

[yodpao.b]

ผมนี่แย่จังเหมือน อาจารย์เคยสอนแล้วดันหาไม่เจอ

[yodpao.b]

untitled.GIF

จากรูปด้านบน สามารถทำให้ ComboBox1 ตรงลูกศรเลือก เป็นสีเทาได้ไหม แต่ ตัวอักษรสีดำ
ผมลองใช้ Enabeld แล้ว ก็ใช้ได้ แต่ตัวหนังสือ มันก็จาง ไม่เป็นสีดำ ทำได้ไหมครับให้เป็นสีดำ

[snasui]

ลองกำหนด Properties เป็น Button Face ครับ

[yodpao.b]

ไม่ได้ครับอาจาร์ย คัวลูกศรยังป็นสีดำ

[snasui]

การทำให้ปุ่มจางต้องกำหนด Enabled = False ซึ่งไม่สามารถกำหนดให้สีอื่นนอกจากเทาจางที่เกิดจากค่า Default ของโปรแกรม และเมื่อกำหนด Enabled = False ก็จะไม่สามารถใช้งานปุ่มได้ครับ

[yodpao.b]

ถูกต้องครับ การทำให้ปุ่มจางต้องกำหนด Enabled = False
ผมต้องการไม่ให้ปุ่มทำงาน ต้องการให้สีจาง แต่อยากได้ตัวหนังสือดำ ต้องเลือกที่ช่องไหนครับ

[snasui]

ทำไม่ได้ครับ

การทำให้ปุ่มจางต้องกำหนด Enabled = False ซึ่งไม่สามารถกำหนดให้สีอื่นนอกจากเทาจางที่เกิดจากค่า Default ของโปรแกรม และเมื่อกำหนด Enabled = False ก็จะไม่สามารถใช้งานปุ่มได้ครับ

[yodpao.b]

ครับผม