ให้ฟอร์มโชรูปตามตัวเลือกยังไงครับ

[ชุติพนธ์ มหาทรัพย์]

ต้องให้เวลากดเลือกแล้ว รูปจะเปลี่ยนไปตามตัวเลือกอะครับ

ต้องเขียนโค้ทยังไงหรอครับ

[UnKnown]

กดเลือกที่ไหน?  รูปเปลี่ยนที่ไหน?  และเอารูปจากที่ไหนมาเปลี่ยนครับ

[ชุติพนธ์ มหาทรัพย์]

ณุปจากที่เก็บไว้ครับ กดเลือกโดยกดารปุ่มตัวเลือกครับ เพื่อกดแล้ว ให้รูปที่อยู่ในกรอบรูปภาพเปลี่ยนตามครับ ตัวเลือกที่กดครับ

[UnKnown]

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

โค๊ด: [Select]

Option Compare Database

Private Sub SLBoss1_Click()
Call unOption
Me.SLBoss1 = True
Me.Image11.Picture = CurrentProject.Path & "\Pics\" & "card_30021.jpg"
End Sub
Private Sub SLBoss2_Click()
Call unOption
Me.SLBoss2 = True
Me.Image11.Picture = CurrentProject.Path & "\Pics\" & "card_30017.jpg"
End Sub
Private Sub SLBoss3_Click()
Call unOption
Me.SLBoss3 = True
Me.Image11.Picture = CurrentProject.Path & "\Pics\" & "card_30015.jpg"
End Sub
Private Sub SLBoss4_Click()
Call unOption
Me.SLBoss4 = True
Me.Image11.Picture = CurrentProject.Path & "\Pics\" & "card_30011.jpg"
End Sub
Private Sub SLBoss5_Click()
Call unOption
Me.SLBoss5 = True
Me.Image11.Picture = CurrentProject.Path & "\Pics\" & "card_30006.jpg"
End Sub

Sub unOption()
'ชุดคำสั่งเพี่อให้ตัวเลือกทั้งหมดถูกยกเลิก
Dim ctl As Control
    For Each ctl In Me.Controls
     Select Case ctl.ControlType
       Case acOptionGroup, acOptionButton
           ctl.Value = Null
       Case acCheckBox
          ctl.Value = False
    End Select
   Next
   Set ctl = Nothing
End Sub


[PNR]

B > รับ PIPE 20 M ......