ffotitl.ctl

VISUAL BASIC 6 实现的自动化控制系统程序. 里面包含了好几个OCX源代码.我5年前的作品.现在看起来有点垃圾了.

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.UserControl FFOTitl 
   ClientHeight    =   3600
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4725
   LockControls    =   -1  'True
   ScaleHeight     =   3600
   ScaleWidth      =   4725
   ToolboxBitmap   =   "FFOTitl.ctx":0000
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   2850
      Top             =   630
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   4
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FFOTitl.ctx":0312
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FFOTitl.ctx":062E
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FFOTitl.ctx":094A
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FFOTitl.ctx":0C66
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BackColor       =   &H00FF8080&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   1395
      Left            =   270
      ScaleHeight     =   1395
      ScaleWidth      =   1935
      TabIndex        =   0
      Top             =   150
      Width           =   1935
   End
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   1350
      Top             =   1680
   End
End
Attribute VB_Name = "FFOTitl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Private xx As Integer
Private mRuning As Boolean

Event Click()
Event DbClick()
Event KeyDown()
Event KeyPress()
Event KeyUp()
Event MouseDown()
Event MouseMove()
Event MouseUp()
Event DoOpen()
Event DoClose()
Event isOpen()
Event IsClose()

Private Sub Picture1_DblClick()
    RaiseEvent DbClick
End Sub

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
    RaiseEvent KeyDown
End Sub

Private Sub Picture1_KeyPress(KeyAscii As Integer)
    RaiseEvent KeyPress
End Sub
Private Sub Picture1_KeyUp(KeyCode As Integer, Shift As Integer)
    RaiseEvent KeyUp
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.BorderStyle = 1
    RaiseEvent MouseDown
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.BorderStyle = 0
    RaiseEvent MouseUp
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    RaiseEvent MouseMove
End Sub

Private Sub UserControl_AmbientChanged(PropertyName As String)
    PropertyName = "BackColor"
    Picture1.BackColor = Ambient.BackColor
    UserControl.BackColor = Ambient.BackColor
End Sub

'Interval Property
Public Property Get Interval() As Integer
    Interval = Timer1.Interval
End Property
Public Property Let Interval(ByVal vNewValue As Integer)
    Timer1.Interval = vNewValue
    PropertyChanged "Interval"
End Property
Private Sub Picture1_Click()
    RaiseEvent Click
End Sub

Private Sub Timer1_Timer()
xx = xx + 1
Set Picture1.Picture = ImageList1.ListImages(xx).Picture
If xx >= 3 Then xx = 0
End Sub
Public Property Get Runing() As Boolean
    Runing = mRuning
End Property
Public Property Let Runing(ByVal vNewValue As Boolean)
     mRuning = vNewValue
     If mRuning = True Then
         Timer1.Enabled = True
     Else
        Timer1.Enabled = False
     End If
     PropertyChanged "Runing"
End Property
'BackColor Property
Public Property Get BackColor() As OLE_COLOR
    BackColor = Picture1.BackColor
End Property
Public Property Let BackColor(ByVal vNewValue As OLE_COLOR)
     Picture1.BackColor = vNewValue
     PropertyChanged "BackColor"
End Property


Private Sub UserControl_Resize()
UserControl.BackColor = Picture1.BackColor
Picture1.Left = -100
Picture1.Top = -30
Picture1.Height = UserControl.ScaleHeight + 30
Picture1.Width = UserControl.ScaleWidth + 100
End Sub
Private Sub UserControl_ReadProperties(Propbag As PropertyBag)
    mRuning = Propbag.ReadProperty("Runing", 0)
    Picture1.BackColor = Propbag.ReadProperty("BackColor", &H80000005)
    Timer1.Interval = Propbag.ReadProperty("Interval", 200)

End Sub
Private Sub UserControl_WriteProperties(Propbag As PropertyBag)
    Propbag.WriteProperty "Runing", mRuning, 0
    Propbag.WriteProperty "BackColor", Picture1.BackColor, &H80000005
 Propbag.WriteProperty "Interval", Timer1.Interval, 200

End Sub