回覆列表
  • 1 # 錢布斯

    建立一個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停止工作。

  • 中秋節和大豐收的關聯?
  • 愛是自私的還是無私的?求解?