dbtext1.ctl

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

VERSION 5.00
Begin VB.UserControl DbText 
   ClientHeight    =   570
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   1710
   ScaleHeight     =   570
   ScaleWidth      =   1710
   Begin VB.TextBox Title 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00808080&
      ForeColor       =   &H00FFFFFF&
      Height          =   375
      Left            =   0
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      TabIndex        =   2
      Text            =   "DbText1.ctx":0000
      Top             =   0
      Width           =   300
   End
   Begin VB.TextBox T1 
      Appearance      =   0  'Flat
      BackColor       =   &H00FF0000&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Left            =   360
      Locked          =   -1  'True
      TabIndex        =   0
      Text            =   "说明"
      Top             =   0
      Width           =   900
   End
   Begin VB.TextBox T2 
      Appearance      =   0  'Flat
      Height          =   375
      Left            =   1320
      TabIndex        =   1
      Top             =   0
      Width           =   300
   End
End
Attribute VB_Name = "DbText"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'缺省属性值:
'Const m_def_BackStyle = 0
'Const m_def_BackColor = 0
'Const m_def_ForeColor = 0
'Const m_def_Enabled = 0
'Const m_def_BackStyle = 0
'Const m_def_BorderStyle = 0
'Const m_def_Locked = 0
'Const m_def_LinkTopic = ""
'Const m_def_LinkTimeout = 0
'Const m_def_LinkMode = 0
'Const m_def_LinkItem = ""
'属性变量:
'Dim m_BackStyle As Integer
'Dim m_BackColor As Long
'Dim m_ForeColor As Long
'Dim m_Enabled As Boolean
'Dim m_Font As Font
'Dim m_BackStyle As Integer
'Dim m_BorderStyle As Integer
'Dim m_Locked As Boolean
'Dim m_LinkTopic As String
'Dim m_LinkTimeout As Integer
'Dim m_LinkMode As Integer
'Dim m_LinkItem As String
'事件声明:
Event Change() 'MappingInfo=T2,T2,-1,Change
Attribute Change.VB_Description = "当控件内容改变时发生。"
Event Click() 'MappingInfo=T2,T2,-1,Click
Attribute Click.VB_Description = "当用户在一个对象上按下并释放鼠标按钮时发生。"
Event DblClick() 'MappingInfo=T2,T2,-1,DblClick
Attribute DblClick.VB_Description = "当用户在一个对象上按下并释放鼠标按钮后再次按下并释放鼠标按钮时发生。"
Event KeyDown(KeyCode As Integer, Shift As Integer) 'MappingInfo=T2,T2,-1,KeyDown
Attribute KeyDown.VB_Description = "当用户在拥有焦点的对象上按下任意键时发生。"
Event KeyPress(KeyAscii As Integer) 'MappingInfo=T2,T2,-1,KeyPress
Attribute KeyPress.VB_Description = "当用户按下和释放 ANSI 键时发生。"
Event KeyUp(KeyCode As Integer, Shift As Integer) 'MappingInfo=T2,T2,-1,KeyUp
Attribute KeyUp.VB_Description = "当用户在拥有焦点的对象上释放键时发生。"
Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 'MappingInfo=T2,T2,-1,MouseDown
Attribute MouseDown.VB_Description = "当用户在拥有焦点的对象上按下鼠标按钮时发生。"
Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 'MappingInfo=T2,T2,-1,MouseMove
Attribute MouseMove.VB_Description = "当用户移动鼠标时发生。"
Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 'MappingInfo=T2,T2,-1,MouseUp
Attribute MouseUp.VB_Description = "当用户在拥有焦点的对象上释放鼠标发生。"
'Event Click()
'Event DblClick()
'Event KeyDown(KeyCode As Integer, Shift As Integer)
'Event KeyPress(KeyAscii As Integer)
'Event KeyUp(KeyCode As Integer, Shift As Integer)
'Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)


Private Sub T1_GotFocus()
    T2.SetFocus
End Sub

Private Sub T2_LinkClose()
    T2.Text = "close"
End Sub

Private Sub T2_LinkOpen(Cancel As Integer)
    T2.Text = "open"
End Sub

Private Sub Title_GotFocus()
    On Error Resume Next
    T2.SetFocus
End Sub

Private Sub UserControl_Initialize()
    Title.FontSize = 9
End Sub

Private Sub UserControl_Paint()
    Title.Move 0, 0, 300, UserControl.Height
    T1.Move 300, 0, UserControl.Width - 300, 270
    T2.Move 300, T1.Height - 1, UserControl.Width - 300, UserControl.Height - 270
