ภาพแสดงในimage
Posted: Tue Jul 15, 2014 10:08 am
เรียน อาจารย์และท่านผู้รู้ทุกท่าน
ต้องการให้ภาพแสดงตามชื่อที่ โดยเขียน โค๊ต ดังนี้
จะต้องปรับปรุงโค๊ดอย่างไรภาพจึงจะแสดงได้ สำหรับไฟล์ได้แนบมาด้วยแล้ว
ต้องการให้ภาพแสดงตามชื่อที่ โดยเขียน โค๊ต ดังนี้
Code: Select all
Private Sub ComboBox1_Change()
fPath = "G:\&.jpg" 'ที่เก็บภาพและรูปภาพ
On Error Resume Next
Image1.Picture = LoadPicture(fPath & "nopic.jpg")
Image1.Picture = LoadPicture(fPath & ComboBox1.Text & ".jpg")
End Sub
เปลี่ยน Code จาก