windowsxpc.ctl

进销存管理系统

   
End Sub


Public Sub EndWinXPCSubClassing()

      If m_EngineStarted = True Then
      
            For i = 1 To m_iCount
                m_SubClassedItem(i).UnloadEngine
                Set m_SubClassedItem(i) = Nothing
                
            Next i
            m_iCount = 0
            
         EngineStarted = False
         
       End If
       

End Sub

Public Property Get ColorScheme() As SchemeWindowColors
   ColorScheme = m_ColorScheme
End Property

Public Property Let ColorScheme(ByVal cColorScheme As SchemeWindowColors)
   m_ColorScheme = cColorScheme
   PropertyChanged "ColorScheme"
End Property

Public Property Get DirListBoxControl() As Boolean
   DirListBoxControl = m_DirListBoxControl
End Property

Public Property Let DirListBoxControl(ByVal cDirListBoxControl As Boolean)
   m_DirListBoxControl = cDirListBoxControl
   PropertyChanged "DirListBoxControl"
End Property

Public Property Get FileListBoxControl() As Boolean
   FileListBoxControl = m_FileListBoxControl
End Property

Public Property Let FileListBoxControl(ByVal cFileListBoxControl As Boolean)
   m_FileListBoxControl = cFileListBoxControl
   PropertyChanged "FileListBoxControl"
End Property

Public Property Get ListBoxControl() As Boolean
   ListBoxControl = m_ListBoxControl
End Property

Public Property Let ListBoxControl(ByVal cListBoxControl As Boolean)
   m_ListBoxControl = cListBoxControl
   PropertyChanged "ListBoxControl"
End Property

Public Property Get ListViewControl() As Boolean
   ListViewControl = m_ListViewControl
End Property

Public Property Let ListViewControl(ByVal cListViewControl As Boolean)
   m_ListViewControl = cListViewControl
   PropertyChanged "ListViewControl"
End Property

Public Property Get ImageComboControl() As Boolean
   ImageComboControl = m_ImageComboControl
End Property

Public Property Let ImageComboControl(ByVal cImageComboControl As Boolean)
   m_ImageComboControl = cImageComboControl
   PropertyChanged "ImageComboControl"
End Property

Public Property Get SliderControl() As Boolean
   SliderControl = m_SliderControl
End Property

Public Property Let SliderControl(ByVal cSliderControl As Boolean)
   m_SliderControl = cSliderControl
   PropertyChanged "SliderControl"
End Property

Public Property Get ProgressBarControl() As Boolean
   ProgressBarControl = m_ProgressBarControl
End Property

Public Property Let ProgressBarControl(ByVal cProgressBarControl As Boolean)
   m_ProgressBarControl = cProgressBarControl
   PropertyChanged "ProgressBarControl"
End Property

Public Property Get StatusBarControl() As Boolean
   StatusBarControl = m_StatusBarControl
End Property

Public Property Let StatusBarControl(ByVal cStatusBarControl As Boolean)
   m_StatusBarControl = cStatusBarControl
   PropertyChanged "StatusBarControl"
End Property

Public Property Get TabStripControl() As Boolean
   TabStripControl = m_TabStripControl
End Property

Public Property Let TabStripControl(ByVal cTabStripControl As Boolean)
   m_TabStripControl = cTabStripControl
   PropertyChanged "TabStripControl"
End Property

Public Property Get DriveListBoxControl() As Boolean
   DriveListBoxControl = m_DriveListBoxControl
End Property

Public Property Let DriveListBoxControl(ByVal cDriveListBoxControl As Boolean)
   m_DriveListBoxControl = cDriveListBoxControl
   PropertyChanged "DriveListBoxControl"
End Property

Public Property Get ComboBoxControl() As Boolean
   ComboBoxControl = m_ComboBoxControl
End Property

Public Property Let ComboBoxControl(ByVal cComboBoxControl As Boolean)
   m_ComboBoxControl = cComboBoxControl
   PropertyChanged "ComboBoxControl"
End Property

Public Property Get OptionControl() As Boolean
   OptionControl = m_OptionControl
End Property

Public Property Let OptionControl(ByVal cOptionControl As Boolean)
   m_OptionControl = cOptionControl
   PropertyChanged "OptionControl"
End Property

Public Property Get CheckControl() As Boolean
   CheckControl = m_CheckControl
End Property

Public Property Let CheckControl(ByVal cCheckControl As Boolean)
   m_CheckControl = cCheckControl
   PropertyChanged "CheckControl"
End Property

Public Property Get ButtonControl() As Boolean
   ButtonControl = m_ButtonControl
End Property

Public Property Let ButtonControl(ByVal cButtonControl As Boolean)
   m_ButtonControl = cButtonControl
   PropertyChanged "ButtonControl"
End Property

Public Property Get FrameControl() As Boolean
   FrameControl = m_FrameControl
End Property

Public Property Let FrameControl(ByVal cFrameControl As Boolean)
   m_FrameControl = cFrameControl
   PropertyChanged "FrameControl"
End Property

Public Property Get PictureControl() As Boolean
   PictureControl = m_PictureControl
End Property

Public Property Let PictureControl(ByVal cPictureControl As Boolean)
   m_PictureControl = cPictureControl
   PropertyChanged "PictureControl"
End Property

Public Property Get TextControl() As Boolean
   TextControl = m_TextControl
End Property

Public Property Let TextControl(ByVal cTextControl As Boolean)
   m_TextControl = cTextControl
   PropertyChanged "TextControl"
