home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD1171111152000.psc / Form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-11-15  |  17.7 KB  |  454 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Outlook style bar"
  5.    ClientHeight    =   3705
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4620
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3705
  13.    ScaleWidth      =   4620
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.ListBox List1 
  16.       Height          =   3570
  17.       Left            =   1110
  18.       TabIndex        =   13
  19.       Top             =   60
  20.       Width           =   3405
  21.    End
  22.    Begin VB.PictureBox Picture4 
  23.       Height          =   3525
  24.       Left            =   90
  25.       ScaleHeight     =   3465
  26.       ScaleWidth      =   885
  27.       TabIndex        =   0
  28.       Top             =   60
  29.       Width           =   945
  30.       Begin VB.CommandButton Command4 
  31.          Height          =   165
  32.          Left            =   120
  33.          Picture         =   "Form1.frx":0000
  34.          Style           =   1  'Graphical
  35.          TabIndex        =   12
  36.          Top             =   3270
  37.          Width           =   645
  38.       End
  39.       Begin VB.Frame Frame4 
  40.          BorderStyle     =   0  'None
  41.          Height          =   3015
  42.          Left            =   30
  43.          TabIndex        =   2
  44.          Top             =   210
  45.          Width           =   825
  46.          Begin VB.PictureBox Picture5 
  47.             Appearance      =   0  'Flat
  48.             BackColor       =   &H00C0C0C0&
  49.             BorderStyle     =   0  'None
  50.             ForeColor       =   &H80000008&
  51.             Height          =   8205
  52.             Left            =   60
  53.             ScaleHeight     =   8205
  54.             ScaleWidth      =   735
  55.             TabIndex        =   3
  56.             Top             =   0
  57.             Width           =   735
  58.             Begin VB.Image Image8 
  59.                Height          =   525
  60.                Left            =   30
  61.                Picture         =   "Form1.frx":00A2
  62.                Top             =   7410
  63.                Width           =   630
  64.             End
  65.             Begin VB.Label Label22 
  66.                Alignment       =   2  'Center
  67.                Caption         =   "Help"
  68.                BeginProperty Font 
  69.                   Name            =   "MS Sans Serif"
  70.                   Size            =   8.25
  71.                   Charset         =   0
  72.                   Weight          =   700
  73.                   Underline       =   0   'False
  74.                   Italic          =   0   'False
  75.                   Strikethrough   =   0   'False
  76.                EndProperty
  77.                Height          =   195
  78.                Left            =   0
  79.                TabIndex        =   11
  80.                Top             =   7950
  81.                Width           =   735
  82.             End
  83.             Begin VB.Image Image7 
  84.                Height          =   525
  85.                Left            =   30
  86.                Picture         =   "Form1.frx":1264
  87.                Top             =   6450
  88.                Width           =   630
  89.             End
  90.             Begin VB.Label Label21 
  91.                Alignment       =   2  'Center
  92.                Caption         =   "Settings"
  93.                BeginProperty Font 
  94.                   Name            =   "MS Sans Serif"
  95.                   Size            =   8.25
  96.                   Charset         =   0
  97.                   Weight          =   700
  98.                   Underline       =   0   'False
  99.                   Italic          =   0   'False
  100.                   Strikethrough   =   0   'False
  101.                EndProperty
  102.                Height          =   195
  103.                Left            =   0
  104.                TabIndex        =   10
  105.                Top             =   6990
  106.                Width           =   735
  107.             End
  108.             Begin VB.Image Image3 
  109.                Height          =   525
  110.                Left            =   30
  111.                Picture         =   "Form1.frx":2426
  112.                Top             =   1950
  113.                Width           =   630
  114.             End
  115.             Begin VB.Label Label16 
  116.                Alignment       =   2  'Center
  117.                Caption         =   "Pause"
  118.                BeginProperty Font 
  119.                   Name            =   "MS Sans Serif"
  120.                   Size            =   8.25
  121.                   Charset         =   0
  122.                   Weight          =   700
  123.                   Underline       =   0   'False
  124.                   Italic          =   0   'False
  125.                   Strikethrough   =   0   'False
  126.                EndProperty
  127.                Height          =   195
  128.                Left            =   0
  129.                TabIndex        =   9
  130.                Top             =   2490
  131.                Width           =   735
  132.             End
  133.             Begin VB.Label Label14 
  134.                Alignment       =   2  'Center
  135.                Caption         =   "Mailing List"
  136.                BeginProperty Font 
  137.                   Name            =   "MS Sans Serif"
  138.                   Size            =   8.25
  139.                   Charset         =   0
  140.                   Weight          =   700
  141.                   Underline       =   0   'False
  142.                   Italic          =   0   'False
  143.                   Strikethrough   =   0   'False
  144.                EndProperty
  145.                Height          =   435
  146.                Left            =   0
  147.                TabIndex        =   8
  148.                Top             =   5790
  149.                Width           =   735
  150.             End
  151.             Begin VB.Image Image2 
  152.                Height          =   525
  153.                Left            =   30
  154.                Picture         =   "Form1.frx":35E8
  155.                Top             =   5250
  156.                Width           =   630
  157.             End
  158.             Begin VB.Label Label12 
  159.                Alignment       =   2  'Center
  160.                Caption         =   "View Log"
  161.                BeginProperty Font 
  162.                   Name            =   "MS Sans Serif"
  163.                   Size            =   8.25
  164.                   Charset         =   0
  165.                   Weight          =   700
  166.                   Underline       =   0   'False
  167.                   Italic          =   0   'False
  168.                   Strikethrough   =   0   'False
  169.                EndProperty
  170.                Height          =   435
  171.                Left            =   0
  172.                TabIndex        =   7
  173.                Top             =   4590
  174.                Width           =   735
  175.             End
  176.             Begin VB.Image Image1 
  177.                Height          =   525
  178.                Left            =   30
  179.                Picture         =   "Form1.frx":47AA
  180.                Top             =   4050
  181.                Width           =   630
  182.             End
  183.             Begin VB.Label Label20 
  184.                Alignment       =   2  'Center
  185.                Caption         =   "Save Emails"
  186.                BeginProperty Font 
  187.                   Name            =   "MS Sans Serif"
  188.                   Size            =   8.25
  189.                   Charset         =   0
  190.                   Weight          =   700
  191.                   Underline       =   0   'False
  192.                   Italic          =   0   'False
  193.                   Strikethrough   =   0   'False
  194.                EndProperty
  195.                Height          =   375
  196.                Left            =   0
  197.                TabIndex        =   6
  198.                Top             =   3450
  199.                Width           =   735
  200.             End
  201.             Begin VB.Image Image6 
  202.                Height          =   525
  203.                Left            =   30
  204.                Picture         =   "Form1.frx":596C
  205.                Top             =   2910
  206.                Width           =   630
  207.             End
  208.             Begin VB.Label Label19 
  209.                Alignment       =   2  'Center
  210.                Caption         =   "Stop"
  211.                BeginProperty Font 
  212.                   Name            =   "MS Sans Serif"
  213.                   Size            =   8.25
  214.                   Charset         =   0
  215.                   Weight          =   700
  216.                   Underline       =   0   'False
  217.                   Italic          =   0   'False
  218.                   Strikethrough   =   0   'False
  219.                EndProperty
  220.                Height          =   195
  221.                Left            =   0
  222.                TabIndex        =   5
  223.                Top             =   1530
  224.                Width           =   735
  225.             End
  226.             Begin VB.Image Image5 
  227.                Height          =   525
  228.                Left            =   30
  229.                Picture         =   "Form1.frx":6B2E
  230.                Top             =   990
  231.                Width           =   630
  232.             End
  233.             Begin VB.Label Label18 
  234.                Alignment       =   2  'Center
  235.                Caption         =   "Start"
  236.                BeginProperty Font 
  237.                   Name            =   "MS Sans Serif"
  238.                   Size            =   8.25
  239.                   Charset         =   0
  240.                   Weight          =   700
  241.                   Underline       =   0   'False
  242.                   Italic          =   0   'False
  243.                   Strikethrough   =   0   'False
  244.                EndProperty
  245.                Height          =   195
  246.                Left            =   0
  247.                TabIndex        =   4
  248.                Top             =   570
  249.                Width           =   735
  250.             End
  251.             Begin VB.Image Image4 
  252.                Height          =   525
  253.                Left            =   30
  254.                Picture         =   "Form1.frx":7CF0
  255.                Top             =   0
  256.                Width           =   630
  257.             End
  258.          End
  259.       End
  260.       Begin VB.CommandButton Command3 
  261.          Enabled         =   0   'False
  262.          Height          =   165
  263.          Left            =   120
  264.          Picture         =   "Form1.frx":8EB2
  265.          Style           =   1  'Graphical
  266.          TabIndex        =   1
  267.          Top             =   30
  268.          Width           =   645
  269.       End
  270.    End
  271. Attribute VB_Name = "Form1"
  272. Attribute VB_GlobalNameSpace = False
  273. Attribute VB_Creatable = False
  274. Attribute VB_PredeclaredId = True
  275. Attribute VB_Exposed = False
  276. 'Outlook Style Bar by Andrew Stokes (grimbyte1@yahoo.com)
  277. 'This Idea came to me out of the blue, I was just thinking
  278. 'of ways to make my apps appearance better so I decided
  279. 'to try make an outlook type bar
  280. 'I've seen alot of other methods to do a similar thing and
  281. 'they are all very complicated, but this is very easy. Hope
  282. 'You enjoy and find this code usful
  283. 'You may use this code freely but please tell me
  284. 'if you use it, I like to know where my code is going
  285. 'All the buttons are found in Picture5
  286. 'Picture5 is inside Frame4
  287. 'Frame4 is inside Picture4
  288. 'You dont need to change much to use it, just add buttons
  289. 'and then set what they must do
  290. 'If you like this code, please vote for me at Planet Source
  291. 'Code. Thanks
  292. 'For freeware programs made by me, goto
  293. 'http://trafficattractor2k.hypermart.net
  294. Private Sub Command3_Click()
  295. If Picture5.Top >= 0 Then Picture5.Top = 0 Else Picture5.Top = Picture5.Top + 450: Command4.Enabled = True: If Picture5.Top >= 0 Then Picture5.Top = 0: Command3.Enabled = False 'Check to see if it can go up or down and disable the buttons if it cant and move up or down if it can
  296. End Sub
  297. Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  298. ClearSelections 'Make sure the buttons dont stay pressed
  299. End Sub
  300. Private Sub Command4_Click()
  301. If Picture5.Top <= Frame4.Height - Picture5.Height Then Picture5.Top = Frame4.Height - Picture5.Height Else Picture5.Top = Picture5.Top - 450: Command3.Enabled = True: If Picture5.Top <= Frame4.Height - Picture5.Height Then Picture5.Top = Frame4.Height - Picture5.Height: Command4.Enabled = False 'Check to see if it can go up or down and disable the buttons if it cant and move up or down if it can
  302. End Sub
  303. Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  304. ClearSelections 'Make sure the buttons dont stay pressed 'Make sure the buttons dont stay pressed
  305. End Sub
  306. Private Sub Form_Load()
  307. ClearSelections 'Make sure the buttons dont stay pressed 'Make sure the buttons dont stay pressed
  308. MsgBox "Have fun ;>, I hope you find this code useful and dont forget to vote for me at Planet Source Code", , "Wazup"
  309. End Sub
  310. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  311. ClearSelections 'Make sure the buttons dont stay pressed 'Make sure the buttons dont stay pressed
  312. End Sub
  313. Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  314. Image1.BorderStyle = 1 'Set this button to be pressed in
  315. Image5.BorderStyle = 0
  316. Image2.BorderStyle = 0
  317. Image3.BorderStyle = 0
  318. Image4.BorderStyle = 0
  319. Image6.BorderStyle = 0
  320. Image7.BorderStyle = 0
  321. Image8.BorderStyle = 0
  322. End Sub
  323. Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  324. Image2.BorderStyle = 1 'Set this button to be pressed in
  325. Image1.BorderStyle = 0
  326. Image5.BorderStyle = 0
  327. Image3.BorderStyle = 0
  328. Image4.BorderStyle = 0
  329. Image6.BorderStyle = 0
  330. Image7.BorderStyle = 0
  331. Image8.BorderStyle = 0
  332. End Sub
  333. Private Sub Image3_Click()
  334. List1.AddItem "Item3 Clicked"
  335. End Sub
  336. Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  337. Image3.BorderStyle = 1 'Set this button to be pressed in
  338. Image1.BorderStyle = 0
  339. Image2.BorderStyle = 0
  340. Image5.BorderStyle = 0
  341. Image4.BorderStyle = 0
  342. Image6.BorderStyle = 0
  343. Image7.BorderStyle = 0
  344. Image8.BorderStyle = 0
  345. End Sub
  346. Private Sub Image4_Click()
  347. List1.AddItem "Item1 Clicked"
  348. End Sub
  349. Private Sub Image4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  350. Image4.BorderStyle = 1 'Set this button to be pressed in
  351. Image1.BorderStyle = 0
  352. Image2.BorderStyle = 0
  353. Image3.BorderStyle = 0
  354. Image5.BorderStyle = 0
  355. Image6.BorderStyle = 0
  356. Image7.BorderStyle = 0
  357. Image8.BorderStyle = 0
  358. End Sub
  359. Private Sub Image5_Click()
  360. List1.AddItem "Item2 Clicked"
  361. End Sub
  362. Private Sub Image5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  363. Image5.BorderStyle = 1 'Set this button to be pressed in
  364. Image1.BorderStyle = 0
  365. Image2.BorderStyle = 0
  366. Image3.BorderStyle = 0
  367. Image4.BorderStyle = 0
  368. Image6.BorderStyle = 0
  369. Image7.BorderStyle = 0
  370. Image8.BorderStyle = 0
  371. End Sub
  372. Private Sub Image6_Click()
  373. List1.AddItem "Item4 Clicked"
  374. End Sub
  375. Private Sub Image6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  376. Image6.BorderStyle = 1 'Set this button to be pressed in
  377. Image1.BorderStyle = 0
  378. Image2.BorderStyle = 0
  379. Image3.BorderStyle = 0
  380. Image4.BorderStyle = 0
  381. Image5.BorderStyle = 0
  382. Image7.BorderStyle = 0
  383. Image8.BorderStyle = 0
  384. End Sub
  385. Private Sub Image7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  386. Image7.BorderStyle = 1 'Set this button to be pressed in
  387. Image1.BorderStyle = 0
  388. Image2.BorderStyle = 0
  389. Image3.BorderStyle = 0
  390. Image4.BorderStyle = 0
  391. Image5.BorderStyle = 0
  392. Image6.BorderStyle = 0
  393. Image8.BorderStyle = 0
  394. End Sub
  395. Private Sub Image8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  396. Image8.BorderStyle = 1 'Set this button to be pressed in
  397. Image1.BorderStyle = 0
  398. Image2.BorderStyle = 0
  399. Image3.BorderStyle = 0
  400. Image4.BorderStyle = 0
  401. Image5.BorderStyle = 0
  402. Image6.BorderStyle = 0
  403. Image7.BorderStyle = 0
  404. End Sub
  405. Private Sub Label16_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  406. ClearSelections 'Make sure the buttons dont stay pressed 'Make sure the buttons dont stay pressed
  407. End Sub
  408. Private Sub Label17_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  409. ClearSelections 'Make sure the buttons dont stay pressed
  410. End Sub
  411. Private Sub Label18_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  412. ClearSelections 'Make sure the buttons dont stay pressed
  413. End Sub
  414. Private Sub Label19_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  415. ClearSelections 'Make sure the buttons dont stay pressed
  416. End Sub
  417. Private Sub Label20_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  418. ClearSelections 'Make sure the buttons dont stay pressed
  419. End Sub
  420. Private Sub Label21_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  421. ClearSelections 'Make sure the buttons dont stay pressed
  422. End Sub
  423. Private Sub Label22_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  424. ClearSelections 'Make sure the buttons dont stay pressed
  425. End Sub
  426. Private Sub List1_Click()
  427. ClearSelections 'Make sure the buttons dont stay pressed
  428. End Sub
  429. Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  430. ClearSelections 'Make sure the buttons dont stay pressed
  431. End Sub
  432. Private Sub Picture4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  433. ClearSelections 'Make sure the buttons dont stay pressed
  434. End Sub
  435. Private Sub Picture5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  436. ClearSelections 'Make sure the buttons dont stay pressed
  437. End Sub
  438. Private Sub Text1_Change()
  439. ClearSelections 'Make sure the buttons dont stay pressed
  440. End Sub
  441. Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  442. ClearSelections 'Make sure the buttons dont stay pressed
  443. End Sub
  444. Sub ClearSelections() 'Make sure the buttons dont stay pressed()
  445. Image1.BorderStyle = 0
  446. Image2.BorderStyle = 0
  447. Image3.BorderStyle = 0
  448. Image4.BorderStyle = 0
  449. Image5.BorderStyle = 0
  450. Image6.BorderStyle = 0
  451. Image7.BorderStyle = 0
  452. Image8.BorderStyle = 0
  453. End Sub
  454.