กระทู้เก่าบอร์ด อ.Yeadram
812 4
URL.หัวข้อ /
URL
รบกวนช่วยดูโค้ดสำหรับสแกนภาพให้หน่อยครับ
ผมได้โค้ดจากอินเตอร์เนทครับ ผมทดลองใช้แล้วสามารถสแกนได้ครับ แต่ผมอยากจะดัดแปลงให้มันเซฟไฟล์ภาพไว้ที่โฟล์เดอร์ข้าง project นะครับ
Private Sub Command130_Click()
Dim FileLocation As String
Dim diagFile As FileDialog
Set diagFile = Application.FileDialog(msoFileDialogSaveAs)
diagFile.Title = "Save Bitmap File As..."
diagFile.InitialFileName = Me.total + ".jpg"
If diagFile.Show Then
FileLocation = diagFile.SelectedItems(1)
Dim scanDiag As New WIA.CommonDialog
Dim image As WIA.ImageFile
Set image = scanDiag.ShowAcquireImage()
image.SaveFile FileLocation
Me.Text110 = Me.total + ".jpg"
Private Sub Command130_Click()
Dim FileLocation As String
Dim diagFile As FileDialog
Set diagFile = Application.FileDialog(msoFileDialogSaveAs)
diagFile.Title = "Save Bitmap File As..."
diagFile.InitialFileName = Me.total + ".jpg"
If diagFile.Show Then
FileLocation = diagFile.SelectedItems(1)
Dim scanDiag As New WIA.CommonDialog
Dim image As WIA.ImageFile
Set image = scanDiag.ShowAcquireImage()
image.SaveFile FileLocation
Me.Text110 = Me.total + ".jpg"
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R23437
ไม่แน่ใจว่าเข้าใจคำถามถูกหรือเปล่า ลองเปลี่ยนจาก diagFile.InitialFileName = Me.total + ".jpg" ไปเป็น diagFile.InitialFileName = CurrentProject.Path + "\"+ Me.total + ".jpg"
2 @R23455
ใช่ครับ อ.สันติสุข
ขอบคุณมากนะครับ
ขอบคุณมากนะครับ
3 @R23522
น่าสนใจ เลยขอลองไปใช้บ้างครับ
แต่มัน เออเร่อ ตรง
Dim diagFile As FileDialog
แก้ไขอย่างไรครับ
แต่มัน เออเร่อ ตรง
Dim diagFile As FileDialog
แก้ไขอย่างไรครับ
4 @R23524
คุณกิติศักดิ์ลองดูคลิปนี้นะครับ.
เค้าสอนการเขียนโค้ดสแกนนะครับ
https://youtu.be/AO2-jgVu8V0
เค้าสอนการเขียนโค้ดสแกนนะครับ
https://youtu.be/AO2-jgVu8V0
Time: 0.2699s
