dbtext1.ctl

Fix通用外接报表程序,读取fix中的实时数据 生成相关报表曲线

'    m_LinkTopic = PropBag.ReadProperty("LinkTopic", m_def_LinkTopic)
'    m_LinkTimeout = PropBag.ReadProperty("LinkTimeout", m_def_LinkTimeout)
'    m_LinkMode = PropBag.ReadProperty("LinkMode", m_def_LinkMode)
'    m_LinkItem = PropBag.ReadProperty("LinkItem", m_def_LinkItem)
    T1.Text = PropBag.ReadProperty("Text1", "说明")
    T2.Text = PropBag.ReadProperty("Text2", "")
    T2.BackColor = PropBag.ReadProperty("BackColor", &H80000005)
    T2.Enabled = PropBag.ReadProperty("Enabled", True)
'    m_BackStyle = PropBag.ReadProperty("BackStyle", m_def_BackStyle)
    T2.BorderStyle = PropBag.ReadProperty("BorderStyle", 1)
    T2.LinkTopic = PropBag.ReadProperty("LinkTopic", "")
    T2.LinkItem = PropBag.ReadProperty("LinkItem", "")
    T2.LinkMode = PropBag.ReadProperty("LinkMode", 0)
    T2.LinkTimeout = PropBag.ReadProperty("LinkTimeout", 50)
    T2.Locked = PropBag.ReadProperty("Locked", False)
'    T2.ForeColor = PropBag.ReadProperty("ForeColor", &H80000008)
    Set T2.Font = PropBag.ReadProperty("Font", Ambient.Font)
    UserControl.BackStyle = PropBag.ReadProperty("BackStyle", 1)
    T1.FontSize = PropBag.ReadProperty("FontSize", 9)
    T2.FontSize = PropBag.ReadProperty("FontSize", 9)
    Title.Text = PropBag.ReadProperty("TextTitle", "主标题")
'    T1.ForeColor = PropBag.ReadProperty("ForeColor", &HFFFFFF)
    Title.ForeColor = PropBag.ReadProperty("ForeColor", &HFFFFFF)
End Sub

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

'    Call PropBag.WriteProperty("BackColor", m_BackColor, m_def_BackColor)
'    Call PropBag.WriteProperty("ForeColor", m_ForeColor, m_def_ForeColor)
'    Call PropBag.WriteProperty("Enabled", m_Enabled, m_def_Enabled)
'    Call PropBag.WriteProperty("Font", m_Font, Ambient.Font)
'    Call PropBag.WriteProperty("BackStyle", m_BackStyle, m_def_BackStyle)
'    Call PropBag.WriteProperty("BorderStyle", m_BorderStyle, m_def_BorderStyle)
'    Call PropBag.WriteProperty("Locked", m_Locked, m_def_Locked)
'    Call PropBag.WriteProperty("LinkTopic", m_LinkTopic, m_def_LinkTopic)
'    Call PropBag.WriteProperty("LinkTimeout", m_LinkTimeout, m_def_LinkTimeout)
'    Call PropBag.WriteProperty("LinkMode", m_LinkMode, m_def_LinkMode)
'    Call PropBag.WriteProperty("LinkItem", m_LinkItem, m_def_LinkItem)
    Call PropBag.WriteProperty("Text1", T1.Text, "")
    Call PropBag.WriteProperty("Text2", T2.Text, "")
    Call PropBag.WriteProperty("BackColor", T2.BackColor, &H80000005)
    Call PropBag.WriteProperty("Enabled", T2.Enabled, True)
'    Call PropBag.WriteProperty("BackStyle", m_BackStyle, m_def_BackStyle)
    Call PropBag.WriteProperty("BorderStyle", T2.BorderStyle, 1)
    Call PropBag.WriteProperty("LinkTopic", T2.LinkTopic, "")
    Call PropBag.WriteProperty("LinkItem", T2.LinkItem, "")
    Call PropBag.WriteProperty("LinkMode", T2.LinkMode, 0)
    Call PropBag.WriteProperty("LinkTimeout", T2.LinkTimeout, 50)
    Call PropBag.WriteProperty("Locked", T2.Locked, False)
