动作图片设计程序

原创 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 " //图片---变圆

图片设计

  • 2006年02月23日 09:05
  • 77KB
  • 下载

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

C#WinForm程序设计之图片浏览器前面我们一起做了一个图片查看器,这个图片查看器的原始图如下:我们首先来介绍一下这个原始图的构成: 左边上面是一个 TextBox 和 一个 Button,分别...

PHOTOSHP PHOTOSHP图片设计工具

  • 2009年06月20日 12:17
  • 7.54MB
  • 下载

用于图片设计

  • 2011年11月03日 19:45
  • 120KB
  • 下载

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

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

图片设计和编辑工具

  • 2014年09月03日 11:05
  • 20.49MB
  • 下载

云丝多宝格 图片设计素材.bmp

  • 2016年02月10日 16:49
  • 20.75MB
  • 下载

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

jsp结合css控制图片的位置变化
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:动作图片设计程序
举报原因:
原因补充:

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