End Property

Public Property Get Common_Dialog() As Boolean
   Common_Dialog = m_CommonDialog
End Property

Public Property Let Common_Dialog(ByVal cCommon_Dialog As Boolean)
   m_CommonDialog = cCommon_Dialog
   PropertyChanged "Common_Dialog"
End Property

Public Property Get MsgBox_InputBox() As Boolean
   MsgBox_InputBox = m_MsgBox_InputBox
End Property

Public Property Let MsgBox_InputBox(ByVal cMsgBox_InputBox As Boolean)
   m_MsgBox_InputBox = cMsgBox_InputBox
   PropertyChanged "MsgBox_InputBox"
End Property

Public Property Get EngineStarted() As Boolean
   EngineStarted = m_EngineStarted
End Property

Public Property Let EngineStarted(ByVal cEngineStarted As Boolean)
   m_EngineStarted = cEngineStarted
   PropertyChanged "EngineStarted"
End Property

Public Property Get IDE() As Boolean
   IDE = m_IDE
End Property

Public Property Let IDE(ByVal cIDE As Boolean)
   m_IDE = cIDE
   PropertyChanged "IDE"
 End Property

Private Sub UserControl_Paint()
If IDE Then
    If Not m_IDEStarted Then InitIDESubClassing
End If
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
 ColorScheme = PropBag.ReadProperty("ColorScheme", WindowsXP_Blue)
 IDE = PropBag.ReadProperty("IDE", False)
 MsgBox_InputBox = PropBag.ReadProperty("MsgBox_InputBox", True)
 Common_Dialog = PropBag.ReadProperty("Common_Dialog", True)
 TextControl = PropBag.ReadProperty("TextControl", True)
 PictureControl = PropBag.ReadProperty("PictureControl", True)
 FrameControl = PropBag.ReadProperty("FrameControl", True)
 ButtonControl = PropBag.ReadProperty("ButtonControl", True)
 CheckControl = PropBag.ReadProperty("CheckControl", True)
 OptionControl = PropBag.ReadProperty("OptionControl", True)
 ComboBoxControl = PropBag.ReadProperty("ComboBoxControl", True)
 DriveListBoxControl = PropBag.ReadProperty("DriveListBoxControl", True)
 TabStripControl = PropBag.ReadProperty("TabStripControl", True)
 StatusBarControl = PropBag.ReadProperty("StatusBarControl", True)
 ProgressBarControl = PropBag.ReadProperty("ProgressBarControl", True)
 SliderControl = PropBag.ReadProperty("SliderControl", True)
 ImageComboControl = PropBag.ReadProperty("ImageComboControl", True)
 ListBoxControl = PropBag.ReadProperty("ListBoxControl", True)
 DirListBoxControl = PropBag.ReadProperty("DirListBoxControl", True)
 FileListBoxControl = PropBag.ReadProperty("FileListBoxControl", True)
 ListViewControl = PropBag.ReadProperty("ListViewControl", True)
 EngineStarted = PropBag.ReadProperty("EngineStarted", False)
 
End Sub


Private Sub UserControl_Resize()
UserControl.Width = 3735
UserControl.Height = 615
End Sub

Private Sub UserControl_Show()
'
End Sub

Private Sub UserControl_Terminate()
'
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
 
 
 Call PropBag.WriteProperty("ColorScheme", m_ColorScheme, False)
 Call PropBag.WriteProperty("IDE", m_IDE, False)
 Call PropBag.WriteProperty("EngineStarted", m_EngineStarted, False)
 Call PropBag.WriteProperty("MsgBox_InputBox", m_MsgBox_InputBox, True)
 Call PropBag.WriteProperty("Common_Dialog", m_CommonDialog, True)
 Call PropBag.WriteProperty("TextControl", m_TextControl, True)
 Call PropBag.WriteProperty("ListBoxControl", m_ListBoxControl, True)
 Call PropBag.WriteProperty("PictureControl", m_PictureControl, True)
 Call PropBag.WriteProperty("FrameControl", m_FrameControl, True)
 Call PropBag.WriteProperty("ButtonControl", m_ButtonControl, True)
 Call PropBag.WriteProperty("CheckControl", m_CheckControl, True)
 Call PropBag.WriteProperty("OptionControl", m_OptionControl, True)
 Call PropBag.WriteProperty("ComboBoxControl", m_ComboBoxControl, True)
 Call PropBag.WriteProperty("DriveListBoxControl", m_DriveListBoxControl, True)
 Call PropBag.WriteProperty("TabStripControl", m_TabStripControl, True)
 Call PropBag.WriteProperty("StatusBarControl", m_StatusBarControl, True)
 Call PropBag.WriteProperty("ProgressBarControl", m_ProgressBarControl, True)
 Call PropBag.WriteProperty("SliderControl", m_SliderControl, True)
 Call PropBag.WriteProperty("ImageComboControl", m_ImageComboControl, True)
 Call PropBag.WriteProperty("ListViewControl", m_ListViewControl, True)
 Call PropBag.WriteProperty("FileListBoxControl", m_FileListBoxControl, True)
 Call PropBag.WriteProperty("DirListBoxControl", m_DirListBoxControl, True)

 If m_IDE = True Then
    UserControl.Parent.Hide
    UserControl.Parent.Visible = True
    UserControl.Parent.Show
    UserControl.Parent.Refresh
 End If
 


End Sub