form1.frm

vb电子书籍

   VERSION 5.00
   Begin VB.Form Form1
      BackColor       =   &H80000000&
      Caption         =   "陀螺转动"
      ClientHeight    =   2880
      ClientLeft      =   60
      ClientTop       =   345
      ClientWidth     =   5685
      FillColor       =   &H00FF0000&
      BeginProperty Font
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Icon            =   "Form1.frx":0000
      LinkTopic       =   "Form1"
      ScaleHeight     =   2880
      ScaleWidth      =   5685
      StartUpPosition =   2  '屏幕中心
      Begin VB.Timer Timer1
         Interval        =   10
         Left            =   3720
         Top             =   360
      End
      Begin VB.PictureBox Picture1
         Height          =   615
         Left            =   480
         ScaleHeight     =   555
         ScaleWidth      =   555
         TabIndex        =   1
         Top             =   240
         Width           =   615
      End
      Begin VB.CommandButton Command1
         Caption         =   "陀螺"
         Height          =   375
         Left            =   4200
         TabIndex        =   0
         Top             =   360
         Width           =   975
      End
      Begin VB.Image Image1
         Height          =   495
         Index           =   17
         Left            =   5040
         Picture         =   "Form1.frx":000C
         Stretch         =   -1  'True
         Top             =   2280
         Width           =   495
      End
      Begin VB.Image Image1
         Height          =   495
         Index           =   16
         Left            =   4440
         Picture         =   "Form1.frx":0316
         Stretch         =   -1  'True
         Top             =   2280
         Width           =   495
      End
      Begin VB.Image Image1
         Height          =   495
         Index           =   15
         Left            =   3840
         Picture         =   "Form1.frx":0620
         Stretch         =   -1  'True
         Top             =   2280
         Width           =   495
      End
      Begin VB.Image Image1
         Height          =   495
         Index           =   14
         Left            =   3240
         Picture         =   "Form1.frx":092A
         Stretch         =   -1  'True
         Top             =   2280
         Width           =   495
      End
      Begin VB.Image Image1
         Height          =   495
         Index           =   13
         Left            =   2640
         Picture         =   "Form1.frx":0C34
         Stretch         =   -1  'True
         Top             =   2280
         Width           =   495
      End
      Begin VB.Image Image1
         Height          =   495
         Index           =   12
         Left            =   2040
         Picture         =   "Form1.frx":0F3E
         Stretch         =   -1  'True
         Top             =   2280
         Width           =   495
      End
      Begin VB.Image Image1
         Height          =   495
         Index           =   11
         Left            =   1440
         Picture         =   "Form1.frx":1248
         Stretch         =   -1  'True
         Top             =   2280
         Width           =   495
      End
      Begin VB.Image Image1
         Height          =   495
         Index           =   10
         Left            =   840
         Picture         =   "Form1.frx":1B12
         Stretch         =   -1  'True
         Top             =   2280
         Width           =   495
      End
      Begin VB.Image Image1
         Height          =   495
         Index           =   9
         Left            =   240
         Picture         =   "Form1.frx":1E1C
         Stretch         =   -1  'True
         Top             =   2280
         Width           =   495
      End
      Begin VB.Image Image1
         Height          =   495
         Index           =   8
         Left            =   5040
         Picture         =   "Form1.frx":26E6
         Stretch         =   -1  'True
         Top             =   1680
         Width           =   495
      End
      Begin VB.Image Image1
         Height          =   495
         Index           =   7
         Left            =   4440
         Picture         =   "Form1.frx":29F0
         Stretch         =   -1  'True
         Top             =   1680
         Width           =   495
      End
      Begin VB.Image Image1
         Height          =   495
         Index           =   6
         Left            =   3840
         Picture         =   "Form1.frx":2CFA
         Stretch         =   -1  'True
         Top             =   1680
         Width           =   495
      End
      Begin VB.Image Image1
         Height          =   495
         Index           =   5
         Left            =   3240
         Picture         =   "Form1.frx":3004
         Stretch         =   -1  'True
         Top             =   1680
         Width           =   495
      End
      Begin VB.Image Image1
         Height          =   495
         Index           =   4
         Left            =   2640
         Picture         =   "Form1.frx":330E
         Stretch         =   -1  'True
         Top             =   1680
         Width           =   495
      End
      Begin VB.Image Image1
         Height          =   495
         Index           =   3
         Left            =   2040
         Picture         =   "Form1.frx":3618
         Stretch         =   -1  'True
         Top             =   1680
         Width           =   495
      End
      Begin VB.Image Image1
         Height          =   495
         Index           =   2
         Left            =   1440
         Picture         =   "Form1.frx":3922
         Stretch         =   -1  'True
         Top             =   1680
         Width           =   495
      End
      Begin VB.Image Image1
         Height          =   495
         Index           =   1
         Left            =   840
         Picture         =   "Form1.frx":3C2C
         Stretch         =   -1  'True
         Top             =   1680
         Width           =   495
      End
      Begin VB.Image Image1
         Height          =   480
         Index           =   0
         Left            =   240
         Picture         =   "Form1.frx":3F36
         Stretch         =   -1  'True
         Top             =   1680
         Width           =   480
      End
   End
   Attribute VB_Name = "Form1"
   Attribute VB_GlobalNameSpace = False
   Attribute VB_Creatable = False
   Attribute VB_PredeclaredId = True
   Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
'##################################################################
'## 过程名称：Command1_Click
'## 参数： 无
'##################################################################
Private Sub Command1_Click()
    If Command1.Caption = "转动" Then
        Command1.Caption = "停止"
    Else
        Command1.Caption = "转动"
    End If
End Sub
'##################################################################
'## 过程名称：runtop
'## 参数： 无
'##################################################################
Private Sub runtop()
    Static y As Integer
    y = y + 1: If y = 18 Then y = 0
    Picture1.Picture = Image1(y).Picture
    Form1.Icon = Image1(y).Picture
    
End Sub
    
'##################################################################
'## 过程名称：Timer1_Timer
'## 参数： 无
'##################################################################
Private Sub Timer1_Timer()
    If Command1.Caption = "停止" Then runtop
End Sub