我想在For回圈中每按一次回車鍵或者延時結束后執行一次TextBox1與TextBox2的比較，請問有什么方法可以實作？
uj5u.com熱心網友回復：
回圈體中加一行 doeventsuj5u.com熱心網友回復：
使用 GetAsyncKeyState 這個APIuj5u.com熱心網友回復：
為什么要放在回圈里面呢？回車時的比較就放到 KeyPress 事件中回應就好了
延時結束后的比較可以 放在Timer中執行， Timer的interval就是你想延時的時間。
uj5u.com熱心網友回復：
別忘記，VB 是事件驅動的。uj5u.com熱心網友回復：
for回圈內再加一個 while回圈大致代碼如下
dim BiaoJi as boolean = false
for i=0 to 10
while booblean=false
doEvents
'此時程式處于無限回圈當中
'你可以根據你的實際情況來判斷按鍵情況
'是獲取全域按鍵還是表單獲取按鍵？
end while
next i
我覺得你的疑問是如何在回圈體獲取按鍵資訊，而不是其他問題，因為我是手機回的貼子，所以代碼給不全，你可以結合其他人給出的代碼結合起來即可解決你的問題。
uj5u.com熱心網友回復：
這樣的代碼還有人贊？疊床架屋。VB 是事件驅動的。按鍵有 KeyPress 事件，延時可以用 Timer 事件。
試問，“'你可以根據你的實際情況來判斷按鍵情況”如何用代碼實作？
別告訴我，另設一個 KeyPress 事件來設定變數，然后在回圈代碼中處理。
不要把 C 的思路直接套用到 VB 中來。
uj5u.com熱心網友回復：
一個例子，在死回圈里定時提取資料進行處理。新建表單，扔一個timer，一個command 然后粘帖以下代碼。
Option Explicit
Private Sub Command1_Click()
Timer1.Interval = 1000 '每延遲1000毫秒（不精確）進行一次處理
Timer1.Enabled = True
Do While 1 = 1 '死回圈
Command1.Caption = Rnd() '在按鈕上顯示亂數
DoEvents
Loop
End Sub
Private Sub Timer1_Timer()
Form1.Print Now() & Command1.Caption '定時處理邏輯：表單上列印按鈕上顯示的數字
End Sub
uj5u.com熱心網友回復：
又是你，之前那個字串截取的貼子打你的臉還沒打夠嗎？
"大神‘’，請問是誰給你的自信擺出一副說教的形式四處裝逼亂點評別人的代碼的？
你可知csdn藏龍臥虎，你一個菜鳥四處裝逼，誤人子弟，你不害臊嗎？謙虛很重要，知道嗎？
同時，別人給我的回復點贊又礙著你什么了？你又為什么不仔細想想為什么會有人給我的代碼點贊？
另外，我使用VB的經驗比C多十年以上。什么C的思路套VB上面？簡直是在胡說八道。在我看來，所有的高級語言都只有一種思路，如果你不明白為什么我這樣說，是因為你根本就沒學精，你還差得遠著呢，根本就不懂得如何融會貫通，不懂殊途同歸的道理。況且，我所貼出的代碼在VB中應用十分常見。
因為之前我用手機回到的，我等會兒貼出完善的代碼。
uj5u.com熱心網友回復：
哥們……使不得……
uj5u.com熱心網友回復：
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As Int16
Public Const VK_ENTER = 13 '回車鍵鍵值
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim BiaoJi As Boolean
For I As Int16 = 0 To 100 '代表100次回圈
'標記無限回圈的條件，作用是一直等待按鍵按下再執行下一次回圈
'也可以直接用 While True 代替, 但便于初學者理解, 我這里定義了一個布爾型標記
While BiaoJi = False
My.Application.DoEvents() '釋放控制權，以免表單界面假死
'在死回圈下一直檢測回車鍵的按鍵狀態，發現空格鍵被按下后，退出死回圈，執行FOR回圈
If GetAsyncKeyState(VK_ENTER) = -32767 Then Exit While
'GetAsyncKeyState的四種回傳值
'0：鍵當前未處于按下狀態，而且自上次呼叫GetAsyncKeyState后改鍵也未被按過；
'1：鍵當前未處于按下狀態，但在此之前（自上次呼叫GetAsyncKeyState后）鍵曾經被按過；
'-32768（即16進制數&H8000）：鍵當前處于按下狀態，但在此之前（自上次呼叫GetAsyncKeyState后）鍵未被按過；
'-32767（即16進制數&H8001）：鍵當前處于按下狀態，而且在此之前（自上次呼叫GetAsyncKeyState后）鍵也曾經被按過。
End While
Me.Text = "當前回圈變數:" & I
Next I
End Sub
因為手上沒有VB6環境，用的VB.NET。
因為VB6與VB.NET的資料型別不一致，則API函式GetAsyncKeyState的宣告部分，INT32改成Long，Int16改為Integer，即可用于VB6。
同時 在VB6中，
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
應改為
Private Sub Button1_Click()
uj5u.com熱心網友回復：
三樓四樓直接終結此帖了，還在這費這功夫。主樓的問題不在于for回圈里如何獲取按鍵，而是他的處理邏輯本身就不合理。
uj5u.com熱心網友回復：
從來沒有考慮在回圈體內還要出現人工干預的想法uj5u.com熱心網友回復：
那是你沒有碰到，比如在執行一個很大量的的回圈操作，中途你想退出，怎么辦？強制關閉？可能可以實作但不夠友好，那就需要設定一個暫停或者停止鍵，在回圈中加判斷了
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/42081.html
上一篇：影片的非同步顯示問題
下一篇：求大佬給看一下