กด combobox แล้วโชว์รูปภาพ

[icechosita]

หนูอยากจะให้กดcombobox แล้วโชว์รูปค่ะ หนูได้แนบ code มาด้วย

Code: Select all

Private Sub Private Sub combobox_Change()
intColor = Int((16777215 - 0 + 1) * Rnd + 0)
Select Case combobox
    Case 0
    Imagel.Picture = LoadPicture("D:\New folder\RMBG-C1-0001.jpg")
    Case 1
    Imagel.Picture = LoadPicture("D:\New folder\RMBR-C1-0001.jpg")
    End Select
 End Sub
  

Code: Select all

Private Sub BorrowForm_Initialize()
combobox.AddItem "RMBG-C1-0001"       'ListIndex = 0
combobox.AddItem "RMBR-C1-0001"       'ListIndex = 1
combobox.Style = fmStyleDropDownLis
combobox.BoundColumn = 0
combobox.ListIndex = 0
Imagel.PictureSizeMode = fmPictureSizeModeStretch
End Sub

ซึ่งทำตาม code แล้ว Run ได้ปกติค่ะ แต่รูปไม่โชว์

[snasui]

แนบไฟล์ Excel ที่มี Code นี้พร้อมภาพที่ต้องการจะให้ทดสอบทั้งอธิบายรายละเอียดมาว่าต้องทดสอบตามลำดับอย่างไรมาด้วย จะได้สะดวกในการตอบของเพื่อนสมาชิกครับ

การแนบไฟล์ไม่ควรแนบไฟล์จริง ให้ตัดมาเฉพาะที่เป็นปัญหา อ่านกฎการใช้บอร์ดข้อ 4 ด้านบน ครับ