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遵循就近原则。

VB编程：Timer控件实例幼儿识字卡片-35_彭世瑜_新浪博客相关推荐

VB编程：去除文本框首尾空行-51_彭世瑜_新浪博客
程序代码 Private Sub Command1_Click() Dim j As Integer Dim i(100) As String Text2 = "&q ...
VB编程：DateSerial通过闰月判断闰年-47_彭世瑜_新浪博客
运行效果: 程序代码: Private Function MonthToLeapYear(ByVal Yea As Integer) As Boolean MonthToLeapYear = Day( ...
VB编程：While...Wend语句实例漂亮的星星-17_彭世瑜_新浪博客
运行效果: 程序代码: Private Sub Command1_Click() Dim a As Long, b As Long Form1.Cls '清空窗体 Whil ...
[转载]VB网络聊天程序的开发(1)_彭世瑜_新浪博客
原文地址:VB网络聊天程序的开发(1)作者:VB源码博客互联网已经成为现代社会生活中非常普及的一项事务.在互联网上可以查询信息.电子购物,还可以进行网络聊天.本博将从今天起,具体的计解一下利用VB开 ...
VB编程：UCase转大写，LCase转小写-4_彭世瑜_新浪博客
Private Sub Text1_Change() Text2.Text = LCase(Text1.Text) '转换成小写字母 Text3.Text = UCase(Text1.Text) ...
VB编程：UBound获取数组上限;LBound获取数组下限-25_彭世瑜_新浪博客
运行效果: 程序代码: Private Sub Command1_Click() Dim a(5) Text1.Text = UBound(a) Text2.Text = LBound(a) End ...
VB编程：DoWhile...Loop当循环计算0~100累加和-15_彭世瑜_新浪博客
一.运行效果二.技巧总结 1.常用的循环有三种: (1)for循环(For...Next): (2)当循环(Do...While...Loop)或者(While...Wend): (3)直到循环(D ...
VB编程：Val字符串转数字，CStr数字转字符串-6_彭世瑜_新浪博客
效果显示: Private Sub Text1_Change() Text2.Text = CStr(Text1.Text) '转字符串 Text3.Text = Val(Text1.Text ...
VB编程：DoEvents将控制权交给系统，防止无限循环-14_彭世瑜_新浪博客
一.运行效果: 1.没有DoEvents时运行(出现未响应): 2.有DoEvents时运行(没有未响应): 二.关键点 1.DoEvents函数,将控制权交给系统,防止无限循环. 2.将下面 ...

VB编程：Timer控件实例幼儿识字卡片-35_彭世瑜_新浪博客

VB编程：Timer控件实例幼儿识字卡片-35_彭世瑜_新浪博客相关推荐

最新文章

热门文章