End Sub
''注意！不要删除或修改下列被注释的行！
''MemberInfo=8,0,0,0
'Public Property Get BackColor() As Long
'    BackColor = m_BackColor
'End Property
'
'Public Property Let BackColor(ByVal New_BackColor As Long)
'    m_BackColor = New_BackColor
'    PropertyChanged "BackColor"
'End Property
'
''注意！不要删除或修改下列被注释的行！
''MemberInfo=8,0,0,0
'Public Property Get ForeColor() As Long
'    ForeColor = m_ForeColor
'End Property
'
'Public Property Let ForeColor(ByVal New_ForeColor As Long)
'    m_ForeColor = New_ForeColor
'    PropertyChanged "ForeColor"
'End Property
''
'''注意！不要删除或修改下列被注释的行！
'''MemberInfo=0,0,0,0
''Public Property Get Enabled() As Boolean
''    Enabled = m_Enabled
''End Property
''
''Public Property Let Enabled(ByVal New_Enabled As Boolean)
''    m_Enabled = New_Enabled
''    PropertyChanged "Enabled"
''End Property
'
''注意！不要删除或修改下列被注释的行！
''MemberInfo=6,0,0,0
'Public Property Get Font() As Font
'    Set Font = m_Font
'End Property
'
'Public Property Set Font(ByVal New_Font As Font)
'    Set m_Font = New_Font
'    PropertyChanged "Font"
'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
''
'''注意！不要删除或修改下列被注释的行！
'''MemberInfo=7,0,0,0
''Public Property Get BorderStyle() As Integer
''    BorderStyle = m_BorderStyle
''End Property
''
''Public Property Let BorderStyle(ByVal New_BorderStyle As Integer)
''    m_BorderStyle = New_BorderStyle
''    PropertyChanged "BorderStyle"
''End Property
''
'''注意！不要删除或修改下列被注释的行！
'''MemberInfo=5
''Public Sub Refresh()
''
''End Sub
''
'''注意！不要删除或修改下列被注释的行！
'''MemberInfo=0,0,0,0
''Public Property Get Locked() As Boolean
''    Locked = m_Locked
''End Property
''
''Public Property Let Locked(ByVal New_Locked As Boolean)
''    m_Locked = New_Locked
''    PropertyChanged "Locked"
''End Property
''
'''注意！不要删除或修改下列被注释的行！
'''MemberInfo=13,0,0,
''Public Property Get LinkTopic() As String
''    LinkTopic = m_LinkTopic
''End Property
''
''Public Property Let LinkTopic(ByVal New_LinkTopic As String)
''    m_LinkTopic = New_LinkTopic
''    PropertyChanged "LinkTopic"
''End Property
''
'''注意！不要删除或修改下列被注释的行！
'''MemberInfo=7,0,0,0
''Public Property Get LinkTimeout() As Integer
''    LinkTimeout = m_LinkTimeout
''End Property
''
''Public Property Let LinkTimeout(ByVal New_LinkTimeout As Integer)
''    m_LinkTimeout = New_LinkTimeout
''    PropertyChanged "LinkTimeout"
''End Property
''
'''注意！不要删除或修改下列被注释的行！
'''MemberInfo=5
''Public Sub LinkSend()
''
''End Sub
''
'''注意！不要删除或修改下列被注释的行！
'''MemberInfo=5
''Public Sub LinkRequest()
''
''End Sub
''
'''注意！不要删除或修改下列被注释的行！
'''MemberInfo=5
''Public Sub LinkPoke()
''
''End Sub
''
'''注意！不要删除或修改下列被注释的行！
'''MemberInfo=7,0,0,0
''Public Property Get LinkMode() As Integer
''    LinkMode = m_LinkMode
''End Property
''
''Public Property Let LinkMode(ByVal New_LinkMode As Integer)
''    m_LinkMode = New_LinkMode
''    PropertyChanged "LinkMode"
''End Property
''
'''注意！不要删除或修改下列被注释的行！
'''MemberInfo=13,0,0,
''Public Property Get LinkItem() As String
''    LinkItem = m_LinkItem
''End Property
''
''Public Property Let LinkItem(ByVal New_LinkItem As String)
''    m_LinkItem = New_LinkItem
''    PropertyChanged "LinkItem"
''End Property
''
'''注意！不要删除或修改下列被注释的行！
'''MemberInfo=5
''Public Sub LinkExecute(ByVal Command As String)
''
''End Sub

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

Public Property Let Text1(ByVal New_Text1 As String)
    T1.Text() = New_Text1
    PropertyChanged "Text1"
End Property

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

Public Property Let Text2(ByVal New_Text2 As String)
    T2.Text() = New_Text2
    PropertyChanged "Text2"
End Property

'为用户控件初始化属性
Private Sub UserControl_InitProperties()
'    m_BackColor = m_def_BackColor
'    m_ForeColor = m_def_ForeColor
'    m_Enabled = m_def_Enabled
'    Set m_Font = Ambient.Font
'    m_BackStyle = m_def_BackStyle
'    m_BorderStyle = m_def_BorderStyle
'    m_Locked = m_def_Locked
'    m_LinkTopic = m_def_LinkTopic
'    m_LinkTimeout = m_def_LinkTimeout
'    m_LinkMode = m_def_LinkMode
'    m_LinkItem = m_def_LinkItem
'    m_BackStyle = m_def_BackStyle
End Sub

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

'    m_BackColor = PropBag.ReadProperty("BackColor", m_def_BackColor)
'    m_ForeColor = PropBag.ReadProperty("ForeColor", m_def_ForeColor)
'    m_Enabled = PropBag.ReadProperty("Enabled", m_def_Enabled)
'    Set m_Font = PropBag.ReadProperty("Font", Ambient.Font)
'    m_BackStyle = PropBag.ReadProperty("BackStyle", m_def_BackStyle)
'    m_BorderStyle = PropBag.ReadProperty("BorderStyle", m_def_BorderStyle)
'    m_Locked = PropBag.ReadProperty("Locked", m_def_Locked)