ทองจุล ขันขาว

ในตัวอย่างนี้ จะเป็นการสร้างปุ่มเพื่อเปิดหน้าจอค้นหาไฟล์ (Browse Dialogue) เพื่อค้นหาไฟล์ภาพ แล้วมีปุ่มเพื่อให้เปิดดูด้วย โปรแกรม Paint เพื่อให้ผู้ใช้สามารถจัดการกับภาพ และสั่งพิมพ์นอกโปรแกรม Access ได้ จุดประสงค์สุดท้ายคือการเรียกไฟล์ Paint มาเปิดภาพ ดังนั้น เราต้องมีการกรอง หรือตรวจเชคว่า ไฟล์ที่เลือกนั้นเป็นไฟล์ภาพหรือไม่ ในตัวอย่างนี้ กำหนดให้เป็นไฟล์ ประเภท jpg หรือ gif เท่านั้น วิธีการ สร้างปุ่ม ชื่อ Command0 เขียนข้อความที่ปุ่มเป็น ค้นหาไฟล์ สร้าง กล่องข้อความ (Textbox) ชื่อ Text3 สร้างปุ่ม ชื่อ cmdViewFile กำหนดค่าเริ่มต้นให้มองไม่เห็น (ที่แถบ Format ตั้งค่า Visible เป็น No)  เขียนข้อความที่ปุ่มเป็น เปิดดูภาพ ที่ปุ่ม ค้นหาไฟล์ (Command0) ให้เขียนโค้ดข้างล่างนี้ Private Sub Command0_Click()     Dim f As Object     Dim fileAddress As String     Dim fileExt As String     Dim strFile As String     Dim strFolder As String     Dim varItem As Variant         Me.Text3.Value = ""     Me.cmdViewFile.Visible = False         Set f = Application.FileDialog(3)     f.A