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



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

01 เม.ย. 64 , 12:51:39
อ่าน 152 ครั้ง


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

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

 

01 เม.ย. 64 , 13:06:46
ตอบกลับ #1

UnKnown

: ให้ฟอร์มโชรูปตามตัวเลือกยังไงครับ
« ตอบกลับ #1 เมื่อ: 01 เม.ย. 64 , 13:06:46 »
กดเลือกที่ไหน?  รูปเปลี่ยนที่ไหน?  และเอารูปจากที่ไหนมาเปลี่ยนครับ :question:

 

01 เม.ย. 64 , 14:26:35
ตอบกลับ #2
: ให้ฟอร์มโชรูปตามตัวเลือกยังไงครับ
« ตอบกลับ #2 เมื่อ: 01 เม.ย. 64 , 14:26:35 »
ณุปจากที่เก็บไว้ครับ กดเลือกโดยกดารปุ่มตัวเลือกครับ เพื่อกดแล้ว ให้รูปที่อยู่ในกรอบรูปภาพเปลี่ยนตามครับ ตัวเลือกที่กดครับ

 

01 เม.ย. 64 , 20:04:47
ตอบกลับ #3

UnKnown

: ให้ฟอร์มโชรูปตามตัวเลือกยังไงครับ
« ตอบกลับ #3 เมื่อ: 01 เม.ย. 64 , 20:04:47 »
แนวคือเมื่อเลือกตัวเลือกอันไหนแล้วตัวอื่นจะถูกยกเลิกจากนั้นก็จะนำภาพของตัวเลือกนั้นไปแสดงข้างล่างอีกทีใช่หรือไม่ครับ


โค๊ด: [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
« แก้ไขครั้งสุดท้าย: 01 เม.ย. 64 , 20:13:47 โดย UnKnown »

 
โพสต์นี้ได้รับคำขอบคุณจาก: pirin, sjs

02 เม.ย. 64 , 08:01:24
ตอบกลับ #4

PNR

: ให้ฟอร์มโชรูปตามตัวเลือกยังไงครับ
« ตอบกลับ #4 เมื่อ: 02 เม.ย. 64 , 08:01:24 »
B > รับ PIPE 20 M ......

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


บอร์ดเรียนรู้ Access สำหรับคนไทย