คำถามเกี่ยวกับการแสดงรูปในฟอร์ม

[yodpao.b]

สวัสดีครับอาจารย์ พอดีไปทำงานต่างจังหวัดมาเดือนหนึ่งครับเพิ่งกับมาตอนปีใหม่
พอดีเพื่อนวานให้ทำข้อมูลเกี่ยวกับบุคคล
ตอนนี้มีปัญหาเกี่ยวกับรูปภาพจึงขอรบกวนอาจาร์ยซักหน่อย

[yodpao.b]

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

untitled.GIF

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

Code: Select all

Private Sub ComboBox2_Change()
    CommandButton5.Enabled = True
    CommandButton6.Enabled = False
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
    TextBox4.Text = ""
    TextBox5.Text = ""
    TextBox6.Text = ""
    TextBox7.Text = ""
    TextBox21.Text = ""
    TextBox22.Text = ""
    TextBox23.Text = ""
    TextBox24.Text = ""
    TextBox25.Text = ""
    TextBox26.Text = ""
    TextBox27.Text = ""
    TextBox28.Text = ""
    TextBox29.Text = ""
    TextBox30.Text = ""
    TextBox31.Text = ""
End Sub

ทั้งนี้ได้แนบไฟล์คำถาม และขั้นตอนการทำงานมาให้อาจาร์ยดู ชึ่งอยู่ใน Sheet1
ขอบคุณครับ

[yodpao.b]

คำถามที่ 2 ต้องการคลิกเลือกรูปแล้วให้แสดง โฟร์เดอร์ C:\Documents and Settings\Administrator\My Documents\My Pictures\Picture แล้วหลังจากเลือกรูปแล้วนำรหัสให้มันเข้าไปอยู่ใน textbox 18
คำอธิบาย
เมื่อคลิกเลือกรูปก็จะสั่งให้ไป ค้นหารูปใน โฟเดอร์ เมื่อเจอรูปที่ต้องการแล้วก็คลิกรูป
หลังจากนั้นก็ให้นำชื่อรูปมาใส่ใน textbox 18
โค้ดคำสั่งแบบนี้ไม่เคยได้ใช้จึงเรียนให้อาจาร์ยช่วยแก้ไขโค้ดให้ด้วย
โคด้ที่ใช้แสดงด้านล่างใช้งานอยู่แต่ยังไม่ถูก

Code: Select all

Private Sub CommandButton5_Click()
fileOpenName = Application.GetOpenFilename(fileFilter:="All Files (*.*), *.*")
End Sub

untitled2.GIF

รูปประกอบ

และทั้งนี้ได้แนบไฟล์ขั้นตอนและคำถามมาให้อาจาร์ยดูซึ่งอยู่ใน Sheet2

[snasui]

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

ลองปรับ Code เป็นตามด้านล่าง ซึ่งปรับใน Sub ที่ใช้ในการ Load รูปเข้ามาครับ

Code: Select all

Private Sub TextBox7_Change()
    If TextBox7.Text <> "" Then
        myPicture = "C:\Documents and Settings\Administrator\My Documents\My Pictures\Picture\" & TextBox7 & ".gif"     'พอเจอข้อมูลแล้วให้เปิด Foder นี้ ชื่อไฟล์ตาม TextBox18
        Image3.Picture = LoadPicture(myPicture)  ' แล้วจึงโหลดรูปลง imgBox
    Else
        Image3.Picture = LoadPicture("")
    End If
End Sub

[snasui]

เมื่อคลิกเลือกรูปก็จะสั่งให้ไป ค้นหารูปใน โฟเดอร์ เมื่อเจอรูปที่ต้องการแล้วก็คลิกรูป
หลังจากนั้นก็ให้นำชื่อรูปมาใส่ใน textbox 18

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub CommandButton5_Click()
    ChDrive "C:"
    ChDir "C:\Documents and Settings\Administrator\My Documents\My Pictures\Picture"
    fileOpenName = Application.GetOpenFilename(fileFilter:="All Files (*.*), *.*")
    TextBox18.Text = fileOpenName
End Sub

[yodpao.b]

ขอบคุณครับเดี๋ยวขอลองก่อน ได้ผลแล้วจะบอกให้ทราบ

[yodpao.b]

จากตัวอย่างที่มา ได้ทดลองใช้ตามข้อ 2 พบว่ามีปัญหานิดหน่อยดูจากรูป

จะเห็นว่าผลลัพท์ที่ได้ มันโชว์ไดร์ด้วย ถ้าจะให้มันโชว์แค่ ชื่อหรือชื่อ.นามสกุล ได้ไหมครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub CommandButton5_Click()
    ChDrive "C:"
    ChDir "C:\Documents and Settings\Administrator\My Documents\My Pictures\Picture"
    fileOpenName = Application.GetOpenFilename(fileFilter:="All Files (*.*), *.*")
    TextBox18.Text = Mid(fileOpenName, InStr(fileOpenName, "Pic-"), 255)
End Sub

[yodpao.b]

คำถามทั้ง 2 ข้อ ทำแล้วครับ ได้ผลดีมากครับ
ขอบพระคุณมากครับ