mysizeprint.ctl

一套鞋厂的销售管理系统

VERSION 5.00
Begin VB.UserControl XtSizePrint 
   ClientHeight    =   2925
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6270
   DataBindingBehavior=   1  'vbSimpleBound
   ScaleHeight     =   2925
   ScaleWidth      =   6270
   ToolboxBitmap   =   "MySizePrint.ctx":0000
   Begin VB.Label TSize 
      Alignment       =   1  'Right Justify
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "合计"
      ForeColor       =   &H80000008&
      Height          =   225
      Index           =   0
      Left            =   2280
      TabIndex        =   1
      Top             =   1800
      Visible         =   0   'False
      Width           =   915
   End
   Begin VB.Line Lines 
      Index           =   0
      X1              =   120
      X2              =   3960
      Y1              =   1200
      Y2              =   1200
   End
   Begin VB.Label LSize 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "合计"
      ForeColor       =   &H80000008&
      Height          =   225
      Index           =   0
      Left            =   720
      TabIndex        =   0
      Top             =   480
      Visible         =   0   'False
      Width           =   915
   End
End
Attribute VB_Name = "XtSizePrint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
'自定义变量
Dim SizeKeyArray() As String
Const LineWidth = 20
'缺省属性值:
Const m_def_SizeField = 0
Const m_def_SizeCount = 0
Const m_def_HeadForeColor = 0
Const m_def_HeadBackColor = 0
Const m_def_TextForeColor = 0
Const m_def_TextBackColor = 0
Const m_def_LineColor = 0
Const m_def_SizeName = 0
Const m_def_SizeNumber = 0
Const m_def_SizeType = 0
Const m_def_SizeHead = ""
Const m_def_SizeKey = 0
Const m_def_PrintCount = True
Const m_def_PrintHead = True
'属性变量:
Dim m_SizeField1 As Currency
Dim m_SizeField2 As Currency
Dim m_SizeField3 As Currency
Dim m_SizeField4 As Currency
Dim m_SizeField5 As Currency
Dim m_SizeField6 As Currency
Dim m_SizeField7 As Currency
Dim m_SizeField8 As Currency
Dim m_SizeField9 As Currency
Dim m_SizeField10 As Currency
Dim m_SizeField11 As Currency
Dim m_SizeField12 As Currency
Dim m_SizeField13 As Currency
Dim m_SizeField14 As Currency
Dim m_SizeField15 As Currency
Dim m_SizeField16 As Currency
Dim m_SizeField17 As Currency
Dim m_SizeField18 As Currency
Dim m_SizeField19 As Currency
Dim m_SizeField20 As Currency
Dim m_SizeField21 As Currency
Dim m_SizeField22 As Currency
Dim m_SizeField23 As Currency
Dim m_SizeField24 As Currency
Dim m_SizeField25 As Currency
Dim m_SizeField26 As Currency
Dim m_SizeField27 As Currency
Dim m_SizeField28 As Currency
Dim m_SizeField29 As Currency
Dim m_SizeField30 As Currency
Dim m_HeadForeColor As OLE_COLOR
Dim m_HeadBackColor As OLE_COLOR
Dim m_HeadFont As Font
Dim m_TextForeColor As OLE_COLOR
Dim m_TextBackColor As OLE_COLOR
Dim m_TextFont As Font
Dim m_LineColor As OLE_COLOR
Dim m_SizeName As String
Dim m_SizeNumber As Long
Dim m_SizeType As String
Dim m_SizeHead As String
Dim m_SizeKey As String
Dim m_PrintCount As Boolean
Dim m_PrintHead As Boolean
'事件声明:
Event Click()
Event DblClick()
Event SizeChange()


'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,Enabled
Public Property Get Enabled() As Boolean
Attribute Enabled.VB_Description = "返回/设置一个值，决定一个对象是否响应用户生成事件。"
    Enabled = UserControl.Enabled
End Property

Public Property Let Enabled(ByVal New_Enabled As Boolean)
    UserControl.Enabled() = New_Enabled
    PropertyChanged "Enabled"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,BorderStyle
Public Property Get BorderStyle() As Integer
Attribute BorderStyle.VB_Description = "返回/设置对象的边框样式。"
    BorderStyle = UserControl.BorderStyle
End Property

Public Property Let BorderStyle(ByVal New_BorderStyle As Integer)
    UserControl.BorderStyle() = New_BorderStyle
    PropertyChanged "BorderStyle"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,Appearance
Public Property Get Appearance() As Integer
Attribute Appearance.VB_Description = "返回/设置一个对象在运行时是否以 3D 效果显示。"
    Appearance = UserControl.Appearance