'    Call PropBag.WriteProperty("ForeColor", T2.ForeColor, &H80000008)
    Call PropBag.WriteProperty("Font", T2.Font, Ambient.Font)
    Call PropBag.WriteProperty("BackStyle", UserControl.BackStyle, 1)
    Call PropBag.WriteProperty("FontSize", T1.FontSize, 0)
    Call PropBag.WriteProperty("FontSize", T2.FontSize, 0)
    Call PropBag.WriteProperty("TextTitle", Title.Text, "主标题")
'    Call PropBag.WriteProperty("ForeColor", T1.ForeColor, &HFFFFFF)
    Call PropBag.WriteProperty("ForeColor", Title.ForeColor, &HFFFFFF)
End Sub

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

Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
    T2.BackColor() = New_BackColor
    PropertyChanged "BackColor"
End Property

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

Public Property Let Enabled(ByVal New_Enabled As Boolean)
    T2.Enabled() = New_Enabled
    PropertyChanged "Enabled"
End Property
'
''注意！不要删除或修改下列被注释的行！
''MemberInfo=7,0,0,0
'Public Property Get BackStyle() As Integer
'    BackStyle = m_BackStyle
'End Property
'
'Public Property Let BackStyle(ByVal New_BackStyle As Integer)
'    m_BackStyle = New_BackStyle
'    PropertyChanged "BackStyle"
'End Property

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

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

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

Private Sub T2_Click()
    RaiseEvent Click
End Sub

Private Sub T2_DblClick()
    RaiseEvent DblClick
End Sub

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

Private Sub T2_KeyPress(KeyAscii As Integer)
    RaiseEvent KeyPress(KeyAscii)
End Sub

Private Sub T2_KeyUp(KeyCode As Integer, Shift As Integer)
    RaiseEvent KeyUp(KeyCode, Shift)
End Sub

Private Sub T2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    RaiseEvent MouseDown(Button, Shift, X, Y)
End Sub

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

Private Sub T2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    RaiseEvent MouseUp(Button, Shift, X, Y)
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=T2,T2,-1,LinkTopic
Public Property Get LinkTopic() As String
Attribute LinkTopic.VB_Description = "返回/设置目标控件的源应用程序和主题。"
    LinkTopic = T2.LinkTopic
End Property

Public Property Let LinkTopic(ByVal New_LinkTopic As String)
    T2.LinkTopic() = New_LinkTopic
    PropertyChanged "LinkTopic"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=T2,T2,-1,LinkItem
Public Property Get LinkItem() As String
Attribute LinkItem.VB_Description = "返回/设置传递到目标控件的数据，该目标控件正在与另一个应用程序进行 DDE 会话。"
    LinkItem = T2.LinkItem
End Property

Public Property Let LinkItem(ByVal New_LinkItem As String)
    T2.LinkItem() = New_LinkItem
    PropertyChanged "LinkItem"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=T2,T2,-1,LinkMode
Public Property Get LinkMode() As Integer
Attribute LinkMode.VB_Description = "返回/设置用于 DDE 会话的链接类型并激活连接。"
    LinkMode = T2.LinkMode
End Property

Public Property Let LinkMode(ByVal New_LinkMode As Integer)
On Error GoTo Errr
    T2.LinkMode() = New_LinkMode
    PropertyChanged "LinkMode"
    Exit Property
Errr:
    T2.Text = "error"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=T2,T2,-1,LinkTimeout
Public Property Get LinkTimeout() As Integer
Attribute LinkTimeout.VB_Description = "返回/设置控件等待响应 DDE 消息的时间。"
    LinkTimeout = T2.LinkTimeout
End Property

Public Property Let LinkTimeout(ByVal New_LinkTimeout As Integer)
    T2.LinkTimeout() = New_LinkTimeout
    PropertyChanged "LinkTimeout"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=T2,T2,-1,Locked
Public Property Get Locked() As Boolean
Attribute Locked.VB_Description = "决定控件是否可编辑。"
    Locked = T2.Locked
End Property

Public Property Let Locked(ByVal New_Locked As Boolean)
    T2.Locked() = New_Locked
    PropertyChanged "Locked"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=T2,T2,-1,LinkExecute
