ทำได้แล้วค่ะ
ตั้งกระทู้เสร็จก็นั่งค้นหาดูไปเจอที่กระทู้นี้ค่ะ

thaiaccess board

ขออภัยที่ไม่ได้ค้นหาให้ถี่ถ้วนเสียก่อน

แนะนำนิดนะครับ คือการทำที่ On mouse move ให้เราสร้างเงื่อนไขตรวจสอบก่อนแล้วถ้าไม่ตรงแล้วค่อยสั่งเปลี่ยนกับวัตถุนั้น หากตรงก็ไม่ต้องทำ เพื่อจะไม่ให้มันเกิดอาการกระพิบตลอดเมื่อเราเลื่อนเมาส์อะครับ เช่น

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Me.Label0.ForeColor <> RGB(255, 0, 0) Then 'ใส่การตรวจสอบก่อนจะได้ไม่ต้องทำตลอดเมื่อเลื่อนเมาส์
        Me.Label0.ForeColor = RGB(255, 0, 0)
    End If
End Sub

Private Sub Label0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Me.Label0.ForeColor <> RGB(0, 255, 0) Then 'ใส่การตรวจสอบก่อนจะได้ไม่ต้องทำตลอดเมื่อเลื่อนเมาส์
        Me.Label0.ForeColor = RGB(0, 255, 0)
    End If
End Sub

วิธีแรกที่หนูทำมันเกิดการกระพิบ ตามที่ท่าน TTT กล่าวไว้จริงๆค่ะ
จะลองเปลี่ยนใช้แนวทางใหม่ ตามที่ท่าน TTT แนะนำค่ะ ขอบคุณนะคะ

ได้ผลดีเยี่ยมเลยค่ะอาจารย์
หนูขอรบกวนเพิ่มเติมอีกนนิดนะคะ หากเรามี Label มากกว่าหนึ่ง เช่น สมมคิว่ามี 10 Label เราต้องเขียนโค๊ดอย่างไรให้สามารถตรวจสอบพร้อมกันได้ทั้ง 10 Label โดยไม่ต้องเขียนคำสั่งให้แต่ละ Label
ขอความช่วยเหลือเพิ่มเติมอีกนิดนะคะอาจารย์

หนูทดลองทำดู 4 Label

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        If Me.Label0.ForeColor <> "0" Then 'ãÊè¡ÒõÃǨÊͺ¡è͹¨Ðä´éäÁèµéͧ·ÓµÅÍ´àÁ×èÍàÅ×è͹àÁÒÊì
        Me.Label0.ForeColor = "0"
    End If
        If Me.Label1.ForeColor <> "0" Then 'ãÊè¡ÒõÃǨÊͺ¡è͹¨Ðä´éäÁèµéͧ·ÓµÅÍ´àÁ×èÍàÅ×è͹àÁÒÊì
        Me.Label1.ForeColor = "0"
    End If
    If Me.Label2.ForeColor <> "0" Then 'ãÊè¡ÒõÃǨÊͺ¡è͹¨Ðä´éäÁèµéͧ·ÓµÅÍ´àÁ×èÍàÅ×è͹àÁÒÊì
        Me.Label2.ForeColor = "0"
    End If
    If Me.Label3.ForeColor <> "0" Then 'ãÊè¡ÒõÃǨÊͺ¡è͹¨Ðä´éäÁèµéͧ·ÓµÅÍ´àÁ×èÍàÅ×è͹àÁÒÊì
        Me.Label3.ForeColor = "0"
    End If
End Sub

Private Sub Label0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Me.Label0.ForeColor <> "255" Then 'ãÊè¡ÒõÃǨÊͺ¡è͹¨Ðä´éäÁèµéͧ·ÓµÅÍ´àÁ×èÍàÅ×è͹àÁÒÊì
        Me.Label0.ForeColor = "255"
    End If
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Me.Label1.ForeColor <> "255" Then 'ãÊè¡ÒõÃǨÊͺ¡è͹¨Ðä´éäÁèµéͧ·ÓµÅÍ´àÁ×èÍàÅ×è͹àÁÒÊì
        Me.Label1.ForeColor = "255"
    End If
End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Me.Label2.ForeColor <> "255" Then 'ãÊè¡ÒõÃǨÊͺ¡è͹¨Ðä´éäÁèµéͧ·ÓµÅÍ´àÁ×èÍàÅ×è͹àÁÒÊì
        Me.Label2.ForeColor = "255"
    End If
