动作图片设计程序
来源:互联网 发布:张居正 高拱 知乎 编辑:程序博客网 时间:2024/06/02 09:59
Public TopBottom, LeftRight As String
Private Sub Form_Click()
If Timer1.Enabled = False Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 61
Timer1.Interval = 10
Case 45
Timer1.Interval = 100
End Select
End Sub
Private Sub Form_Load()
TopBottom = "0"
LeftRight = "0"
End Sub
Private Sub Timer1_Timer()
Select Case TopBottom & LeftRight
Case "00"
Form1.Image1.Top = Form1.Image1.Top - 10
Form1.Image1.Left = Form1.Image1.Left - 10
Form1.Image1.Move _
Form1.Image1.Left - 10, Form1.Image1.Top - 10
If Form1.Image1.Top <= 0 Then
TopBottom = "1"
End If
If Form1.Image1.Left <= 0 Then
LeftRight = "1"
End If
Case "10"
Form1.Image1.Top = Form1.Image1.Top + 10
Form1.Image1.Left = Form1.Image1.Left - 10
If Form1.Image1.Top >= _
Form1.ScaleHeight - Form1.Image1.Height Then
TopBottom = "0"
End If
If Form1.Image1.Left <= 0 Then
LeftRight = "1"
End If
Case "01"
Form1.Image1.Top = Form1.Image1.Top - 10
Form1.Image1.Left = Form1.Image1.Left + 10
If Form1.Image1.Top <= 0 Then
TopBottom = "1"
End If
If Form1.Image1.Left >= _
Form1.ScaleWidth - Form1.Image1.Width Then
TopBottom = "0"
End If
Case "11"
Form1.Image1.Top = Form1.Image1.Top + 10
Form1.Image1.Left = Form1.Image1.Left + 10
If Form1.Image1.Top >= _
Form1.ScaleHeight - Form1.Image1.Height Then
TopBottom = "0"
End If
If Form1.Image1.Left >= _
Form1.ScaleWidth - Form1.Image1.Width Then
LeftRight = "0"
End If
End Select
End Sub
Private Sub Form_Click()
If Timer1.Enabled = False Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 61
Timer1.Interval = 10
Case 45
Timer1.Interval = 100
End Select
End Sub
Private Sub Form_Load()
TopBottom = "0"
LeftRight = "0"
End Sub
Private Sub Timer1_Timer()
Select Case TopBottom & LeftRight
Case "00"
Form1.Image1.Top = Form1.Image1.Top - 10
Form1.Image1.Left = Form1.Image1.Left - 10
Form1.Image1.Move _
Form1.Image1.Left - 10, Form1.Image1.Top - 10
If Form1.Image1.Top <= 0 Then
TopBottom = "1"
End If
If Form1.Image1.Left <= 0 Then
LeftRight = "1"
End If
Case "10"
Form1.Image1.Top = Form1.Image1.Top + 10
Form1.Image1.Left = Form1.Image1.Left - 10
If Form1.Image1.Top >= _
Form1.ScaleHeight - Form1.Image1.Height Then
TopBottom = "0"
End If
If Form1.Image1.Left <= 0 Then
LeftRight = "1"
End If
Case "01"
Form1.Image1.Top = Form1.Image1.Top - 10
Form1.Image1.Left = Form1.Image1.Left + 10
If Form1.Image1.Top <= 0 Then
TopBottom = "1"
End If
If Form1.Image1.Left >= _
Form1.ScaleWidth - Form1.Image1.Width Then
TopBottom = "0"
End If
Case "11"
Form1.Image1.Top = Form1.Image1.Top + 10
Form1.Image1.Left = Form1.Image1.Left + 10
If Form1.Image1.Top >= _
Form1.ScaleHeight - Form1.Image1.Height Then
TopBottom = "0"
End If
If Form1.Image1.Left >= _
Form1.ScaleWidth - Form1.Image1.Width Then
LeftRight = "0"
End If
End Select
End Sub
- 动作图片设计程序
- ^o^ 我的《劲武团》动作设计程序
- 动作按钮设计
- 漫画动作设计教程
- 经典BS程序页面设计素材图片
- 颈部肌肉训练(动作图片)
- 游戏动作感设计初探
- 游戏动作感设计初探
- 肩部肌肉训练(动作图片)
- 支持任意手势动作的图片
- 角色动作控制接口的设计
- javaBean之简介、设计原理、动作元素
- 奇特的录制鼠标动作程序
- 动作
- 动作
- 动作
- 动作
- 程序图片
- Java的Class Path和Package
- 创建Goldengate例外句丙记录跟踪Oracle错误
- Linux 编辑器(四)--gawk与sed
- 实验二:大小写的转换
- Shell的概况
- 动作图片设计程序
- Linux 编辑器(五)终--其它常用的文本编辑命令
- Android手机通过电脑上网的几种方法
- 第六周实验报告3
- jquery mobile中的事件
- jQuery操作元素
- 第六周任务四
- single(单精度型)和double(双精度型)
- 在Eclipse中使用sequoyah插件配置Android NDK环境