เรื่องเปลี่ยนชื่อรูปที่ save ให้ไม่ซ้ำทำยังไงค่ะ
จาก code ที่ทาง เว็บแจกเกี่ยวกับบันทึกภาพผ่าน webcam ดิฉันอย่างจะให้มันบันทึกภาพได้มากกว่า 1 ภาพ ค่ะ จะต้องทำยังไงค่ะ
Private Sub Command2_Click() Dim bRet As Boolean Dim szTest As String
szTest = App.Path & "\1.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
ขอบคุณล่วงหน้าค่ะ
|