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编程：Timer控件实例幼儿识字卡片-35_彭世瑜_新浪博客
运行效果: 程序代码: Dim myarray(10) As String '定义全局变量,文字数组 Dim i As Integer Private Sub Form_KeyDown(Key ...
listview控件在php的使用方法,Android_Android编程之控件ListView使用方法，本文实例讲述了Android编程之控 - phpStudy...
Android编程之控件ListView使用方法本文实例讲述了Android编程之控件ListView使用方法.分享给大家供大家参考.具体分析如下: 控件ListView是一个重要的控件,可以被用作 ...
vb.net 教程 3-10 窗体编程 datagridview控件 3 禁止追加行与禁止删除行
版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. 如<vb.net 教程 3-10 窗体编程 datagridview控件 1 初步 > ...
基于VB算法+Picture+Timer控件制作的39种动画效果,类似屏保（完整原程序）
基于VB算法+Picture+Timer控件制作的39种动画效果,类似屏保(完整原程序) 动画播放器程序,在WIN2003调试通过,详细请自行下载进行学习测试,程序大小13K 下载地址:http:// ...
基于VB算法+Picture+Timer控件制作的39种动画效果,类似屏保（完整原程序） (转)
基于VB算法+Picture+Timer控件制作的39种动画效果,类似屏保(完整原程序) (转)[@more@] 基于VB算法+Picture+Timer控件制作的39种动画效果,类似屏保(完整原程序 ...
VB制作OCX控件的步骤
下面列出制作OCX控件的步骤: 一:新建OCX 打开VB 选择新建工程在对话框中选择ActiveX 控件(如图一(map1.gif))打开后会见一空的文档这就是 OCX控件的初始界面.想看一看空OCX ...
VB 单击ListView控件某列表头进行排序
VB 单击ListView控件某列表头进行排序,实现方法比较简单,不用写什么函数,ListView控件本身就有排序功能了. Private Sub ListView1_ColumnClick(ByVa ...
物联网开发笔记（64）- 使用Micropython开发ESP32开发板之控制ILI9341 3.2寸TFT-LCD触摸屏进行LVGL图形化编程：控件显示
一.目的这一节我们学习如何使用我们的ESP32开发板来控制ILI9341 3.2寸TFT-LCD触摸屏进行LVGL图形化编程:控件显示. 二.环境 ESP32 + ILI9341 3.2寸TFT-L ...
vb的datagrid控件的使用（一）
vb的datagrid控件的使用(一) 时间:2007-05-05 使用 DataGrid 控件 DataGrid 控件是一种类似于电子数据表的绑定控件,可以显示一系列行和列来表示 Recordset ...

VB编程：Timer控件实例幼儿识字卡片-35

VB编程：Timer控件实例幼儿识字卡片-35相关推荐

最新文章

热门文章