picadvs.ctl

来自「星子行V2.0(源码)公开星子行V3.0以上版本,都是由星子行V1.0和星子行V」· CTL 代码 · 共 64 行

VERSION 5.00
Begin VB.UserControl Picadvs 
   ClientHeight    =   840
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3480
   Picture         =   "Picadvs.ctx":0000
   ScaleHeight     =   840
   ScaleWidth      =   3480
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   2000
      Left            =   840
      Top             =   3960
   End
   Begin VB.Image P1 
      Height          =   840
      Index           =   0
      Left            =   840
      Picture         =   "Picadvs.ctx":3D76
      Top             =   3840
      Width           =   3480
   End
   Begin VB.Image P1 
      Height          =   840
      Index           =   1
      Left            =   840
      Picture         =   "Picadvs.ctx":7AEC
      Top             =   3840
      Width           =   3480
   End
   Begin VB.Image P1 
      Height          =   840
      Index           =   2
      Left            =   840
      Picture         =   "Picadvs.ctx":AFFE
      Top             =   3840
      Width           =   3480
   End
End
Attribute VB_Name = "Picadvs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

Private Sub Timer1_Timer()

 Static Cs As Integer
 
If Cs > 2 Then Cs = 0

 UserControl.Picture = P1(Cs).Picture
 Cs = Cs + 1
 DoEvents
 
End Sub

Private Sub UserControl_DblClick()

'ShellExecute 0, "open", "Http://Scmxp.vicp.net", "", "", 1

End Sub