ovalcmd.ctl

《管状换热器计算机辅助设计系统ExhCAD绘图系统(版本:1.01a Final)》为自由软件

VERSION 5.00
Begin VB.UserControl OvalCmd 
   BackColor       =   &H8000000A&
   ClientHeight    =   1935
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   2295
   PropertyPages   =   "OvalCmd.ctx":0000
   ScaleHeight     =   129
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   153
   ToolboxBitmap   =   "OvalCmd.ctx":0028
   Begin VB.PictureBox OvalPic 
      BackColor       =   &H0000FF00&
      BorderStyle     =   0  'None
      Height          =   480
      Left            =   360
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   0
      Top             =   120
      Width           =   480
   End
   Begin VB.Label OvalLbl 
      BackColor       =   &H0000FF00&
      Height          =   735
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   1335
   End
End
Attribute VB_Name = "OvalCmd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "PropPageWizardRun" ,"Yes"
'Default Property Values:
Const m_def_TipString = "example tip"
Const m_def_FileName = ""
'Property Variables:
Public m_TipString As String
Public m_FileName As String
'Event Declarations:
Event Click() 'MappingInfo=OvalLbl,OvalLbl,-1,Click

Private Sub OvalLbl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
OvalLbl.BackColor = RGB(255, 0, 0)
OvalPic.BackColor = RGB(255, 0, 0)
End Sub

Private Sub OvalLbl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Point As POINTAPI
Tip_String = m_TipString
File_Name = m_FileName
OvalLbl.BackColor = RGB(0, 255, 0)
OvalPic.BackColor = RGB(0, 255, 0)
If ShowTip Then
   ShowTip = False
   GetCursorPos Point
   OvalTip.Left = Point.X * Screen.Width / 800
   OvalTip.Top = Point.Y * Screen.Height / 600
   OvalTip.Show
End If
End Sub

Private Sub OvalPic_Click()
   OvalLbl_Click
End Sub

Private Sub OvalPic_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
      OvalLbl_MouseDown Button, Shift, X, Y
End Sub

Private Sub OvalPic_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   OvalLbl_MouseMove Button, Shift, X, Y
End Sub

Private Sub UserControl_Initialize()
   ShowTip = True
End Sub
Private Sub UserControl_Resize()
  SetWindowRgn UserControl.hwnd, _
            CreateEllipticRgn(0, 0, OvalLbl.Width, OvalLbl.Height), _
            True
End Sub
Private Sub OvalLbl_Click()
    RaiseEvent Click
End Sub

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=OvalPic,OvalPic,-1,Picture
Public Property Get Picture() As Picture
Attribute Picture.VB_Description = "Returns/sets a graphic to be displayed in a control."
    Set Picture = OvalPic.Picture
End Property

Public Property Set Picture(ByVal New_Picture As Picture)
    Set OvalPic.Picture = New_Picture
    PropertyChanged "Picture"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=13,0,0,example tip
Public Property Get TipString() As String
    TipString = m_TipString
End Property

Public Property Let TipString(ByVal New_TipString As String)
    m_TipString = New_TipString
    PropertyChanged "TipString"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=13,0,0,showtip.wav
Public Property Get FileName() As String
    FileName = m_FileName
End Property

Public Property Let FileName(ByVal New_FileName As String)
    m_FileName = New_FileName
    PropertyChanged "FileName"
End Property

'Initialize Properties for User Control
Private Sub UserControl_InitProperties()
    m_TipString = m_def_TipString
    m_FileName = m_def_FileName
End Sub

'Load property values from storage
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

    Set Picture = PropBag.ReadProperty("Picture", Nothing)
    m_TipString = PropBag.ReadProperty("TipString", m_def_TipString)
    m_FileName = PropBag.ReadProperty("FileName", m_def_FileName)
 
End Sub

'Write property values to storage
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

    Call PropBag.WriteProperty("Picture", Picture, Nothing)
    Call PropBag.WriteProperty("TipString", m_TipString, m_def_TipString)
    Call PropBag.WriteProperty("FileName", m_FileName, m_def_FileName)
End Sub