End Property

Public Property Let Appearance(ByVal New_Appearance As Integer)
On Error Resume Next
    UserControl.Appearance() = New_Appearance
    PropertyChanged "Appearance"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,Refresh
Public Sub Refresh()
Attribute Refresh.VB_Description = "强制完全重画一个对象。"
    UserControl.Refresh
End Sub

'注意！不要删除或修改下列被注释的行！
'MemberInfo=0,0,0,true
Public Property Get PrintCount() As Boolean
    PrintCount = m_PrintCount
End Property

Public Property Let PrintCount(ByVal New_PrintCount As Boolean)
    m_PrintCount = New_PrintCount
    PropertyChanged "PrintCount"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=0,0,0,true
Public Property Get PrintHead() As Boolean
    PrintHead = m_PrintHead
End Property

Public Property Let PrintHead(ByVal New_PrintHead As Boolean)
    m_PrintHead = New_PrintHead
    PropertyChanged "PrintHead"
End Property
'
'Private Sub TSize_Change(Index As Integer)
'    RaiseEvent SizeChange
'End Sub

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2
Public Function GetCount() As Currency
    GetCount = Val(TSize(0).Caption)
End Function

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2
Public Function GetSize(ByVal SizeKey As String) As Currency
    Dim i As Long
    GetSize = 0
    For i = 1 To m_SizeNumber
        If SizeKeyArray(i) = SizeKey Then
            GetSize = Val(TSize(i).Caption)
        End If
    Next
End Function

Public Function GetIndexSize(ByVal Index As Integer) As Currency
    GetIndexSize = Val(TSize(Index).Caption)
End Function


'为用户控件初始化属性
Private Sub UserControl_InitProperties()
    m_PrintCount = m_def_PrintCount
    m_PrintHead = m_def_PrintHead
    m_HeadForeColor = m_def_HeadForeColor
    m_HeadBackColor = m_def_HeadBackColor
    Set m_HeadFont = Ambient.Font
    m_TextForeColor = m_def_TextForeColor
    m_TextBackColor = m_def_TextBackColor
    Set m_TextFont = Ambient.Font
    m_LineColor = m_def_LineColor
    m_SizeName = m_def_SizeName
    m_SizeNumber = m_def_SizeNumber
    m_SizeType = m_def_SizeType
    m_SizeHead = m_def_SizeHead
    m_SizeKey = m_def_SizeKey
    TSize(0).Caption = m_def_SizeCount
    m_SizeField1 = m_def_SizeField
    m_SizeField2 = m_def_SizeField
    m_SizeField3 = m_def_SizeField
    m_SizeField4 = m_def_SizeField
    m_SizeField5 = m_def_SizeField
    m_SizeField6 = m_def_SizeField
    m_SizeField7 = m_def_SizeField
    m_SizeField8 = m_def_SizeField
    m_SizeField9 = m_def_SizeField
    m_SizeField10 = m_def_SizeField
    m_SizeField11 = m_def_SizeField
    m_SizeField12 = m_def_SizeField
    m_SizeField13 = m_def_SizeField
    m_SizeField14 = m_def_SizeField
    m_SizeField15 = m_def_SizeField
    m_SizeField16 = m_def_SizeField
    m_SizeField17 = m_def_SizeField
    m_SizeField18 = m_def_SizeField
    m_SizeField19 = m_def_SizeField
    m_SizeField20 = m_def_SizeField
    m_SizeField21 = m_def_SizeField
    m_SizeField22 = m_def_SizeField
    m_SizeField23 = m_def_SizeField
    m_SizeField24 = m_def_SizeField
    m_SizeField25 = m_def_SizeField
    m_SizeField26 = m_def_SizeField
    m_SizeField27 = m_def_SizeField
    m_SizeField28 = m_def_SizeField
    m_SizeField29 = m_def_SizeField
    m_SizeField30 = m_def_SizeField
End Sub

