mysizeprint.ctl

一套鞋厂的销售管理系统

    m_SizeField29 = PropBag.ReadProperty("SizeField29", m_def_SizeField)
    m_SizeField30 = PropBag.ReadProperty("SizeField30", m_def_SizeField)
End Sub

Private Sub UserControl_Resize()
    PrintSize
End Sub

'将属性值写到存储器
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

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

'注意！不要删除或修改下列被注释的行！
'MemberInfo=10,0,0,
Public Property Get HeadForeColor() As OLE_COLOR
Attribute HeadForeColor.VB_Description = "返回/设置对象中文本和图形的前景色。"
    HeadForeColor = m_HeadForeColor
End Property

Public Property Let HeadForeColor(ByVal New_HeadForeColor As OLE_COLOR)
    m_HeadForeColor = New_HeadForeColor
    PropertyChanged "HeadForeColor"
    Dim i As Long
    For i = 0 To m_SizeNumber
        LSize(i).ForeColor = m_HeadForeColor
    Next
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=10,0,0,
Public Property Get HeadBackColor() As OLE_COLOR
Attribute HeadBackColor.VB_Description = "返回/设置对象中文本和图形的背景色。"
    HeadBackColor = m_HeadBackColor
End Property

Public Property Let HeadBackColor(ByVal New_HeadBackColor As OLE_COLOR)
    m_HeadBackColor = New_HeadBackColor
    PropertyChanged "HeadBackColor"
    Dim i As Long
    For i = 0 To m_SizeNumber
        LSize(i).BackColor = m_HeadBackColor
    Next
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=6,0,0,
Public Property Get HeadFont() As Font
Attribute HeadFont.VB_Description = "返回一个 Font 对象。"
    Set HeadFont = m_HeadFont
End Property

Public Property Set HeadFont(ByVal New_HeadFont As Font)
    Set m_HeadFont = New_HeadFont
    PropertyChanged "HeadFont"
    Dim i As Long
    For i = 0 To m_SizeNumber
        LSize(i).Font = m_HeadFont
    Next
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=10,0,0,
Public Property Get TextForeColor() As OLE_COLOR
Attribute TextForeColor.VB_Description = "返回/设置对象中文本和图形的前景色。"
    TextForeColor = m_TextForeColor
End Property

Public Property Let TextForeColor(ByVal New_TextForeColor As OLE_COLOR)
    m_TextForeColor = New_TextForeColor
    PropertyChanged "TextForeColor"
    Dim i As Long
    For i = 0 To m_SizeNumber
        TSize(i).ForeColor = m_TextForeColor
    Next
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=10,1,2,0
Public Property Get TextBackColor() As OLE_COLOR
Attribute TextBackColor.VB_Description = "返回/设置对象中文本和图形的背景色。"
    TextBackColor = m_TextBackColor
End Property

Public Property Let TextBackColor(ByVal New_TextBackColor As OLE_COLOR)
    m_TextBackColor = New_TextBackColor
    PropertyChanged "TextBackColor"
    Dim i As Long
    For i = 0 To m_SizeNumber
        TSize(i).BackColor = m_TextBackColor
    Next
  '  UserControl.BackColor = m_TextBackColor
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=6,0,0,0
Public Property Get TextFont() As Font
Attribute TextFont.VB_Description = "返回一个 Font 对象。"
    Set TextFont = m_TextFont
End Property

Public Property Set TextFont(ByVal New_TextFont As Font)
    Set m_TextFont = New_TextFont
    PropertyChanged "TextFont"
    Dim i As Long
    For i = 0 To m_SizeNumber
        TSize(i).Font = m_TextFont
    Next
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=8,0,0,
Public Property Get LineColor() As OLE_COLOR
Attribute LineColor.VB_Description = "返回/设置对象的边框颜色。"
    LineColor = m_LineColor
End Property

Public Property Let LineColor(ByVal New_LineColor As OLE_COLOR)
    m_LineColor = New_LineColor
    PropertyChanged "LineColor"
    Dim i As Long
    For i = 0 To m_SizeNumber
        Lines(i).BorderColor = m_LineColor
    Next
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=14,1,2,0
Public Property Get SizeName() As String
Attribute SizeName.VB_MemberFlags = "400"
    SizeName = m_SizeName
End Property

