1樓：匿名使用者
加個timer 啊 每隔多少時間 就重新讀取一次這個檔案 看看裡面內容是不是123...
**就是
先新增一個timer控制元件 然後設定timer.interval = 1000
然後 在你完成了上面的寫入"123"的動作以後 你再啟用這個timer 讓它去檢查
啟用timer就是 timer1.enabled = ture
private sub timer1_timer()
dim tmpstring as string
open "d:\123.txt" for input as #8
line input #8, tmpstring
if tmpstring <> "123" then msgbox strreverse(tmpstring)
close #8
end sub
2樓：
'本程式發現修改後只提示一次
option explicit
dim a as string
private sub form_load()timer1.interval = 200open "c:\123.
txt" for output as #1print #1, "123"
close #1
end sub
private sub timer1_timer()dim s as string, str as stringopen "c:\123.txt" for input as #1do while not eof(1)
line input #1, s
if not s = "" then str = str & s & vbcrlf
loop
str = left(str, len(str) - 1)close #1
if val(str) = "123" thenexit sub
end if
if not str = a then
dim cc as string
cc = strreverse(str)
a = str: msgbox cc, , "提示"
end if
end sub
vb日期計算，vb時間的加減
首先得到今天的日期 year date month date day date 然後對day date 的值 n 然後根據月份 month date 判斷加後的日期是否超過30 或31 之後得到新的日期值，然後用famat函式輸出新的日期即可。n 10 text1 dateadd d n,date ...
VB2019與VB6 0的異同，VB2005與VB6 0的異同？
現在有vs2008的beta版本 不同！差別很大。換句話可以說是兩種不同的語言了到了.net了以後把以前vb6的很多地方改得都不成樣子了。已經沒有vb的味道了，為了適應vc語言的框架vb.net已經變成了半c半vb的怪語言了。讓我從qb用過來的人很傷心。很多vb最經典的東西都沒了。如 vb函式的返回...
VB查詢含關鍵字的檔案100）
提供一個思路 先查詢c盤下的所有txt 找到後進去遍歷所有檔案找 ww 如果不用vb，用批處理更快。dir s c txt 1.txt b 把所有的文字檔案都輸出到1.txt內。在用for find 命令遍歷1.txt檔案內所有的檔案。具體的自己想下 只能自己寫程式了。原來不難，就是把所有txt檔案...