'从存贮器中加载属性值
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

    UserControl.Enabled = PropBag.ReadProperty("Enabled", True)
    UserControl.BorderStyle = PropBag.ReadProperty("BorderStyle", 0)
    UserControl.Appearance = PropBag.ReadProperty("Appearance", 1)
    LSize(0).ForeColor = PropBag.ReadProperty("HeadForeColor", &H80000008)
    LSize(0).BackColor = PropBag.ReadProperty("HeadBackColor", &H80000000)
    Set LSize(0).Font = PropBag.ReadProperty("HeadFont", Ambient.Font)
    TSize(0).ForeColor = PropBag.ReadProperty("TextForeColor", &H0&)
    TSize(0).BackColor = PropBag.ReadProperty("TextBackColor", &H80000005)
    UserControl.BackColor = TSize(0).BackColor
    Set TSize(0).Font = PropBag.ReadProperty("TextFont", Ambient.Font)
    Lines(0).BorderColor = PropBag.ReadProperty("LineColor", -2147483640)
    m_PrintCount = PropBag.ReadProperty("PrintCount", m_def_PrintCount)
    m_PrintHead = PropBag.ReadProperty("PrintHead", m_def_PrintHead)
    m_HeadForeColor = PropBag.ReadProperty("HeadForeColor", m_def_HeadForeColor)
    m_HeadBackColor = PropBag.ReadProperty("HeadBackColor", m_def_HeadBackColor)
    Set m_HeadFont = PropBag.ReadProperty("HeadFont", Ambient.Font)
    m_TextForeColor = PropBag.ReadProperty("TextForeColor", m_def_TextForeColor)
    m_TextBackColor = PropBag.ReadProperty("TextBackColor", m_def_TextBackColor)
    Set m_TextFont = PropBag.ReadProperty("TextFont", Ambient.Font)
    m_LineColor = PropBag.ReadProperty("LineColor", m_def_LineColor)
    m_SizeName = PropBag.ReadProperty("SizeName", m_def_SizeName)
    m_SizeNumber = PropBag.ReadProperty("SizeNumber", m_def_SizeNumber)
    m_SizeType = PropBag.ReadProperty("SizeType", m_def_SizeType)
    m_SizeHead = PropBag.ReadProperty("SizeHead", m_def_SizeHead)
    m_SizeKey = PropBag.ReadProperty("SizeKey", m_def_SizeKey)
    TSize(0).Caption = PropBag.ReadProperty("SizeCount", m_def_SizeCount)
    m_SizeField1 = PropBag.ReadProperty("SizeField1", m_def_SizeField)
    m_SizeField2 = PropBag.ReadProperty("SizeField2", m_def_SizeField)
    m_SizeField3 = PropBag.ReadProperty("SizeField3", m_def_SizeField)
    m_SizeField4 = PropBag.ReadProperty("SizeField4", m_def_SizeField)
    m_SizeField5 = PropBag.ReadProperty("SizeField5", m_def_SizeField)
    m_SizeField6 = PropBag.ReadProperty("SizeField6", m_def_SizeField)
    m_SizeField7 = PropBag.ReadProperty("SizeField7", m_def_SizeField)
    m_SizeField8 = PropBag.ReadProperty("SizeField8", m_def_SizeField)
    m_SizeField9 = PropBag.ReadProperty("SizeField9", m_def_SizeField)
    m_SizeField10 = PropBag.ReadProperty("SizeField10", m_def_SizeField)
    m_SizeField11 = PropBag.ReadProperty("SizeField11", m_def_SizeField)
    m_SizeField12 = PropBag.ReadProperty("SizeField12", m_def_SizeField)
    m_SizeField13 = PropBag.ReadProperty("SizeField13", m_def_SizeField)
    m_SizeField14 = PropBag.ReadProperty("SizeField14", m_def_SizeField)
    m_SizeField15 = PropBag.ReadProperty("SizeField15", m_def_SizeField)
    m_SizeField16 = PropBag.ReadProperty("SizeField16", m_def_SizeField)
    m_SizeField17 = PropBag.ReadProperty("SizeField17", m_def_SizeField)
    m_SizeField18 = PropBag.ReadProperty("SizeField18", m_def_SizeField)
    m_SizeField19 = PropBag.ReadProperty("SizeField19", m_def_SizeField)
    m_SizeField20 = PropBag.ReadProperty("SizeField20", m_def_SizeField)
    m_SizeField21 = PropBag.ReadProperty("SizeField21", m_def_SizeField)
    m_SizeField22 = PropBag.ReadProperty("SizeField22", m_def_SizeField)
    m_SizeField23 = PropBag.ReadProperty("SizeField23", m_def_SizeField)
    m_SizeField24 = PropBag.ReadProperty("SizeField24", m_def_SizeField)
    m_SizeField25 = PropBag.ReadProperty("SizeField25", m_def_SizeField)
    m_SizeField26 = PropBag.ReadProperty("SizeField26", m_def_SizeField)
    m_SizeField27 = PropBag.ReadProperty("SizeField27", m_def_SizeField)
    m_SizeField28 = PropBag.ReadProperty("SizeField28", m_def_SizeField)