編寫乙個 VB 程式，該程式在程式啟動時生成日誌記錄

這就像向 mylog 新增乙個程序一樣簡單

將呼叫 mylog（） 新增到表單載入中"發射"將呼叫 mylog（） 新增到表單 unload 中"退出")private sub form_load()call mylog("發射")

end sub

private sub form_unload(cancel as integer)

call mylog("退出")

end sub

private sub mylog(nstr as string)dim f as string, h as longf = "c:\"

如果要將檔案儲存到與 exe 相同的資料夾中，請將上一句更改為 f = &"\"

h = freefile

close #h

end sub

private sub form_load()open "d:\" for append as #print #1, now, "發射" '現在，您可以將逗號更改為元件符號以進行壓縮輸出。

closeend sub

private sub form_queryunload(cancel as integer, unloadmode as integer)

print #1, vbnullstring'加一行空行，這句話可以省略。

closeend sub

close #

一旦超過燃盡，生成文字並將資料寫入銀段是不好的。

就是這樣。

新建乙個 vb6 的專案 1，在 form1 上建立乙個 picturebox 物件 picture1，將 picture1 的 visible 屬性設定為 false（即在執行時不會顯示），將 form1 的 linkmode 屬性設定為 1-source，並在 form1 的 **視窗中輸入以下內容：

private sub form_initialize()if then

專案一|form1"

endend if

end sub

private sub form_linkexecute(cmdstr as string, cancel as integer)

if = 1 then = 0

cancel = 0

end sub

編譯專案，生成exe檔案，並嘗試結果：第一次單擊將執行，第二次單擊將顯示第一次執行的當前程式，而不是重複執行當前程式。

您想使用 VB 自己編寫的程式執行此操作，還是要使用您編寫的程式來檢測其他程式？ 當然，不同的目標，不同的解決方案是可以做到的，但是自己編寫的程式更容易編寫。

private sub form_keydown(keycode as integer, shift as integer)

if keycode = vbkeyf6 and shift = 1 then

print "你好！ "

end if

end sub

窗體的鍵預覽應設定為 true，以便窗體首先啟用鍵盤事件。

如果你想禁用它，你可以新增解除安裝我

您可以將該關閉語句放入計時器中，否則您將看不到“Hello！ “的。

具體而言，將計時器控制項 timer1 新增到窗體中

private sub form_keydown(keycode as integer, shift as integer)

if keycode = vbkeyf6 and shift = 1 then

print "你好！ "

end if

end sub

private sub timer1_timer()

unload me

end sub

執行程式，按 shift+f6，然後“Hello！ 並在 1 秒後關閉視窗。

寫入視窗的 keydown 事件。

private sub form_keydown(keycode as integer, shift as integer)

if keycode = vbkeyf6 and shift = 1 then

print "你好！ "

end if

end sub

並將視窗的自動繪製設定為 true

'為表單設定 keypreview=true autoredraw=true

private sub form_keydown(keycode as integer, shift as integer)

if keycode = vbkeyf6 and shift = 1 then

print "你好！ "

stop '新增它以便能夠看到 Hello，否則直接結束程式的執行，您將看不到任何內容。

endend if

end sub

我已經完成了其中一些選項，但理想的選項如下。

1. 登錄檔讀/寫執行狀態。

2. ini配置檔案記錄讀/寫狀態。

3. 記憶體索引獲取執行狀態。

通過在每次執行程式之前讀取程式來獲取程式的執行狀態 在每個執行的程式中根據需要進行處理** 您可以根據上面獲得的狀態來決定是不可見還是可見。

private sub form_click()= iif( = loadpicture(""), loadpicture("d:\"), loadpicture(""))

end sub

這樣，您可以單擊切換開關，順便說一句，您需要新增乙個框控制項並編寫它。

.com

包中有 4 個目錄。

1 in 是前兩個 sya 1、sya 3

在 2 中是 sya 1、sya 2 和 sya 3 的三個三角形，後面跟著三角形。

隨機數就是生成隨機數並判斷它們。

請給積分，謝謝！！

private sub form_load() '啟動時執行'隱藏窗體。

open "c:\" for output as #1 '開啟檔案列印1，日期和時間'寫下關閉日期和時間

end sub

private sub form_queryunload(cancel as integer, unloadmode as integer) '關閉時執行。

open "c:\" for output as #2print #2, date & timeclose #

end sub

將程式放入啟動組。

有了下面的**，就很方便了。

shell "cmd c echo 程式啟動 開始 》c："

shell "cmd c echo 開始工作“C："

shell "CMD C 回聲程式關閉 C："

如果它關閉了，它不能寫嗎？

在 VB 中編寫視窗程式後如何執行視窗程式。

請參閱以下內容：1首先，開啟VisualBasic進入操作介面。

2.然後在操作的主頁上，找到主選單欄上的“檢視”設定選項，單擊滑鼠左鍵。

3.這時可以看到彈出的選單欄視窗，找到“垂直視窗”，滑鼠左鍵點選“現在視窗”。

4.或者按快捷鍵“Ctrl+G”，也可以開啟即時視窗，結果如下圖。

1.在第一點上方“執行”，然後開始。 如果要停止，請按“執行”、“停止”或 Ctrl+Break

2. 快捷鍵 f5

3.如果程式是程式設計的，沒有變化，那麼就把它轉換成應用模式 具體方法：點選檔案，生成專案，取個名字，就是完成的程式。

按 F5 或黑色三角形。

上面有個黑色的三角形。