picadvs.ctl

星子行主机控制系统用于主机管理,方便远程操作,通信等功能.更 方便用于局域网,管理速度快,连接简单方便.注意:星子行连接可用 于带路由主机与带路由主机之间连接,非路由与非路由之间连接.带

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 
      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