建立一個text文字框,其text屬性值是:123456;然後建立一個timer控制元件:
其實你的提問有歧義,到底是想實現文字框中的內容迴圈顯示,還是顯示之後就不消失了。
1.如果是迴圈顯示,設定timer控制元件的interval值為1000(值隨便設,1000代表1秒鐘,如果你想每間隔5秒鐘顯示一次,那設為5000)
然後輸入以下程式碼:Private Sub Timer1_Timer()
If Text1.Text = "123456" Then
Text1.Text = ""
Else
Text1.Text = "123456"
End If
End Sub
以上程式碼就實現了等待1秒鐘後顯示123456,然後消失1秒鐘,接著又顯示1秒鐘,反覆迴圈。
2.如果123456顯示出來之後,就不再消失,那如下程式碼可實現:
Private Sub Form_Load()
Private Sub Timer1_Timer()
If Text1.Text = "" Then
Timer1.Enabled = False
以上如果timer控制元件的interval值為5000,也就表明文字框裡的123456在5秒鐘後顯示出來,然後timer停止工作。
建立一個text文字框,其text屬性值是:123456;然後建立一個timer控制元件:
其實你的提問有歧義,到底是想實現文字框中的內容迴圈顯示,還是顯示之後就不消失了。
1.如果是迴圈顯示,設定timer控制元件的interval值為1000(值隨便設,1000代表1秒鐘,如果你想每間隔5秒鐘顯示一次,那設為5000)
然後輸入以下程式碼:Private Sub Timer1_Timer()
If Text1.Text = "123456" Then
Text1.Text = ""
Else
Text1.Text = "123456"
End If
End Sub
以上程式碼就實現了等待1秒鐘後顯示123456,然後消失1秒鐘,接著又顯示1秒鐘,反覆迴圈。
2.如果123456顯示出來之後,就不再消失,那如下程式碼可實現:
Private Sub Form_Load()
Text1.Text = ""
End Sub
Private Sub Timer1_Timer()
If Text1.Text = "" Then
Text1.Text = "123456"
Else
Timer1.Enabled = False
End If
End Sub
以上如果timer控制元件的interval值為5000,也就表明文字框裡的123456在5秒鐘後顯示出來,然後timer停止工作。