看板 Visual_Basic 關於我們 聯絡資訊
不好意思,小弟又來問問題了 由於執行一個很大的迴圈 我想在過程中顯示現在執行到第幾筆資料 因此做了類似這樣的設定 FileOpen(1, "d:\VB\data.txt", OpenMode.Input) Do Until EOF(1) I += 1 TextBox1.Text = "目前執行第 " & I & vb "筆資料" .... 其他指令 .... Loop FileClose(1) 結果發現 他並不會在程式執行過程中顯示第幾筆 而是到全部執行完畢才顯示出來 因此在我按了開始後 程式就愣在那邊不知是死是活 最後才出現最後一筆的訊息 但那已經沒有意義了 也有想過是不是因為程式執行太快來不及顯示出來 因此改成每100筆或1000筆顯示一次 結果還是一樣 甚至加入timer事件 在按下開始到結束為止 那個時鐘也是不會動的 不知該怎麼改進呢? 懇請賜教 -- 為了你的健康及嫂夫人的幸福 每日起床後、臨睡前, 請做: 仰臥起坐十次 正拳伏地挺身十次 交互蹲跳二十次 見到此post, 請立刻離座, 執行上述動作之一! -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 125.231.215.215
horngsh:請在迴圈中加Application.DoEvents() 04/28 01:04
jwjeng:解決了,感恩 04/28 09:02