1樓：
'給你一種新的方法！
dimstarttime,
nowtime
asinteger
private
subcommand1_click()
nowtime
=mid(now,
13,2)
nowtime
-starttime
ifabs(nowtime
-starttime)
>0then
msgbox
"成功開啟1分鐘"
else
msgbox
"還未滿足！"
endif
endsub
private
subform_load()
starttime
=mid(now,
13,2)
endsub
2樓：乘心宜於初
視窗介面上放乙個timer控制項，控制項的屬性裡enable=false,
interval=0。
然後再軟體初始化的事件裡面設定timer.enable=true,interval =60000,
在timer的timer事件裡面設定timer.enable=false。
在按鈕點選的事件裡面判斷timer的enable，如果為true，則提示「還未滿足」，否則提示「成功開啟1分鐘」。
簡單的例項**如下：
private
subcommand1_click()
ifme.timer1.enabled
then
msgbox
還未滿足"
else
msgbox
"成功開啟1分鐘"
endif
endsub
private
subform_load()
timer1.interval
=60000
timer1.enabled
=true
endsub
private
subtimer1_timer()
timer1.enabled
=false
endsub
3樓：淦笑笑胥鈺
dimstime
asdate
private
subcommand1_click()
ifdatediff("s",
stime,
now)
>=60then
msgbox
"成功開啟1分鐘"
else
msgbox
"還未滿足"
endsub
private
subform_load()
stime
=now
endsub
''''''''''''''''''''''''''''for heekei'''''''''''''''''''''''''''
你用mid獲取分鐘數的話，需要對now進行format
VB怎樣實現簡單字元搜尋功能
放置乙個文字框text1供使用者輸入文字或調入文字檔案，用來做在其中查詢文字的驗證，放置另乙個文字框text2供使用者輸入要查詢的字串，放置兩個命令按鈕，command1 command2，其標題分別為 查詢 查詢下乙個 01 option explicit 02 定義目標位置變數 03 priva...
VB怎麼實現下，VB怎麼實現下乙個？？
新增乙個按鈕和乙個文字框 option explicit private sub command1 click text1.text text1.text 1end sub private sub form load text1.text 1 end sub 要看你的1，2是不是有規律的，如果有的話...
在vb中如何實現模擬網頁點選按鈕的功能
其實不用去點選這個按鈕，你只要找到這個按鈕從屬於哪個表單，然後直接提交表單就可以了，這個按鈕也就是提交的作用，比如可以這麼寫 webbrowser1.document.body.formname.submit 好長時間沒寫了，不知道是不是這樣寫，反正就是這麼個原理。如果一定要模擬去點選的話，就需要遍...
這個vb演算法怎麼實現？ 可能用到排列組合跟遞迴 求助
這實際上是乙個排列組合裡的分步法。下面的 是用遞迴法來求，供參考 sub main dim srctxt myary tmp,ub 原始資料輸入到陣列 srctxt cap,tat,nbc abc,mnt,xxs oop tmp split srctxt,ub ubound tmp redim my...
京東這種功能怎么實現，京東這種功能怎麼實現？
應該是通過webview實現的 首先就是把你的層加上position fixed bottom 0 left 0 right 0 這樣的樣式 裡面的內容渲染模板填充資料，然後通過繫結一些操作修改表單隱藏屬性的值，手機客戶端是可以 部分js方法 京東 的訂單跟蹤是怎麼實現的 5 京東 內的系統和京東快...