買了一個佳能100D ,安裝了 EOS Utility 之后可以實作電腦控制拍照:1.按回車鍵 或者 2.直接滑鼠點擊拍照按鈕。
但是我想直接在我的程式里面進行控制,然后讀取圖片進行編輯,請問大神。怎么在我的程式里面進行控制呢?
我寫了個代碼,激活程式后,按空格鍵,但是不能實作!
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Dim a2 As Integer
Dim str1 As Object
AppActivate "EOS Utility" ‘這個是相機的名稱
Sleep 600
Call keybd_event(32, 0, 0, 0) ’執行空格操作
Form1.Show 程式表單
End Sub
uj5u.com熱心網友回復:
你這樣寫肯定有問題,先看看手冊,keybd_event這個宣告對嗎?呼叫到了嗎?uj5u.com熱心網友回復:
謝謝你的提醒,突然有了個思路,試驗了下,成功了!確實是key event的問題,但是不是聲稱的問題,是按下去,沒有執行抬起來的動作.轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/85523.html
標籤:VB基礎類
下一篇:VBA權限問題
