动作图片设计程序

原创 2012年03月27日 21:53:04
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
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

bootstrap 图片设计,折叠菜单,选项卡

class="img-responsive" //图片---响应式 class="img-circle " //图片---变圆

图片设计和编辑工具

  • 2014-09-03 11:05
  • 20.49MB
  • 下载

WEB程序设计-JSP结合CSS控制图片出现的位置

jsp结合css控制图片的位置变化

用于图片设计

  • 2011-11-03 19:45
  • 120KB
  • 下载

无边框图片登陆界面Java程序设计

import java.awt.Image; import java.awt.Rectangle; import java.awt.TextArea; import java.awt.Toolk...

3d图片设计软件

  • 2012-11-05 07:02
  • 1.33MB
  • 下载

图片设计介绍

  • 2013-06-29 18:23
  • 16.12MB
  • 下载

(八)C#之WinForm程序设计-图片浏览器

C#WinForm程序设计之图片浏览器前面我们一起做了一个图片查看器,这个图片查看器的原始图如下:我们首先来介绍一下这个原始图的构成: 左边上面是一个 TextBox 和 一个 Button,分别...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)