กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
219 2
URL.หัวข้อ /
URL
รบกวนสอบถามอาจารย์สุภาพเรื่องตัวอย่างการแสดงรูปภาพตัวอย่างที่ 8-9 ด้วยครับ
คือผมใด้ประยุกต์นำCodeของอาจารย์ไปใช้งานซึ่งสามารถใช้งานได้เป็นอย่างดีครับ แต่หากผมจะประยุกต์เพิ่มคือ ใช้ Event การ Double Click ที่รูปภาพหรือที่ไฟล์แล้วให้โปรแกรม ACDSee หรือ Acrobat Reader เปิดภาพหรือไฟล์ ตาม Path ที่ระบุไว้ได้อย่างไรครับคือให้ Userสามารถ Print ภาพหรือไฟล์ของจริงได้จากโปรแกรมดังกล่าวข้างต้นเลย (ผมใช้วิธีการสร้าง ฟิลด์เพื่อเก็บ Path ของรูปภาพครับ)
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R06316
ขอบคุณ คุณSurrealist มากครับ
Time: 0.0835s
การเปิดโปรแกรม default โดยดูจาก file extension
ต้องใช้ Windows API
สร้าง Module ใหม่ ตั้งชื่อว่า modUtil แล้วพิมพ์โค้ดตามนี้
' ---- WINDOWS API DECLARATION
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
' ---- Open default application for specified document file name.
' ex. Call OpenFile("c:\sample.doc")
' should open Microsoft Word with the sample.doc file.
Public Function openfile(file As String)
Call ShellExecute(0&, vbNullString, file, vbNullString, _
vbNullString, vbNormalFocus)
End Function
เวลาใช้งานก็เรียกฟังก์ชัน OpenFile
เช่นทดลองจาก Immediate window (Ctrl+G) พิมพ์ลงไปว่า
OpenFile "c:\test.txt"
เครื่องจะเปิดไฟล์ดังกล่าวด้วย Notepad เป็นต้น