Public Sub LinkExecute(ByVal Command As String)
Attribute LinkExecute.VB_Description = "发送一个命令串到 DDE 对话中的源应用程序。"
    T2.LinkExecute Command
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=T2,T2,-1,LinkPoke
Public Sub LinkPoke()
Attribute LinkPoke.VB_Description = "传送标签、图片框或文本框的内容到 DDE 对话中的源应用程序。"
    T2.LinkPoke
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=T2,T2,-1,LinkRequest
Public Sub LinkRequest()
Attribute LinkRequest.VB_Description = "要求 DDE 对话中的源应用程序更新标签、图片框或文本控件的内容。"
    T2.LinkRequest
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=T2,T2,-1,LinkSend
Public Sub LinkSend()
Attribute LinkSend.VB_Description = "传送图片框的内容到 DDE 对话中的目标应用程序。"
    T2.LinkSend
End Sub
'
''注意！不要删除或修改下列被注释的行！
''MappingInfo=T2,T2,-1,ForeColor
'Public Property Get ForeColor() As OLE_COLOR
'    ForeColor = T2.ForeColor
'End Property
'
'Public Property Let ForeColor(ByVal New_ForeColor As OLE_COLOR)
'    T2.ForeColor() = New_ForeColor
'    PropertyChanged "ForeColor"
'End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=T2,T2,-1,Font
Public Property Get Font() As Font
Attribute Font.VB_Description = "返回一个 Font 对象。"
Attribute Font.VB_UserMemId = -512
    Set Font = T2.Font
End Property

Public Property Set Font(ByVal New_Font As Font)
    Set T2.Font = New_Font
    PropertyChanged "Font"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,BackStyle
Public Property Get BackStyle() As Integer
Attribute BackStyle.VB_Description = "指出 Label 或 Shape 的背景样式是透明的还是不透明的。"
    BackStyle = UserControl.BackStyle
End Property

Public Property Let BackStyle(ByVal New_BackStyle As Integer)
    UserControl.BackStyle() = New_BackStyle
    PropertyChanged "BackStyle"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=T2,T2,-1,FontSize
Public Property Get FontSize() As Single
Attribute FontSize.VB_Description = "指定给定层的每一行出现的字体大小(以磅为单位)。"
    FontSize = T2.FontSize
End Property

Public Property Let FontSize(ByVal New_FontSize As Single)
    T2.FontSize() = New_FontSize
    PropertyChanged "FontSize"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=Title,Title,-1,Text
Public Property Get TextTitle() As String
Attribute TextTitle.VB_Description = "返回/设置控件中包含的文本。"
    TextTitle = Title.Text
End Property

Public Property Let TextTitle(ByVal New_TextTitle As String)
    Title.Text() = New_TextTitle
    PropertyChanged "TextTitle"
End Property

Private Sub T2_Change()
    RaiseEvent Change
End Sub
'''
''''注意！不要删除或修改下列被注释的行！
''''MappingInfo=T1,T1,-1,ForeColor
'''Public Property Get ForeColor() As OLE_COLOR
'''    ForeColor = T1.ForeColor
'''End Property
'''
'''注意！不要删除或修改下列被注释的行！
'''MappingInfo=T1,T1,-1,ForeColor
''Public Property Get ForeColor() As OLE_COLOR
''    ForeColor = T1.ForeColor
''End Property
''
''Public Property Let ForeColor(ByVal New_ForeColor As OLE_COLOR)
''    T1.ForeColor() = New_ForeColor
''    PropertyChanged "ForeColor"
''End Property
''
''注意！不要删除或修改下列被注释的行！
''MappingInfo=Title,Title,-1,ForeColor
'Public Property Get ForeColor() As OLE_COLOR
'    ForeColor = Title.ForeColor
'End Property
'
'注意！不要删除或修改下列被注释的行！
'MappingInfo=Title,Title,-1,ForeColor
Public Property Get ForeColor() As OLE_COLOR
Attribute ForeColor.VB_Description = "返回/设置对象中文本和图形的前景色。"
    ForeColor = Title.ForeColor
End Property

Public Property Let ForeColor(ByVal New_ForeColor As OLE_COLOR)
    Title.ForeColor() = New_ForeColor
    PropertyChanged "ForeColor"
End Property