home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / Toolbar_Wi1980223142006.psc / frmMain.frm < prev    next >
Text File  |  2006-03-15  |  5KB  |  153 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
  3. Begin VB.Form frmMain 
  4.    Caption         =   "Toolbar Background"
  5.    ClientHeight    =   2970
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   6660
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2970
  11.    ScaleWidth      =   6660
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.CommandButton cmdexit 
  14.       Caption         =   "Exit"
  15.       Height          =   405
  16.       Left            =   60
  17.       TabIndex        =   3
  18.       Top             =   2280
  19.       Width           =   2085
  20.    End
  21.    Begin VB.CommandButton Command1 
  22.       Caption         =   "Set Toolbar BackGround"
  23.       Height          =   405
  24.       Left            =   60
  25.       TabIndex        =   2
  26.       Top             =   1710
  27.       Width           =   2085
  28.    End
  29.    Begin VB.CommandButton cmdBk 
  30.       Caption         =   "Set Toolbar Backcolor"
  31.       Height          =   405
  32.       Left            =   45
  33.       TabIndex        =   1
  34.       Top             =   1125
  35.       Width           =   2085
  36.    End
  37.    Begin MSComctlLib.ImageList ImageList1 
  38.       Left            =   4785
  39.       Top             =   975
  40.       _ExtentX        =   1005
  41.       _ExtentY        =   1005
  42.       BackColor       =   -2147483643
  43.       ImageWidth      =   48
  44.       ImageHeight     =   48
  45.       MaskColor       =   16711935
  46.       _Version        =   393216
  47.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  48.          NumListImages   =   4
  49.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  50.             Picture         =   "frmMain.frx":0000
  51.             Key             =   ""
  52.          EndProperty
  53.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  54.             Picture         =   "frmMain.frx":1B52
  55.             Key             =   ""
  56.          EndProperty
  57.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  58.             Picture         =   "frmMain.frx":36A4
  59.             Key             =   ""
  60.          EndProperty
  61.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  62.             Picture         =   "frmMain.frx":51F6
  63.             Key             =   ""
  64.          EndProperty
  65.       EndProperty
  66.    End
  67.    Begin MSComctlLib.Toolbar Toolbar1 
  68.       Align           =   1  'Align Top
  69.       Height          =   840
  70.       Left            =   0
  71.       TabIndex        =   0
  72.       Top             =   0
  73.       Width           =   6660
  74.       _ExtentX        =   11748
  75.       _ExtentY        =   1482
  76.       ButtonWidth     =   1455
  77.       ButtonHeight    =   1429
  78.       Appearance      =   1
  79.       Style           =   1
  80.       ImageList       =   "ImageList1"
  81.       _Version        =   393216
  82.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  83.          NumButtons      =   5
  84.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  85.             ImageIndex      =   1
  86.          EndProperty
  87.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  88.             ImageIndex      =   2
  89.          EndProperty
  90.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  91.             Style           =   3
  92.          EndProperty
  93.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  94.             ImageIndex      =   3
  95.          EndProperty
  96.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  97.             ImageIndex      =   4
  98.          EndProperty
  99.       EndProperty
  100.    End
  101.    Begin VB.Image Image1 
  102.       Height          =   1200
  103.       Left            =   3150
  104.       Picture         =   "frmMain.frx":6D48
  105.       Top             =   1350
  106.       Visible         =   0   'False
  107.       Width           =   60
  108.    End
  109.    Begin VB.Line Line1 
  110.       BorderColor     =   &H00808080&
  111.       Index           =   1
  112.       X1              =   0
  113.       X2              =   825
  114.       Y1              =   840
  115.       Y2              =   840
  116.    End
  117.    Begin VB.Line Line1 
  118.       BorderColor     =   &H00FFFFFF&
  119.       Index           =   0
  120.       X1              =   15
  121.       X2              =   840
  122.       Y1              =   855
  123.       Y2              =   855
  124.    End
  125. End
  126. Attribute VB_Name = "frmMain"
  127. Attribute VB_GlobalNameSpace = False
  128. Attribute VB_Creatable = False
  129. Attribute VB_PredeclaredId = True
  130. Attribute VB_Exposed = False
  131. Private Sub cmdBk_Click()
  132.     Call SetToolbarBK(Toolbar1.hwnd, vbYellow)
  133. End Sub
  134.  
  135. Private Sub cmdexit_Click()
  136.     MsgBox "Toolbar Extander by DreamVB.", vbInformation, "Exit.."
  137.     Unload frmMain
  138. End Sub
  139.  
  140. Private Sub Command1_Click()
  141.     SetToolbarBG Toolbar1.hwnd, Image1.Picture
  142. End Sub
  143.  
  144. Private Sub Form_Resize()
  145.     Line1(0).X2 = frmMain.ScaleWidth
  146.     Line1(1).X2 = Line1(0).X2
  147. End Sub
  148.  
  149. Private Sub Form_Unload(Cancel As Integer)
  150.     SetToolbarBK Toolbar1.hwnd, vbButtonFace
  151.     Set frmMain = Nothing
  152. End Sub
  153.