End Sub

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Me.Label3.ForeColor <> "255" Then 'ãÊè¡ÒõÃǨÊͺ¡è͹¨Ðä´éäÁèµéͧ·ÓµÅÍ´àÁ×èÍàÅ×è͹àÁÒÊì
        Me.Label3.ForeColor = "255"
    End If
End Sub



เขียนไว้อย่างนี้ ไม่ทราบว่าถูกต้องตามหลักการเขียนโค๊ดหรือเปล่าคะ

ผมแนะนำให้ใส่โค้ดเป็นลักษณะนี้จะดีกว่า เราจะใช้ object variable ActiveLabel เป็นตัวเก็บว่าลาเบลไหนที่ถูกเปลี่ยนสีไป ไม่งั้นถ้ามีการเพิ่มลาเบลทีนึง คุณมาลีก็ต้องมาเพิ่มใน Detail_MouseMove procedure ที โค้ดมันจะยาวไปเรื่อยๆ


Option Compare Database
Option Explicit

Dim ActiveLabel As Access.Label

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Not (ActiveLabel Is Nothing) Then
        ActiveLabel.ForeColor = vbBlack
        Set ActiveLabel = Nothing
    End If
End Sub

Private Sub Label0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     If Me.Label0.ForeColor <> vbBlue Then Call SetActiveLabel(Me.Label0)
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     If Me.Label1.ForeColor <> vbBlue Then Call SetActiveLabel(Me.Label1)
End Sub

Private Sub SetActiveLabel(L As Access.Label)
    If Not (ActiveLabel Is Nothing) Then
        ActiveLabel.ForeColor = vbBlack
        Set ActiveLabel = Nothing
    End If
    
    Set ActiveLabel = L
    ActiveLabel.ForeColor = vbBlue
End Sub


เยี่ยมไปเลยค่ะ.....

โค๊ดนี้กระชับและช่วยให้เขียนได้ง่ายมากยิ่งขึ้น

ขอบคุณมากค่ะอาจารย์

ผมเห็นโค๊ดแล้วนึกสนุกว่าเรามาทำเป็นเมนูเล่นๆก็ได้นะครับ เลยอัดเป็นคลิปไว้ เป็นแนวทางเผื่อใครสนใจทำดูครับ แค่แนวคิดนะครับ ใช้จริงคิดว่ายังปรับให้ดีกว่านี้ได้อีก

คลิปทำเมนูเองบนฟอร์ม

ดูภาพไม่ค่อยชัดเลยค่ะอาจารย์
หนูขอไฟล์ตัวอย่างได้ไหมคะ ไอเดียร์ของอาจารย์น่าจะเอาไว้เป็นแบบอย่างพัฒนาต่อได้อีกมากเลย ชอบมากค่ะ

น่าสนใจมากครับ แต่วีดีโอ ไม่ชัดเลยครับ

! ผมว่าชัดพอควรแล้วนะครับ อัดโหมด HD 720p เลยนะครับ

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

ขอความรู้เพื่อนๆ อาจารย์ทุกท่านหน่อยครับว่า เราสามารถหาความสูงแต่ละบรรทัดของ List Box ได้อย่างไรครับ คือถ้าได้ดูวิดีโอ ตอนเลื่อนเมาส์ List box แล้วให้ cursor มัน Select หัวข้อใน List box ตามเมาส์เลย มันไม่ค่อยยืดหยุ่นอะครับ คือถ้าเปลี่ยนชื่อฟอนต์ ขนาดฟอนต์ มันต้องปรับแก้เองอะครับ ผมจะลองคิดสูตรใหม่ดู หรือมีวิธีดีกว่ามานั่งตรวจ Pointer mouse ก็แนะนำหน่อยนะครับ อยากรู้เหมือนกันว่า List Box ใน MS Access ทำให้ Select ไปตามเมาส์เลยป่าว

โทษทีที่ช้านะครับพอดีขอแก้ไขบางอย่าง และอยากเสริมนิดหน่อยให้ดูใช้งานได้จริงอะครับ แต่พอดีเวลาน้อยนิด ประมาณนี้แล้วกันครับ

โหลดที่นี่

หวังว่าคงเป็นประโยชน์ให้โปรแกรมทุกท่านที่กำลังสนใจน่าใช้ยิ่งขึ้นนะครับ โดยเฉพาะฟอร์มที่ต้องทำปุ่มเยอะๆนานๆใช้ทีแต่ต้องมี ดูแล้วตาลายไปหมด ก็น่าจะช่วยลดพื้นทีไปได้ดี

ขอบคุณมากๆ ค่ะอาจารย์
ขอนำไปศึกษาขยายผลต่อนะคะ