home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD13443162001.psc / smProgress / smLabel3d.ctl < prev    next >
Encoding:
Text File  |  1999-05-28  |  6.5 KB  |  238 lines
  1. VERSION 5.00
  2. Begin VB.UserControl smLabel 
  3.    Alignable       =   -1  'True
  4.    CanGetFocus     =   0   'False
  5.    ClientHeight    =   1185
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   4680
  9.    HasDC           =   0   'False
  10.    ScaleHeight     =   1185
  11.    ScaleWidth      =   4680
  12.    Begin VB.Line Line41 
  13.       BorderColor     =   &H00808080&
  14.       X1              =   4260
  15.       X2              =   4260
  16.       Y1              =   120
  17.       Y2              =   960
  18.    End
  19.    Begin VB.Line Line31 
  20.       BorderColor     =   &H00FFFFFF&
  21.       X1              =   260
  22.       X2              =   260
  23.       Y1              =   960
  24.       Y2              =   120
  25.    End
  26.    Begin VB.Line Line11 
  27.       BorderColor     =   &H00FFFFFF&
  28.       X1              =   240
  29.       X2              =   4320
  30.       Y1              =   140
  31.       Y2              =   140
  32.    End
  33.    Begin VB.Label Label1 
  34.       Alignment       =   2  'Center
  35.       BackStyle       =   0  'Transparent
  36.       BeginProperty Font 
  37.          Name            =   "Tahoma"
  38.          Size            =   8.25
  39.          Charset         =   204
  40.          Weight          =   400
  41.          Underline       =   0   'False
  42.          Italic          =   0   'False
  43.          Strikethrough   =   0   'False
  44.       EndProperty
  45.       Height          =   735
  46.       Left            =   300
  47.       TabIndex        =   0
  48.       Top             =   180
  49.       Width           =   3975
  50.       WordWrap        =   -1  'True
  51.    End
  52.    Begin VB.Line Line4 
  53.       BorderColor     =   &H00FFFFFF&
  54.       X1              =   4320
  55.       X2              =   4320
  56.       Y1              =   120
  57.       Y2              =   960
  58.    End
  59.    Begin VB.Line Line3 
  60.       BorderColor     =   &H00808080&
  61.       X1              =   240
  62.       X2              =   240
  63.       Y1              =   120
  64.       Y2              =   960
  65.    End
  66.    Begin VB.Line Line2 
  67.       BorderColor     =   &H00FFFFFF&
  68.       X1              =   240
  69.       X2              =   4320
  70.       Y1              =   960
  71.       Y2              =   960
  72.    End
  73.    Begin VB.Line Line1 
  74.       BorderColor     =   &H00808080&
  75.       X1              =   240
  76.       X2              =   4320
  77.       Y1              =   120
  78.       Y2              =   120
  79.    End
  80. End
  81. Attribute VB_Name = "smLabel"
  82. Attribute VB_GlobalNameSpace = False
  83. Attribute VB_Creatable = True
  84. Attribute VB_PredeclaredId = False
  85. Attribute VB_Exposed = True
  86. 'Default Property Values:
  87. Const m_def_Style = 0
  88. Const m_def_Caption = ""
  89.  
  90. 'Property Variables:
  91. Dim m_Style As Integer
  92. 'Dim m_Caption As String
  93.  
  94. 'Event Declarations:
  95. '--------------------------------------------------------------
  96. ' ABOUT Event
  97. '--------------------------------------------------------------
  98. Public Sub ShowAboutBox()
  99. Attribute ShowAboutBox.VB_UserMemId = -552
  100.     dlgAbout.Show vbModal
  101.     Unload dlgAbout
  102.     Set dlgAbout = Nothing
  103. End Sub
  104.  
  105. Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  106.  
  107. 'Dim vDate As Variant, iYear As Integer
  108. '
  109. '    vDate = Date
  110. '    iYear = Year(vDate)
  111. '    If (Month(vDate) > 7 And iYear = 1999) Or iYear > 1999 Then
  112. '        ShowAboutBox
  113. '    End If
  114.     
  115.     'Caption = PropBag.ReadProperty("Caption", "")
  116.     Label1.Caption = PropBag.ReadProperty("Caption", m_def_Caption)
  117.     m_Style = PropBag.ReadProperty("Style", m_def_Style)
  118.     ChangeStyle
  119.     UserControl_Resize
  120.     
  121. End Sub
  122.  
  123. Private Sub UserControl_Resize()
  124.     
  125.     Line1.X1 = 10
  126.     Line1.X2 = UserControl.ScaleWidth - 10
  127.     Line1.Y1 = 10
  128.     Line1.Y2 = 10
  129.     
  130.     Line2.X1 = 10
  131.     Line2.X2 = UserControl.ScaleWidth - 10
  132.     Line2.Y1 = UserControl.ScaleHeight - 10
  133.     Line2.Y2 = UserControl.ScaleHeight - 10
  134.     
  135.     Line3.X1 = 10
  136.     Line3.X2 = 10
  137.     Line3.Y1 = 10
  138.     Line3.Y2 = UserControl.ScaleHeight - 10
  139.     
  140.     Line4.X1 = UserControl.ScaleWidth - 10
  141.     Line4.X2 = UserControl.ScaleWidth - 10
  142.     Line4.Y1 = 10
  143.     Line4.Y2 = UserControl.ScaleHeight - 10
  144.     
  145.     Select Case m_Style
  146.     Case 0
  147.     
  148.     Case 1
  149.         Line11.X1 = 30
  150.         Line11.X2 = UserControl.ScaleWidth - 15
  151.         Line11.Y1 = 30
  152.         Line11.Y2 = 30
  153.         
  154.         Line31.X1 = 30
  155.         Line31.X2 = 30
  156.         Line31.Y1 = 30
  157.         Line31.Y2 = UserControl.ScaleHeight - 15
  158.         
  159.         Line41.X1 = UserControl.ScaleWidth - 30
  160.         Line41.X2 = UserControl.ScaleWidth - 30
  161.         Line41.Y1 = 10
  162.         Line41.Y2 = UserControl.ScaleHeight - 10
  163.         
  164.     End Select
  165.     
  166.     Label1.Top = 50
  167.     Label1.Left = 50
  168.     Label1.Width = UserControl.ScaleWidth - 50
  169.     Label1.Height = UserControl.ScaleHeight - 50
  170.     
  171. End Sub
  172.  
  173. Public Property Get Caption() As String
  174. Attribute Caption.VB_Description = "smLabel3d Caption"
  175.     Caption = Label1.Caption
  176. End Property
  177.  
  178. Public Property Let Caption(ByVal vNewValue As String)
  179.     Label1.Caption = vNewValue
  180.     PropertyChanged "Caption"
  181. End Property
  182.  
  183. Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  184.     Call PropBag.WriteProperty("Caption", Label1.Caption, m_def_Caption)
  185.     Call PropBag.WriteProperty("Style", m_Style, m_def_Style)
  186. End Sub
  187.  
  188. 'Initialize Properties for User Control
  189. Private Sub UserControl_InitProperties()
  190.     m_Caption = m_def_Caption
  191.     m_Style = m_def_Style
  192.     ChangeStyle
  193. End Sub
  194.  
  195. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  196. 'MemberInfo=7,3,0,0
  197. Public Property Get Style() As Integer
  198. Attribute Style.VB_Description = "smLabel3d Style"
  199.     'If Ambient.UserMode Then Err.Raise 393
  200.     Style = m_Style
  201. End Property
  202.  
  203. '--------------------------------------------------------------
  204. ' Change label3d properties
  205. '--------------------------------------------------------------
  206. Private Sub ChangeStyle()
  207.     
  208.     Select Case m_Style
  209.     Case 0
  210.         Line11.Visible = False
  211.         Line31.Visible = False
  212.         Line41.Visible = False
  213.         Line2.BorderColor = &HFFFFFF
  214.     Case 1
  215.         Line11.Visible = True
  216.         Line31.Visible = True
  217.         Line41.Visible = True
  218.         Line2.BorderColor = &H808080
  219.     End Select
  220.     
  221. End Sub
  222.  
  223. '--------------------------------------------------------------
  224. ' STYLE Property
  225. '--------------------------------------------------------------
  226. Public Property Let Style(ByVal New_Style As Integer)
  227.     
  228.     'If Ambient.UserMode Then Err.Raise 382
  229.     If New_Style <> 0 And New_Style <> 1 Then New_Style = 0
  230.     m_Style = New_Style
  231.     PropertyChanged "Style"
  232.     
  233.     ChangeStyle
  234.     UserControl_Resize
  235.     
  236. End Property
  237.  
  238.