Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Text1.Text = "第一次" '這里是第一次需要顯示的內容
Sleep 1000 ‘ 比如這里我假設想干點什么別的
Text1.Text = "" '這里我希望清空第一次的值
Sleep 1000 '這里繼續干點別的什么
Text1.Text = "第二次" '這里是我希望第二次顯示的內容
End Sub
為什么只能顯示第二次的內容，第一次的內容不顯示呢？求救。
另外一個問題，textbox控制元件陣列為什么默認不需要.text 屬性呢
比如下面的
Private Sub Command1_Click()
Text1(0) = "大家好" '這句跟 Text1(0).Text="大家好"一樣了
End Sub
uj5u.com熱心網友回復：
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Text1.Text = "第一次" '這里是第一次需要顯示的內容
Text1.Refresh '看這里看這里
Sleep 1000 ' 比如這里我假設想干點什么別的
Text1.Text = "" '這里我希望清空第一次的值
Text1.Refresh '看這里看這里
Sleep 1000 '這里繼續干點別的什么
Text1.Text = "第二次" '這里是我希望第二次顯示的內容
End Sub
Private Sub Command2_Click()
Text1.Text = "第一次" '這里是第一次需要顯示的內容
DoEvents '看這里看這里
Sleep 1000 ' 比如這里我假設想干點什么別的
Text1.Text = "" '這里我希望清空第一次的值
DoEvents '看這里看這里
Sleep 1000 '這里繼續干點別的什么
Text1.Text = "第二次" '這里是我希望第二次顯示的內容
End Sub
text是textbox的默認屬性，所以可以不用寫出來。很多控制元件、物件有默認屬性的。
uj5u.com熱心網友回復：
頂 yachong
我一般用 DoEvents 讓它自己去處理。
uj5u.com熱心網友回復：
Text1.Text = "第一次"Text1.Text =Text1.Text & vbCrLf & "第二次"
uj5u.com熱心網友回復：
一樓正解。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/133253.html
標籤：VB基礎類
上一篇：vb撰寫中國象棋程式的簡單教程