home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / b8_GS_-_Gr2056783292007.psc / b8Controls4 / b83DRect.ctl next >
Text File  |  2006-09-11  |  5KB  |  180 lines
  1. VERSION 5.00
  2. Begin VB.UserControl b83DRect 
  3.    BackColor       =   &H00F5F5F5&
  4.    CanGetFocus     =   0   'False
  5.    ClientHeight    =   1500
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   4650
  9.    ClipBehavior    =   0  'None
  10.    ScaleHeight     =   100
  11.    ScaleMode       =   3  'Pixel
  12.    ScaleWidth      =   310
  13.    Windowless      =   -1  'True
  14.    Begin VB.Line Line3 
  15.       BorderColor     =   &H00E0E0E0&
  16.       X1              =   68
  17.       X2              =   68
  18.       Y1              =   66
  19.       Y2              =   34
  20.    End
  21.    Begin VB.Line Line4 
  22.       BorderColor     =   &H00E0E0E0&
  23.       X1              =   20
  24.       X2              =   60
  25.       Y1              =   68
  26.       Y2              =   68
  27.    End
  28.    Begin VB.Line Line1 
  29.       BorderColor     =   &H00FFFFFF&
  30.       X1              =   6
  31.       X2              =   6
  32.       Y1              =   34
  33.       Y2              =   56
  34.    End
  35.    Begin VB.Line Line2 
  36.       BorderColor     =   &H00FFFFFF&
  37.       X1              =   20
  38.       X2              =   60
  39.       Y1              =   32
  40.       Y2              =   32
  41.    End
  42. End
  43. Attribute VB_Name = "b83DRect"
  44. Attribute VB_GlobalNameSpace = False
  45. Attribute VB_Creatable = True
  46. Attribute VB_PredeclaredId = False
  47. Attribute VB_Exposed = True
  48. Option Explicit
  49.  
  50. Private Function GetHeight() As Integer
  51.     GetHeight = UserControl.Height / Screen.TwipsPerPixelY
  52. End Function
  53.  
  54. Private Function GetWidth() As Integer
  55.     GetWidth = UserControl.Width / Screen.TwipsPerPixelX
  56. End Function
  57.  
  58.  
  59. Private Sub UserControl_Resize()
  60.         
  61.     Dim iH As Integer
  62.     Dim iW As Integer
  63.     
  64.     iW = GetWidth
  65.     iH = GetHeight
  66.     
  67.     On Error Resume Next
  68.     
  69.     With Line1
  70.         .X1 = 0
  71.         .X2 = 0
  72.         .Y1 = 0
  73.         .Y2 = iH
  74.     End With
  75.     
  76.     With line2
  77.         .X1 = 0
  78.         .X2 = iW
  79.         .Y1 = 0
  80.         .Y2 = 0
  81.     End With
  82.     
  83.     With Line3
  84.         .X1 = 0
  85.         .X2 = iW
  86.         .Y1 = iH - 1
  87.         .Y2 = iH - 1
  88.     End With
  89.     
  90.     With Line4
  91.         .X1 = iW - 1
  92.         .X2 = iW - 1
  93.         .Y1 = 0
  94.         .Y2 = iH
  95.     End With
  96.  
  97.     Err.Clear
  98. End Sub
  99.  
  100. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  101. 'MappingInfo=Line1,Line1,-1,BorderColor
  102. Public Property Get Color1() As OLE_COLOR
  103. Attribute Color1.VB_Description = "Returns/sets the color of an object's border."
  104.     Color1 = Line1.BorderColor
  105. End Property
  106.  
  107. Public Property Let Color1(ByVal New_Color1 As OLE_COLOR)
  108.     Line1.BorderColor() = New_Color1
  109.     PropertyChanged "Color1"
  110. End Property
  111.  
  112. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  113. 'MappingInfo=Line2,Line2,-1,BorderColor
  114. Public Property Get Color2() As OLE_COLOR
  115. Attribute Color2.VB_Description = "Returns/sets the color of an object's border."
  116.     Color2 = line2.BorderColor
  117. End Property
  118.  
  119. Public Property Let Color2(ByVal New_Color2 As OLE_COLOR)
  120.     line2.BorderColor() = New_Color2
  121.     PropertyChanged "Color2"
  122. End Property
  123.  
  124. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  125. 'MappingInfo=Line3,Line3,-1,BorderColor
  126. Public Property Get Color3() As OLE_COLOR
  127. Attribute Color3.VB_Description = "Returns/sets the color of an object's border."
  128.     Color3 = Line3.BorderColor
  129. End Property
  130.  
  131. Public Property Let Color3(ByVal New_Color3 As OLE_COLOR)
  132.     Line3.BorderColor() = New_Color3
  133.     PropertyChanged "Color3"
  134. End Property
  135.  
  136. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  137. 'MappingInfo=Line4,Line4,-1,BorderColor
  138. Public Property Get Color4() As OLE_COLOR
  139. Attribute Color4.VB_Description = "Returns/sets the color of an object's border."
  140.     Color4 = Line4.BorderColor
  141. End Property
  142.  
  143. Public Property Let Color4(ByVal New_Color4 As OLE_COLOR)
  144.     Line4.BorderColor() = New_Color4
  145.     PropertyChanged "Color4"
  146. End Property
  147.  
  148. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  149. 'MappingInfo=UserControl,UserControl,-1,BackColor
  150. Public Property Get BackColor() As OLE_COLOR
  151. Attribute BackColor.VB_Description = "Returns/sets the background color used to display text and graphics in an object."
  152.     BackColor = UserControl.BackColor
  153. End Property
  154.  
  155. Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
  156.     UserControl.BackColor() = New_BackColor
  157.     PropertyChanged "BackColor"
  158. End Property
  159.  
  160. 'Load property values from storage
  161. Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  162.  
  163.     Line1.BorderColor = PropBag.ReadProperty("Color1", -2147483640)
  164.     line2.BorderColor = PropBag.ReadProperty("Color2", -2147483640)
  165.     Line3.BorderColor = PropBag.ReadProperty("Color3", -2147483640)
  166.     Line4.BorderColor = PropBag.ReadProperty("Color4", -2147483640)
  167.     UserControl.BackColor = PropBag.ReadProperty("BackColor", &H8000000F)
  168. End Sub
  169.  
  170. 'Write property values to storage
  171. Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  172.  
  173.     Call PropBag.WriteProperty("Color1", Line1.BorderColor, -2147483640)
  174.     Call PropBag.WriteProperty("Color2", line2.BorderColor, -2147483640)
  175.     Call PropBag.WriteProperty("Color3", Line3.BorderColor, -2147483640)
  176.     Call PropBag.WriteProperty("Color4", Line4.BorderColor, -2147483640)
  177.     Call PropBag.WriteProperty("BackColor", UserControl.BackColor, &H8000000F)
  178. End Sub
  179.  
  180.