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 / Form1.frm < prev    next >
Text File  |  2005-02-08  |  8KB  |  247 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H00FF00FF&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   8670
  7.    ClientLeft      =   1080
  8.    ClientTop       =   1440
  9.    ClientWidth     =   9720
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   578
  12.    ScaleMode       =   3  'Pixel
  13.    ScaleWidth      =   648
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin RedHatSkin.Skin Skin1 
  17.       Height          =   8670
  18.       Left            =   0
  19.       TabIndex        =   0
  20.       Top             =   0
  21.       Width           =   9720
  22.       _ExtentX        =   17145
  23.       _ExtentY        =   15293
  24.       Begin RedHatSkin.StatusBar StatusBar1 
  25.          Height          =   300
  26.          Left            =   90
  27.          TabIndex        =   12
  28.          Top             =   8265
  29.          Width           =   9540
  30.          _ExtentX        =   16828
  31.          _ExtentY        =   529
  32.       End
  33.       Begin RedHatSkin.Address_Bar Address_Bar1 
  34.          Height          =   585
  35.          Left            =   90
  36.          TabIndex        =   11
  37.          Top             =   1140
  38.          Width           =   9525
  39.          _ExtentX        =   16801
  40.          _ExtentY        =   1032
  41.       End
  42.       Begin VB.PictureBox Picture1 
  43.          Appearance      =   0  'Flat
  44.          BackColor       =   &H80000005&
  45.          BorderStyle     =   0  'None
  46.          ForeColor       =   &H80000008&
  47.          Height          =   6540
  48.          Left            =   105
  49.          ScaleHeight     =   6540
  50.          ScaleWidth      =   9510
  51.          TabIndex        =   2
  52.          Top             =   1725
  53.          Width           =   9510
  54.          Begin RedHatSkin.ctlIcon ctlIcon1 
  55.             Height          =   1200
  56.             Index           =   0
  57.             Left            =   225
  58.             TabIndex        =   3
  59.             Top             =   285
  60.             Width           =   750
  61.             _ExtentX        =   1323
  62.             _ExtentY        =   2117
  63.             Hold_Picture    =   "Form1.frx":0000
  64.             Hold_Caption    =   "Font\nOptions"
  65.             DoubleLine      =   -1  'True
  66.          End
  67.          Begin RedHatSkin.ctlIcon ctlIcon1 
  68.             Height          =   1200
  69.             Index           =   1
  70.             Left            =   1620
  71.             TabIndex        =   4
  72.             Top             =   285
  73.             Width           =   750
  74.             _ExtentX        =   1323
  75.             _ExtentY        =   2117
  76.             Hold_Picture    =   "Form1.frx":14D2
  77.             Hold_Caption    =   $"Form1.frx":297C
  78.          End
  79.          Begin RedHatSkin.ctlIcon ctlIcon1 
  80.             Height          =   1200
  81.             Index           =   2
  82.             Left            =   2910
  83.             TabIndex        =   5
  84.             Top             =   285
  85.             Width           =   750
  86.             _ExtentX        =   1323
  87.             _ExtentY        =   2117
  88.             Hold_Picture    =   "Form1.frx":2986
  89.             Hold_Caption    =   "Network\nOptions"
  90.             DoubleLine      =   -1  'True
  91.          End
  92.          Begin RedHatSkin.ctlIcon ctlIcon1 
  93.             Height          =   1200
  94.             Index           =   3
  95.             Left            =   4275
  96.             TabIndex        =   6
  97.             Top             =   285
  98.             Width           =   750
  99.             _ExtentX        =   1323
  100.             _ExtentY        =   2117
  101.             Hold_Picture    =   "Form1.frx":4448
  102.             Hold_Caption    =   "PC\nConfig"
  103.             DoubleLine      =   -1  'True
  104.          End
  105.          Begin RedHatSkin.ctlIcon ctlIcon1 
  106.             Height          =   1200
  107.             Index           =   4
  108.             Left            =   5580
  109.             TabIndex        =   7
  110.             Top             =   285
  111.             Width           =   750
  112.             _ExtentX        =   1323
  113.             _ExtentY        =   2117
  114.             Hold_Picture    =   "Form1.frx":591A
  115.             Hold_Caption    =   "Window\nFX"
  116.             DoubleLine      =   -1  'True
  117.          End
  118.          Begin RedHatSkin.ctlIcon ctlIcon1 
  119.             Height          =   1200
  120.             Index           =   5
  121.             Left            =   6765
  122.             TabIndex        =   8
  123.             Top             =   285
  124.             Width           =   750
  125.             _ExtentX        =   1323
  126.             _ExtentY        =   2117
  127.             Hold_Picture    =   "Form1.frx":717C
  128.             Hold_Caption    =   "Font\nOptions"
  129.             DoubleLine      =   -1  'True
  130.          End
  131.          Begin RedHatSkin.ctlIcon ctlIcon1 
  132.             Height          =   1200
  133.             Index           =   6
  134.             Left            =   7845
  135.             TabIndex        =   9
  136.             Top             =   285
  137.             Width           =   750
  138.             _ExtentX        =   1323
  139.             _ExtentY        =   2117
  140.             Hold_Picture    =   "Form1.frx":86F2
  141.             Hold_Caption    =   "Menu\nOptions"
  142.             DoubleLine      =   -1  'True
  143.          End
  144.          Begin RedHatSkin.ctlIcon ctlIcon1 
  145.             Height          =   1200
  146.             Index           =   7
  147.             Left            =   240
  148.             TabIndex        =   10
  149.             Top             =   1740
  150.             Width           =   750
  151.             _ExtentX        =   1323
  152.             _ExtentY        =   2117
  153.             Hold_Picture    =   "Form1.frx":9DF4
  154.             Hold_Caption    =   "Media\nOptions"
  155.             DoubleLine      =   -1  'True
  156.          End
  157.          Begin VB.Image Image1 
  158.             Height          =   3390
  159.             Left            =   5865
  160.             Picture         =   "Form1.frx":B166
  161.             Top             =   3915
  162.             Width           =   3315
  163.          End
  164.       End
  165.       Begin RedHatSkin.Bar Bar1 
  166.          Height          =   840
  167.          Left            =   90
  168.          TabIndex        =   1
  169.          Top             =   300
  170.          Width           =   9525
  171.          _ExtentX        =   16801
  172.          _ExtentY        =   1482
  173.       End
  174.    End
  175. End
  176. Attribute VB_Name = "Form1"
  177. Attribute VB_GlobalNameSpace = False
  178. Attribute VB_Creatable = False
  179. Attribute VB_PredeclaredId = True
  180. Attribute VB_Exposed = False
  181. Private Sub Bar1_Clicked(Index As Integer)
  182.     StatusBar1.Caption "ToolBar Button #" & Index & " was clicked."
  183. End Sub
  184.  
  185. Private Sub Bar1_MouseOff(Index As Integer)
  186.     StatusBar1.Caption "ToolBar Button #" & Index & " no longer has mouse over."
  187. End Sub
  188.  
  189. Private Sub Bar1_MouseOver(Index As Integer)
  190.     StatusBar1.Caption "ToolBar Button #" & Index & " has mouse over."
  191. End Sub
  192.  
  193. Private Sub ctlIcon1_DblClick(Index As Integer)
  194.     StatusBar1.Caption "Icon #" & Index & " has been Double Clicked."
  195. End Sub
  196.  
  197. Private Sub ctlIcon1_GotFocus(Index As Integer)
  198.     ctlIcon1(Index).SelectMe
  199. End Sub
  200.  
  201. Private Sub ctlIcon1_LostFocus(Index As Integer)
  202.     ctlIcon1(Index).Clear
  203.     ctlIcon1(Index).LoadGUI
  204. End Sub
  205.  
  206. Private Sub ctlIcon1_MouseDown(Index As Integer, Button As Variant, Shift As Variant, X As Variant, Y As Variant)
  207.     StatusBar1.Caption "Icon #" & Index & " has button(" & Button & ") down."
  208. End Sub
  209.  
  210. Private Sub ctlIcon1_MouseUP(Index As Integer, Button As Variant, Shift As Variant, X As Variant, Y As Variant)
  211.     StatusBar1.Caption "Icon #" & Index & " has button(" & Button & ") up."
  212. End Sub
  213.  
  214. Private Sub Form_Load()
  215.     Skin1.Top = 0
  216.     Skin1.Left = 0
  217.     Skin1.SubClassMe True
  218.     Bar1.AddButton "Back", 0, True
  219.     Bar1.AddButton "Foward", 1, True
  220.     Bar1.AddButton "Up", 2, True
  221.     Bar1.AddButton "Refresh", 3, True
  222.     Bar1.AddButton "Home", 4, True
  223.     Bar1.SubClassMe True
  224.     StatusBar1.Caption "8 Objects Loaded"
  225. End Sub
  226.  
  227. Private Sub Form_Resize()
  228.     Skin1.IsGrey = True
  229.     Skin1.LoadGUI
  230.     Bar1.Top = 300
  231.     Bar1.Left = 90
  232.     Bar1.Width = Me.Width - 180
  233.     Address_Bar1.Width = Bar1.Width
  234.     Picture1.Width = Me.Width - 200
  235.     StatusBar1.Left = 90
  236.     StatusBar1.Width = Me.Width - 180
  237.     StatusBar1.Top = Me.Height - StatusBar1.Height - 90 '1545
  238.     Picture1.Height = Me.Height - Picture1.Top - 100
  239. End Sub
  240.  
  241. Private Sub Form_Unload(Cancel As Integer)
  242.     Skin1.SubClassMe False
  243.     Bar1.SubClassMe False
  244. End Sub
  245.  
  246.  
  247.