VB編程：Timer控件實例幼兒識字卡片-35

運行效果：

程序代碼：

Dim myarray(10) As String ? ? '定義全局變量，文字數組

Dim i As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 37 Then ? ? ? ? ?'鍵盤按鍵左邊←

Call Image1_Click

ElseIf KeyCode = 39 Then ? ? ?'鍵盤按鍵右邊→

Call Image2_Click

End If

End Sub

Private Sub Form_Load() ? ? '定義文字數組，初始化timer控件、索引值i

Timer1.Enabled = fasle

Timer1.Interval = 100

myarray(0) = "大": myarray(1) = "小": myarray(2) = "多": myarray(3) = "少"

myarray(4) = "前": myarray(5) = "后": myarray(6) = "左": myarray(7) = "右"

myarray(8) = "中": myarray(9) = "上": myarray(10) = "下"

Label1.Left = -3800

i = -1

Call Image2_Click

End Sub

Private Sub Image1_Click() ? '移動到上一個字

If i > 0 Then

i = i - 1

Label1 = myarray(i)

End If

Timer1.Enabled = True

Label1.Left = -4000

End Sub

Private Sub Image2_Click() ? '移動到下一個字

If i < 10 Then

i = i + 1

Label1 = myarray(i)

End If

Timer1.Enabled = True

Label1.Left = -4000

End Sub

Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image1.MousePointer = 99

Image1.MouseIcon = LoadPicture("c:\windows\cursors\harrow.cur")

End Sub

Private Sub Image3_Click()

Me.WindowState = vbMinimized ? ?'最小化窗口，需要把showintaskbar屬性設置為true

End Sub

Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image3.MousePointer = 99

Image3.MouseIcon = LoadPicture("c:\windows\cursors\harrow.cur")

End Sub

Private Sub Image4_Click()

End

End Sub

Private Sub Image4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image4.MousePointer = 99

Image4.MouseIcon = LoadPicture("c:\windows\cursors\harrow.cur")

End Sub

'Timer控件實現文字移動效果，如果移動到中間位置就停止。

Private Sub Timer1_Timer()

If Label1.Left < 5000 Then

Label1.Left = Label1.Left + 200

Else

Label1.Left = -4000

End If

If Label1.Left > 1560 And Label1.Left < 1660 Then

Timer1.Enabled = False

End If

End Sub

學習總結：

1、harrow.cur為windowsXP的系統圖標，windows7中沒有，要在win7中運行則需要修改成其他圖標，否則報錯。

2、方向鍵的鍵盤碼keycode如下：

keycode?37?=?Left?←

keycode?38?=?Up?↑

keycode?39?=?Right?→

keycode?40?=?Down?↓

3、如果使用if...else語句，else遵循就近原則。

Windows

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。