loading... | 加入收藏夹
当前位置:新开魔力私服 >> 魔力sf资料片大全 >> 正文

魔力资料片VB源码

时间: 来源:http://www.xkmlsf.com 作者:新开魔力私服

VERSION 5.00
Begin VB.Form Form1
   BackColor       =   &H00FFFF80&
   Caption         =   "Form1"
   ClientHeight    =   6795
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   9000
   LinkTopic       =   "Form1"
   ScaleHeight     =   6795
   ScaleWidth      =   9000
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1
      Enabled         =   0   'False
      Interval        =   200
      Left            =   6240
      Top             =   4080
   End
   Begin VB.CommandButton Command2
      BackColor       =   &H00FFFF80&
      Height          =   855
      Left            =   5490
      Picture         =   "魔力私服资料片.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   1
      ToolTipText     =   "退出"
      Top             =   5760
      Width           =   1095
   End
   Begin VB.CommandButton Command1
      BackColor       =   &H00FFFF80&
      Height          =   855
      Left            =   2880
      Picture         =   "魔力私服资料片.frx":030A
      Style           =   1  'Graphical
      TabIndex        =   0
      ToolTipText     =   "开始演示"
      Top             =   5760
      Width           =   1095
   End
   Begin VB.Image Image1
      Height          =   735
      Index           =   7
      Left            =   9120
      Picture         =   "魔力私服资料片.frx":0614
      Stretch         =   -1  'True
      Top             =   1680
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1
      Height          =   735
      Index           =   6
      Left            =   7200
      Picture         =   "魔力私服资料片.frx":091E
      Stretch         =   -1  'True
      Top             =   1680
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1
      Height          =   735
      Index           =   5
      Left            =   5400
      Picture         =   "魔力私服资料片.frx":0C28
      Stretch         =   -1  'True
      Top             =   1680
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1
      Height          =   735
      Index           =   4
      Left            =   3600
      Picture         =   "魔力私服资料片.frx":0F32
      Stretch         =   -1  'True
      Top             =   1680
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1
      Height          =   735
      Index           =   3
      Left            =   3600
      Picture         =   "魔力私服资料片.frx":123C
      Stretch         =   -1  'True
      Top             =   360
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1
      Height          =   735
      Index           =   2
      Left            =   5280
      Picture         =   "魔力私服资料片.frx":1546
      Stretch         =   -1  'True
      Top             =   360
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1
      Height          =   735
      Index           =   1
      Left            =   7080
      Picture         =   "魔力私服资料片.frx":1850
      Stretch         =   -1  'True
      Top             =   360
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1
      Height          =   735
      Index           =   0
      Left            =   9000
      Picture         =   "魔力私服资料片.frx":1B5A
      Stretch         =   -1  'True
      Top             =   360
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image9
      Height          =   1575
      Left            =   600
      Stretch         =   -1  'True
      Top             =   2880
      Width           =   1695
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Const M = 7            '控件数组元素上界
Dim i As Integer

Private Sub Command1_Click()
    If Command1.Caption = "开始" Then
        Timer1.Enabled = True
         Command1.Caption = "停止"
    Else
        Timer1.Enabled = False
        Command1.Caption = "开始"
    End If
End Sub

Private Sub Command2_Click()
    Timer1.Enabled = False
    End
End Sub

Private Sub Form_Load()
    Dim j As Integer
    For j = 0 To 7
       Image1(j).Visible = False
    Next j
End Sub

Private Sub Timer1_Timer()
    If Image9.Left > Form1.ScaleWidth Then
        Image9.Left = Form1.ScaleLeft - 200
    End If
    Image9.Move Image9.Left + 200
    Image9.Picture = Image1(i).Picture
    i = i + 1
    If i >= M Then i = 0
End Sub

新开魔力私服网是一家专门为魔力宝贝私服管理员提供发布开服游戏相关信息的网站, 我们有严格的审核发布程序,那些烟花骗钱服将严禁在本站发布广告,避免玩家受到损失。

本站所有的魔力宝贝sf开服信息都是来妖城技术论坛, 本站只是为喜欢研究魔力sf技术的GM代理发布并无修改制作, 如果侵犯了您的权利请来信xkmlsf@hotmail.com告知!

Copyright © 2017 - 2018 新开魔力私服 All Rights Reserved.