Public Property Let SizeName(ByVal New_SizeName As String)
    If Ambient.UserMode = False Then Err.Raise 387
    If Ambient.UserMode Then Err.Raise 382
    m_SizeName = New_SizeName
    PropertyChanged "SizeName"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=14,1,2,0
Public Property Get SizeNumber() As Long
Attribute SizeNumber.VB_MemberFlags = "400"
    SizeNumber = m_SizeNumber
End Property

Public Property Let SizeNumber(ByVal New_SizeNumber As Long)
    If Ambient.UserMode = False Then Err.Raise 387
    If Ambient.UserMode Then Err.Raise 382
    m_SizeNumber = New_SizeNumber
    PropertyChanged "SizeNumber"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=14,1,2,0
Public Property Get SizeType() As String
Attribute SizeType.VB_MemberFlags = "400"
    SizeType = m_SizeType
End Property

Public Property Let SizeType(ByVal New_SizeType As String)
    If Ambient.UserMode = False Then Err.Raise 387
    If Ambient.UserMode Then Err.Raise 382
    m_SizeType = New_SizeType
    PropertyChanged "SizeType"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,1,2,
Public Property Get SizeHead() As String
Attribute SizeHead.VB_MemberFlags = "400"
    SizeHead = m_SizeHead
End Property

Public Property Let SizeHead(ByVal New_SizeHead As String)
    If Ambient.UserMode = False Then Err.Raise 387
    If Ambient.UserMode Then Err.Raise 382
    m_SizeHead = New_SizeHead
    PropertyChanged "SizeHead"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=14,1,2,0
Public Property Get SizeKey() As String
Attribute SizeKey.VB_MemberFlags = "400"
    SizeKey = m_SizeKey
End Property

Public Property Let SizeKey(ByVal New_SizeKey As String)
    If Ambient.UserMode = False Then Err.Raise 387
    If Ambient.UserMode Then Err.Raise 382
    m_SizeKey = New_SizeKey
    PropertyChanged "SizeKey"
End Property

Public Sub SetSize(Optional ByVal vSizeName As String = "None", Optional ByVal vSizeNumber As Long = 0, Optional ByVal vSizeHead As String = "", Optional ByVal vSizeKey As String = "", Optional ByVal vSizeType As String = "Integer")
    Dim i As Long, j As Long, s As String
    If m_SizeNumber > vSizeNumber Then
        For i = m_SizeNumber To vSizeNumber + 1 Step -1
            Unload LSize(i)
            Unload TSize(i)
            Unload Lines(i)
        Next
    End If
    If m_SizeNumber < vSizeNumber Then
        For i = m_SizeNumber + 1 To vSizeNumber
            Load Lines(i)
        Next
        LSize(0).ZOrder 1
        For i = m_SizeNumber + 1 To vSizeNumber
            Load LSize(i)
            Load TSize(i)
            LSize(i).Caption = ""
            TSize(i).Caption = 0
            LSize(i).ZOrder 1
        Next
    End If
    m_SizeName = vSizeName
    m_SizeNumber = vSizeNumber
    m_SizeType = vSizeType
    m_SizeHead = vSizeHead
    m_SizeKey = vSizeKey
    If vSizeNumber > 0 Then
        ReDim SizeKeyArray(1 To vSizeNumber)
    End If
    s = ""
    j = 1
    For i = 1 To Len(SizeHead)
        If j > vSizeNumber Then
            Exit For
        End If
        If Mid(SizeHead, i, 1) = "|" Then
            LSize(j).Caption = s
            j = j + 1
            s = ""
        Else
            s = s & Mid(SizeHead, i, 1)
        End If
    Next
    For i = 1 To vSizeNumber
        SizeKeyArray(i) = ""
    Next
    s = ""
    j = 1
    For i = 1 To Len(SizeKey)
        If j > vSizeNumber Then
            Exit For
        End If
        If Mid(SizeKey, i, 1) = "|" Then
            SizeKeyArray(j) = s
            j = j + 1
            s = ""
        Else
            s = s & Mid(SizeHead, i, 1)
        End If
    Next
    PrintSize
    'UserControl.Refresh
    For i = 1 To m_SizeNumber
        Select Case i
            Case 1
                TSize(1).Caption = m_SizeField1
            Case 2
                TSize(2).Caption = m_SizeField2