有以下這么一個回圈
for i=1 to 10
text1.text=i
next i
怎么樣才能讓文本框里依次顯示出1,2,3,4,5,6,7,8,9,10，也就是說把回圈體陳述句的結果一一顯示出來？
uj5u.com熱心網友回復：
if i=1 thentext1.text=i
else
text1.text=text1.text & "," & i
endif
uj5u.com熱心網友回復：
不太明白你想要什么樣的效果，如果只是讓它自動切換顯示的數字的話，可以嘗試Dovents + Sleep（），顯示一個，休息一會兒，繼續顯示uj5u.com熱心網友回復：
是的。。我在網上也查了一下，用DOVENTS+SLEEP()多說可以，但我運行起來，也是不行。我把它寫成這樣：Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
For i = 1 To 10
Text1.Text = i
Sleep 1000
Dovents
Next i
End Sub
但是會出現錯誤。誰能具體說下怎寫多么？
uj5u.com熱心網友回復：
先doevents再sleepuj5u.com熱心網友回復：
對頭，先doevents，把資料顯示出來，再sleepuj5u.com熱心網友回復：
放置一個Command控制元件，還有一個TextBox控制元件
Dim flag As Boolean
Private Sub Command1_Click()
For i = 1 To 10
If Not flag = False Then Text1.Text = Text1.Text & "," & i
If flag = False Then Text1.Text = Text1.Text & i
If flag = False Then flag = True
Next
End Sub
Private Sub Form_Load()
flag = False
Text1.Text = ""
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/18496.html
標籤：VB基礎類
下一篇：vb exe 報錯the action cannot be completed because the other application is busy