home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Cash_Accou2121397222008.psc / Controls / ctrlLiner.ctl < prev    next >
Text File  |  2008-04-29  |  1KB  |  54 lines
  1. VERSION 5.00
  2. Begin VB.UserControl Hline 
  3.    ClientHeight    =   540
  4.    ClientLeft      =   0
  5.    ClientTop       =   0
  6.    ClientWidth     =   1635
  7.    ScaleHeight     =   540
  8.    ScaleWidth      =   1635
  9.    ToolboxBitmap   =   "ctrlLiner.ctx":0000
  10.    Begin VB.Line Line2 
  11.       BorderColor     =   &H80000014&
  12.       X1              =   240
  13.       X2              =   1560
  14.       Y1              =   120
  15.       Y2              =   120
  16.    End
  17.    Begin VB.Line Line1 
  18.       BorderColor     =   &H00808080&
  19.       BorderWidth     =   2
  20.       X1              =   120
  21.       X2              =   1560
  22.       Y1              =   120
  23.       Y2              =   120
  24.    End
  25. End
  26. Attribute VB_Name = "Hline"
  27. Attribute VB_GlobalNameSpace = False
  28. Attribute VB_Creatable = True
  29. Attribute VB_PredeclaredId = False
  30. Attribute VB_Exposed = False
  31. ''*****************************************************************
  32. '' File Name: ctrlLiner.ctl
  33. '' Purpose: Control used to draw a border line
  34.  
  35. Option Explicit
  36.  
  37.  
  38. Private Sub UserControl_Paint()
  39. Line1.x1 = 0
  40. Line1.y1 = 0
  41. Line1.x2 = UserControl.Width
  42. Line1.y2 = 0
  43.  
  44. Line2.x1 = 0
  45. Line2.y1 = 20
  46. Line2.x2 = UserControl.Width
  47. Line2.y2 = 20
  48. End Sub
  49.  
  50. Private Sub UserControl_Resize()
  51.     UserControl.Height = 30
  52.     UserControl_Paint
  53. End Sub
  54.