Snasui Excel Forum

Posted: **Thu Jun 25, 2015 11:59 am**

ผมต้องการให้สีพื้นของ combobox หรือ textbox เปลี่ยนสีพื้นจากขาวเป็นเหลืองเมื่อ cursor ทำงานอยู่นะครับ ตัวอย่างตามไฟล์แนบครับ

Posted: **Thu Jun 25, 2015 3:30 pm**

ให้เขียน Code สำหรับการเปลี่ยนสีมาก่อน ติดตรงไหนแล้วค่อยถามกันต่อครับ

Posted: **Thu Jun 25, 2015 3:47 pm**

ผมทำได้แค่ตอนที่มีการแก้ไขแล้วให้เปลี่ยนสีนะครับ แต่ให้จับที่ cursor ยังหา code ไม่ได้นะครับ

Posted: **Thu Jun 25, 2015 3:54 pm**

ตัวอย่าง Code ครับ

Code: Select all

Private Sub TBoxName_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    TBoxName.BackColor = RGB(255, 255, 0)
    TBoxSName.BackColor = RGB(255, 255, 255)
    CBoxProv.BackColor = RGB(255, 255, 255)
End Sub

Private Sub TBoxSName_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    TBoxName.BackColor = RGB(255, 255, 255)
    TBoxSName.BackColor = RGB(255, 255, 0)
    CBoxProv.BackColor = RGB(255, 255, 255)
End Sub

Private Sub CBoxProv_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    TBoxName.BackColor = RGB(255, 255, 255)
    TBoxSName.BackColor = RGB(255, 255, 255)
    CBoxProv.BackColor = RGB(255, 255, 0)
End Sub

Posted: **Thu Jun 25, 2015 4:02 pm**

ขอบคุณมากๆครับอาจารย์ทำได้แล้วครับผม

Snasui Excel Forum

สอบถามการกำหนดสีพื้นให้ combobox เมื่อ cursor ทำงาน

สอบถามการกำหนดสีพื้นให้ combobox เมื่อ cursor ทำงาน

Re: สอบถามการกำหนดสีพื้นให้ combobox เมื่อ cursor ทำงาน

Re: สอบถามการกำหนดสีพื้นให้ combobox เมื่อ cursor ทำงาน

Re: สอบถามการกำหนดสีพื้นให้ combobox เมื่อ cursor ทำงาน

Re: สอบถามการกำหนดสีพื้นให้ combobox เมื่อ cursor ทำงาน