用VB如何使label自動左右移動??

VB作為一種程式語言,深受大學老師的喜愛,包括在省二級計算機考試和國家二級計算機考試中都是學生的參選軟體,入門和基礎都是比較簡單的。在程式碼上也是有規律可循的,今天教大家怎麼使用vb將label自動地左右移動。

工具/原料

VB6.0軟體

方法/步驟

在桌面上找到VB軟體的圖示,雙擊開啟。

用VB如何使label自動左右移動?

跳出來一個“新建工程”視窗,選擇“標準EXE”,點選開啟。

用VB如何使label自動左右移動?

在左邊的工具欄中選中label,

在form1中建立一個label。

用VB如何使label自動左右移動?

用VB如何使label自動左右移動?

在左邊的工具欄中選中Timer,並在窗體中畫出一個控制元件。

用VB如何使label自動左右移動?

用VB如何使label自動左右移動?

選中timer圖示,在右側的屬性工具欄中把Interval的值改成100.

用VB如何使label自動左右移動?

雙擊label的圖示,並在跳出來的編碼視窗中輸入如下程式碼。

Private Sub Form_Load()Me.Tag = 1End Sub

Private Sub Label1_Click()

End Sub

Private Sub Timer1_Timer()If Label1.Left > Me.Width - Label1.Width Then Me.Tag = 2ElseIf Label1.Left < 0 Then Me.Tag = 1End IfIf Me.Tag = 1 Then Label1.Left = Label1.Left + 100ElseIf Me.Tag = 2 Then Label1.Left = Label1.Left - 100End IfEnd Sub

用VB如何使label自動左右移動?

用VB如何使label自動左右移動?

在上面的工具欄中點選“執行”,在下拉框中選擇“啟動”,就可以看見效果了!

用VB如何使label自動左右移動?

用VB如何使label自動左右移動?

注意事項

要注意將timer的屬性中Interval從0改成100.

計算機, 軟體, 基礎, 中都, 程式碼,
相關問題答案