VB6 0中如何設定延時

2021-09-30 17:18:01 字數 1422 閱讀 5154

1樓:匿名使用者

private sub form_load()

dim x

x = shell("notepad.exe", vbnormalfocus)

sendkeys "這是一個文字檔案的測試程式.", true ' 模擬輸入英文字串

sendkeys "", true ' 兩次回車

waittime (2) ' 延時 2 秒

sendkeys "自動輸入文字", true

sendkeys "", true

waittime (2)

sendkeys "既不是病毒,也不是木馬!", true

sendkeys "", true

waittime (2)

sendkeys "開始退出... 看選單項f...", true

sendkeys "%", true 'alt 鍵啟用選單條

waittime (1)

sendkeys "(f)", true '按字母 "f",選擇"檔案(f)"選單

waittime (1)

sendkeys "(x)", true '按字母 "x", 選擇"退出(x)"

waittime (2)

sendkeys "(n)", true '彈出一個對話方塊,詢問檔案是否存檔,按 "n" 不存檔

end '結束本模擬程式

end sub

private sub waittime(delay as single)

dim starttime as single

starttime = timer

do until (timer - starttime) > delay

loop

end sub

2樓:科技程式迷

方法很多個。

可以使用api函式sleep

private declare sub sleep lib "kernel32.dll" (byval dwmilliseconds as long)

呼叫比如睡眠1秒:sleep(1000)

另外還有一種延時方法,即獲取當前系統時間+延時時間=等待結束時間,等到了等待結束時間到了就往下執行。

private declare function gettickcount lib "kernel32" () as long

'自編應用函式

private sub waitforms(millseconds as long)

dim s as long

s=gettickcount+millseconds

doif gettickcount=s then exit sub

loop

end sub

這個函式的呼叫跟上面的相似,單位是ms。

VB 6 0過程問題

public sub jisuan x,y as integer z x y end sub private sub form click jisuan 5,6 print z end sub z定義有問題吧,在過程之外定義,或者定義公有變數。函式的話應該是 private sub form cli...

vb6 0程式設計問題,求解答

w.paintpicture pic.picture,i,j,pic.scalewidth,pic.scaleheight pic.scalewidth pic.scaleheight 對嗎?nexy j next拼寫錯誤 for j 0 to w.height step pic.scaleheig...

誰能說下vb6 0中print方法的具體用法?最好舉個例子

用vb進行應用程式設計,實際上是與一組標準物件進行互動的過程。因此,準確地理解物件的概念,是設計vb的重要環節。1 物件的一般概念 前面我們介紹了窗體視窗和工具箱視窗,用工具箱中的控制元件圖示可以在窗體上設計介面。窗體和控制元件就是visual basic中的物件,這些物件是由系統設計好提供給使用者...