home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / RedHat_Win185020282005.psc / Address_Bar.ctl < prev    next >
Text File  |  2005-02-06  |  3KB  |  82 lines
  1. VERSION 5.00
  2. Begin VB.UserControl Address_Bar 
  3.    AutoRedraw      =   -1  'True
  4.    ClientHeight    =   3600
  5.    ClientLeft      =   0
  6.    ClientTop       =   0
  7.    ClientWidth     =   4800
  8.    ScaleHeight     =   240
  9.    ScaleMode       =   3  'Pixel
  10.    ScaleWidth      =   320
  11.    Begin RedHatSkin.TextBox TextBox1 
  12.       Height          =   360
  13.       Left            =   1230
  14.       TabIndex        =   0
  15.       Top             =   90
  16.       Width           =   2850
  17.       _ExtentX        =   5027
  18.       _ExtentY        =   635
  19.    End
  20.    Begin VB.Label Label1 
  21.       BackStyle       =   0  'Transparent
  22.       Caption         =   "Location:"
  23.       BeginProperty Font 
  24.          Name            =   "Tahoma"
  25.          Size            =   9.75
  26.          Charset         =   0
  27.          Weight          =   400
  28.          Underline       =   0   'False
  29.          Italic          =   0   'False
  30.          Strikethrough   =   0   'False
  31.       EndProperty
  32.       Height          =   555
  33.       Left            =   375
  34.       TabIndex        =   1
  35.       Top             =   120
  36.       Width           =   1005
  37.    End
  38. End
  39. Attribute VB_Name = "Address_Bar"
  40. Attribute VB_GlobalNameSpace = False
  41. Attribute VB_Creatable = True
  42. Attribute VB_PredeclaredId = False
  43. Attribute VB_Exposed = False
  44. Private Const Color_1 = "38,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,15132390,12895428,16777215"
  45.  
  46. Private Function LoadBmpMenuLines(Legnth As Integer, ColorPallet As String, X As Integer, Y As Integer, Optional Gray As Boolean = True, Optional Brightness As Integer = 0) As Integer
  47.     If ColorPallet = "" Then Exit Function
  48.     Dim PixCount
  49.     Dim Colors() As String, CurrentRow, CurrentColumn, Count, Rows
  50.     Colors = Split(ColorPallet, ",")
  51.     Rows = Int(Split(ColorPallet, ",")(0))
  52.     For Count = 1 To UBound(Colors)
  53.         If CurrentRow > (Rows) Then CurrentRow = 0: CurrentColumn = CurrentColumn + 1
  54.             If Colors(Count) = &HFF00FF And Brightness <> 0 Then
  55.             
  56.             Else
  57.                 If Gray = True Then
  58.                 UserControl.Line (X + CurrentColumn, Y + CurrentRow)-(X + CurrentColumn + Legnth, Y + CurrentRow), AdjustBrightness(Colors(Count), Brightness)
  59.                 Else
  60.                 UserControl.Line (X + CurrentColumn, Y + CurrentRow)-(X + CurrentColumn + Legnth, Y + CurrentRow), MakeGrey(Colors(Count))
  61.                 End If
  62.             End If
  63.         CurrentRow = CurrentRow + 1
  64.     Next
  65.     LoadBmpMenuLines = CurrentColumn
  66. End Function
  67.  
  68. Function LoadGUI()
  69. LoadBmpMenuLines UserControl.ScaleWidth, Color_1, 0, 0
  70. UserControl.Height = 39 * 15
  71. TextBox1.Width = UserControl.ScaleWidth - TextBox1.Left - 5
  72. End Function
  73.  
  74.  
  75. Private Sub UserControl_Resize()
  76. LoadGUI
  77. End Sub
  78.  
  79. Private Sub UserControl_Show()
  80. LoadGUI
  81. End Sub
  82.