Snasui Excel Forum

สวัสดีครับอาจารย์และทุกท่านที่เก่งExcel ผมพึ่งหัดเรียนรู้การใช้VBA ผมมีปัญหาดังนี้ครับ ผมสร้าง frmCustom มีtxtBoxรับค่าเลขที่บัตรประชาชน แล้วมีImgBox เพื่อแสดงรูปภาพที่ชื่อเดียวกันกับเลขที่บัตรประชาชนบนฟอร์มครับ ผมได้ศึกษาตัวอย่างที่อาจารย์เคยตอบไว้ แต่เป็นการใช้ lstBox ร่วมกับ imgBox ตัวอย่างที่อาจารย์เคยให้ความรู้ไว้
Private Sub ListBox1_Click()
myPic = "D:\My Picture\ListBox1 & ".jpg"
imgbox02.Picture = LoadPicture(myPic)
End Sub
ผมได้เขียนตามนี้ทุกประการครับแต่ไม่สามารถทำได้ มันขึ้นDebug "Compile error Expexted: end of statement" แล้วบรรทัดmyPic = "D:\My Picture\ListBox1 & ".jpg" มันไปเตือนอยู่ที่จุดของjpgครับ รบกวนอาจารย์หรือพี่ๆที่ทราบช่วยตอบหน่อยนะครับว่าเป็นเพราะเหตุใด แต่พอเขียนแบบนี้มันทำงานได้ครับ
Private Sub ListBox1_Click()
myPic = "D:\My Picture\3949800017526.jpg"
imgbox02.Picture = LoadPicture(myPic)
End Sub
ขอบคุณครับ หากพอจะกรุณาช่วยยกตัวอย่างความสัมพันธุ์ระหว่าง txtBox กับ ImageBox ให้ด้วยนะครับ

ลองแก้จาก

myPic = "D:\My Picture\ListBox1 & ".jpg"

เป็น

myPic = "D:\My Picture\" & ListBox1 & ".jpg" ดูครับ เนื่องจากตัวอย่างที่ผมให้ไว้ก่อนหน้านี้น่าจะคีย์ตกไปครับ

กรณีดึงรูปมาแสดง ความสัมพันธ์ระหว่าง ListBox กับ ImageBox คือสามารถเลือกชื่อรูปใน ListBox ที่มีหลาย ๆ ชื่อ เมื่อเลือกแล้วรูปก็จะมาแสดงให้ใน ImageBox ครับ แต่หากเป็นความสัมพันธ์ของ TextBox กับ ImageBox ก็ต้องคีย์ชื่อรูปเข้าไปใน TextBox แล้วรูปก็จะแสดงใน ImageBox

ขอบคุณมากครับทำได้แล้วครับและได้ปรับใช้กับtxtBox ขอบคุณครับ