- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

บทความนี้เป็นบทความ ที่ต่อเนื่องจากบทความเรื่อง เขียนโปรแกรม 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

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -