請問高手們 小地想要利用BUTTON呼叫TIMER連座截圖的動作
但一直不清楚BUTTON的語法該怎麼寫比較好 有高手可以指點一下嗎
奉上TIMER的語法
Dim picname As String
n = n + 1
PictureBox1.Width = 320
PictureBox1.Height = 240
picname = "C:\00" + Str(n) + ".JPG"
WC.SaveImage(picname)
PictureBox1.Refresh()
如果是要用button(按鈕)啟動自動抓圖
假設你已新增timer物件為 timer1,button物件為 button1
1、首先必需先設定 timer1的屬性 enabled=false (在 form_load 程序)
2、在 button1的程序 button1_click 中 寫下列程式碼(紅色部份)
Private sub button1_click()
timer1.enabled=not timer1.enabled
timer1.interval=500 '假設500毫秒抓一張(可自行設定，但當設為0時，視同關閉timer1)
end sub
上述方法當第一次按button1時會啟用timer1，並且開始抓圖(每500毫秒)，再按一次button1時則會關閉timer1，亦即停止抓圖，以此類推。
3、記得你的timer1_timer程序中需宣告( static n )否則你的n只是區域變數，離開 程序後就歸零，永遠只會在 0跟1，不會遞增了。
當然程式設計是靈活的，你也可以一個新增2個button(button1及button2)，button1的功能是開始抓圖, button2的功能則是停止抓圖，請自由發揮吧。
pc練功館 部落格 http://pcphantom.pixnet.net/blog
內文搜尋
從 APP 打開
X