บทความนี้เป็นบทความ ที่ต่อเนื่องจากบทความเรื่อง เขียนโปรแกรม visual basic 6 แสดงภาพจาก กล้อง WebCam ของคุณ ที่ผมได้เขียนไว้ก่อนหน้านี้ ซึ่งได้เกิดการเรียกร้องผ่านทางเว็บบอร์ด ของทางเว็บ ให้เพิ่มเติมความสามารถ ของโปรแกรม ให้ดึงภาพ ที่แสดงผ่าน webcam มาบันทึกไว้ด้วย
ผมจึงได้ค้นหาวิธีการ มานำเสนอดังนี้ครับ
1.ให้คุณทำการ download ตัวอย่างในบทความที่แล้วมาก่อนนะครับ
2. ต่อจากนั้นให้ทำการวางปุ่ม ดังรูป
3. ทำการดับเบิ้ลคลิกที่ปุ่ม Command2 และเพิ่มโค้ดดังตาราง
Private Sub Command2_Click()
Dim bRet As Boolean
Dim szTest As String
szTest = App.Path & "\scCapture.bmp" & Chr$(0)
bRet = SendMessage(hwndc, WM_CAP_EDIT_COPY, 0&, 0&)
If bRet Then
DoEvents
If Clipboard.GetFormat(vbCFBitmap) Then
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
SavePicture Picture1.Image, szTest
DoEvents
Clipboard.Clear
End If
End If
End Sub
|
4. ทดสอบโปรแกรม โดยกดปุ่ม F5 แล้วทดลองคลิกปุ่ม
Command2
5. ทำการตรวจสอบไฟล์ scCapture.bmp ซึ่งได้จากการ capture ภาพ ซึ่งจะอยู่ใน path เดียวกับโปรแกรมครับ
ทิ้งทาย
จากบทความนี้ คุณอาจนำไปประยุกต์ใช้งานตามที่ต้องการ ได้ครับแล้วพบกันใหม่กับ 9M |