home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / FERRAMEN / VBXSTD12 / TABED.FR_ / TABED.FRM (.txt)
Encoding:
Visual Basic Form  |  1994-08-23  |  12.2 KB  |  400 lines
  1. VERSION 2.00
  2. Begin Form TabedDialog 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Tabbed dialog demo..."
  6.    ClientHeight    =   3756
  7.    ClientLeft      =   888
  8.    ClientTop       =   1536
  9.    ClientWidth     =   6096
  10.    Height          =   4176
  11.    Left            =   840
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   3756
  14.    ScaleWidth      =   6096
  15.    Top             =   1164
  16.    Width           =   6192
  17.    Begin VBLine VBLine4 
  18.       BackColor       =   4  'Light grey (pure)
  19.       Height          =   2892
  20.       Help            =   &H00000000&
  21.       Left            =   96
  22.       LineColor       =   2  'Black
  23.       LineStyle       =   5  'VBTab Left line
  24.       LineThickness   =   2
  25.       Style3D         =   3  'Raised thin
  26.       TabIndex        =   8
  27.       TabStop         =   0   'False
  28.       Top             =   696
  29.       Prop17          =   &H00000000&
  30.       Width           =   36
  31.       Prop16          =   2154
  32.    End
  33.    Begin VBLine VBLine2 
  34.       BackColor       =   4  'Light grey (pure)
  35.       Height          =   2916
  36.       Help            =   &H00000000&
  37.       Left            =   5784
  38.       LineColor       =   2  'Black
  39.       LineStyle       =   7  'VBTab Right line
  40.       LineThickness   =   2
  41.       Style3D         =   3  'Raised thin
  42.       TabIndex        =   0
  43.       TabStop         =   0   'False
  44.       Top             =   672
  45.       Prop17          =   &H00000000&
  46.       Width           =   36
  47.       Prop16          =   2154
  48.    End
  49.    Begin VBLine VBLine5 
  50.       BackColor       =   4  'Light grey (pure)
  51.       Height          =   180
  52.       Help            =   &H00000000&
  53.       Left            =   96
  54.       LineColor       =   2  'Black
  55.       LineStyle       =   4  'VBTab rectangle
  56.       LineThickness   =   2
  57.       Style3D         =   3  'Raised thin
  58.       TabIndex        =   9
  59.       TabStop         =   0   'False
  60.       Top             =   3432
  61.       Prop17          =   &H00000000&
  62.       Width           =   5724
  63.       Prop16          =   2154
  64.    End
  65.    Begin CommandButton Command4 
  66.       Caption         =   "Option..."
  67.       Height          =   348
  68.       Left            =   288
  69.       TabIndex        =   14
  70.       Top             =   1284
  71.       Visible         =   0   'False
  72.       Width           =   1728
  73.    End
  74.    Begin CheckBox Check1 
  75.       BackColor       =   &H00C0C0C0&
  76.       Caption         =   "Available for panels 1,2 and 3"
  77.       Height          =   300
  78.       Left            =   288
  79.       TabIndex        =   13
  80.       Top             =   1320
  81.       Visible         =   0   'False
  82.       Width           =   2928
  83.    End
  84.    Begin CommandButton Command3 
  85.       Caption         =   "Cancel"
  86.       Height          =   360
  87.       Left            =   4092
  88.       TabIndex        =   12
  89.       Top             =   1236
  90.       Width           =   1572
  91.    End
  92.    Begin CommandButton Command2 
  93.       Caption         =   "OK"
  94.       Height          =   360
  95.       Left            =   4092
  96.       TabIndex        =   11
  97.       Top             =   804
  98.       Width           =   1572
  99.    End
  100.    Begin VBTab VBTab6 
  101.       Active          =   0   'False
  102.       BackColor       =   &H00C0C0C0&
  103.       Caption         =   "T&hree"
  104.       FirstLeft       =   0   'False
  105.       FirstLine       =   -1  'True
  106.       FirstRight      =   -1  'True
  107.       FlashColor      =   &H0000FFFF&
  108.       FlashTxtColor   =   &H00000000&
  109.       ForeColor       =   &H00000000&
  110.       HandCursor      =   -1  'True
  111.       Height          =   336
  112.       Help            =   &H00000000&
  113.       Left            =   3936
  114.       TabCorners      =   -1  'True
  115.       TabIndex        =   6
  116.       Text3D          =   0  'No 3D
  117.       Top             =   360
  118.       UseSystemColors =   0   'False
  119.       Prop18          =   &H00000000&
  120.       Width           =   1884
  121.       Prop17          =   2154
  122.    End
  123.    Begin VBTab VBTab5 
  124.       Active          =   0   'False
  125.       BackColor       =   &H00C0C0C0&
  126.       Caption         =   "&Two"
  127.       FirstLeft       =   0   'False
  128.       FirstLine       =   -1  'True
  129.       FirstRight      =   0   'False
  130.       FlashColor      =   &H0000FFFF&
  131.       FlashTxtColor   =   &H00000000&
  132.       ForeColor       =   &H00000000&
  133.       HandCursor      =   -1  'True
  134.       Height          =   336
  135.       Help            =   &H00000000&
  136.       Left            =   2016
  137.       TabCorners      =   -1  'True
  138.       TabIndex        =   5
  139.       Text3D          =   0  'No 3D
  140.       Top             =   360
  141.       UseSystemColors =   0   'False
  142.       Prop18          =   &H00000000&
  143.       Width           =   1932
  144.       Prop17          =   2154
  145.    End
  146.    Begin VBTab VBTab4 
  147.       Active          =   -1  'True
  148.       BackColor       =   &H00C0C0C0&
  149.       Caption         =   "&One"
  150.       FirstLeft       =   -1  'True
  151.       FirstLine       =   -1  'True
  152.       FirstRight      =   0   'False
  153.       FlashColor      =   &H0000FFFF&
  154.       FlashTxtColor   =   &H00000000&
  155.       ForeColor       =   &H00000000&
  156.       HandCursor      =   -1  'True
  157.       Height          =   336
  158.       Help            =   &H00000000&
  159.       Left            =   96
  160.       TabCorners      =   -1  'True
  161.       TabIndex        =   4
  162.       Text3D          =   0  'No 3D
  163.       Top             =   360
  164.       UseSystemColors =   0   'False
  165.       Prop18          =   &H00000000&
  166.       Width           =   1932
  167.       Prop17          =   2154
  168.    End
  169.    Begin VBTab VBTab3 
  170.       Active          =   0   'False
  171.       BackColor       =   &H00C0C0C0&
  172.       Caption         =   "&Six"
  173.       FirstLeft       =   0   'False
  174.       FirstLine       =   0   'False
  175.       FirstRight      =   -1  'True
  176.       FlashColor      =   &H0000FFFF&
  177.       FlashTxtColor   =   &H00000000&
  178.       ForeColor       =   &H00000000&
  179.       HandCursor      =   -1  'True
  180.       Height          =   276
  181.       Help            =   &H00000000&
  182.       Left            =   4056
  183.       TabCorners      =   -1  'True
  184.       TabIndex        =   3
  185.       Text3D          =   0  'No 3D
  186.       Top             =   84
  187.       UseSystemColors =   0   'False
  188.       Prop18          =   &H00000000&
  189.       Width           =   1932
  190.       Prop17          =   2154
  191.    End
  192.    Begin VBTab VBTab2 
  193.       Active          =   0   'False
  194.       BackColor       =   &H00C0C0C0&
  195.       Caption         =   "F&ive"
  196.       FirstLeft       =   0   'False
  197.       FirstLine       =   0   'False
  198.       FirstRight      =   0   'False
  199.       FlashColor      =   &H0000FFFF&
  200.       FlashTxtColor   =   &H00000000&
  201.       ForeColor       =   &H00000000&
  202.       HandCursor      =   -1  'True
  203.       Height          =   288
  204.       Help            =   &H00000000&
  205.       Left            =   2136
  206.       TabCorners      =   -1  'True
  207.       TabIndex        =   2
  208.       Text3D          =   0  'No 3D
  209.       Top             =   84
  210.       UseSystemColors =   0   'False
  211.       Prop18          =   &H00000000&
  212.       Width           =   1932
  213.       Prop17          =   2154
  214.    End
  215.    Begin VBTab VBTab1 
  216.       Active          =   0   'False
  217.       BackColor       =   &H00C0C0C0&
  218.       Caption         =   "&Four"
  219.       FirstLeft       =   -1  'True
  220.       FirstLine       =   0   'False
  221.       FirstRight      =   0   'False
  222.       FlashColor      =   &H0000FFFF&
  223.       FlashTxtColor   =   &H00000000&
  224.       ForeColor       =   &H00000000&
  225.       HandCursor      =   -1  'True
  226.       Height          =   336
  227.       Help            =   &H00000000&
  228.       Left            =   240
  229.       TabCorners      =   -1  'True
  230.       TabIndex        =   1
  231.       Text3D          =   0  'No 3D
  232.       Top             =   84
  233.       UseSystemColors =   0   'False
  234.       Prop18          =   &H00000000&
  235.       Width           =   1908
  236.       Prop17          =   2154
  237.    End
  238.    Begin VBLine VBLine3 
  239.       BackColor       =   4  'Light grey (pure)
  240.       Height          =   36
  241.       Help            =   &H00000000&
  242.       Left            =   5784
  243.       LineColor       =   2  'Black
  244.       LineStyle       =   6  'VBTab Bottom line
  245.       LineThickness   =   2
  246.       Style3D         =   3  'Raised thin
  247.       TabIndex        =   15
  248.       TabStop         =   0   'False
  249.       Top             =   3300
  250.       Prop17          =   &H00000000&
  251.       Width           =   180
  252.       Prop16          =   2154
  253.    End
  254.    Begin VBLine VBLine1 
  255.       BackColor       =   4  'Light grey (pure)
  256.       Height          =   2988
  257.       Help            =   &H00000000&
  258.       Left            =   5952
  259.       LineColor       =   2  'Black
  260.       LineStyle       =   7  'VBTab Right line
  261.       LineThickness   =   2
  262.       Style3D         =   3  'Raised thin
  263.       TabIndex        =   7
  264.       TabStop         =   0   'False
  265.       Top             =   348
  266.       Prop17          =   &H00000000&
  267.       Width           =   36
  268.       Prop16          =   2154
  269.    End
  270.    Begin Label Label1 
  271.       BackColor       =   &H00C0C0C0&
  272.       Height          =   204
  273.       Left            =   252
  274.       TabIndex        =   10
  275.       Top             =   936
  276.       Width           =   2556
  277.    End
  278. Sub Form_Load ()
  279. HandleMyVBTab
  280. End Sub
  281. Sub Form_Paint ()
  282. 'Label1.Caption = "You are on the first panel..."
  283. End Sub
  284. Sub HandleMyVBTab ()
  285. 'Search the active VBTab control
  286. a = 0
  287. If VBTab4.Active Then
  288. a = 4
  289. ElseIf VBTab5.Active Then
  290. a = 5
  291. ElseIf VBTab6.Active Then
  292. a = 6
  293. Else a = 0
  294. End If
  295. Select Case a
  296. Case 0
  297. Label1.Caption = "You are on the first panel..."
  298. Command4.Visible = False
  299. Check1.Visible = True
  300. Case 4
  301. If VBTab4.Caption = "&One" Then
  302. Label1.Caption = "You are on the first panel..."
  303. Command4.Visible = False
  304. Check1.Visible = True
  305. ElseIf VBTab4.Caption = "&Two" Then
  306. Label1.Caption = "You are on the second panel..."
  307. Command4.Visible = False
  308. Check1.Visible = True
  309. ElseIf VBTab4.Caption = "T&hree" Then
  310. Label1.Caption = "You are on the third panel..."
  311. Command4.Visible = False
  312. Check1.Visible = True
  313. ElseIf VBTab4.Caption = "&Four" Then
  314. Label1.Caption = "You are on the panel 4..."
  315. Check1.Visible = False
  316. Command4.Visible = True
  317. ElseIf VBTab4.Caption = "F&ive" Then
  318. Label1.Caption = "You are on the panel 5..."
  319. Check1.Visible = False
  320. Command4.Visible = True
  321. ElseIf VBTab4.Caption = "&Six" Then
  322. Label1.Caption = "You are on the panel 6..."
  323. Check1.Visible = False
  324. Command4.Visible = True
  325. End If
  326. Case 5
  327. If VBTab5.Caption = "&One" Then
  328. Label1.Caption = "You are on the first panel..."
  329. Command4.Visible = False
  330. Check1.Visible = True
  331. ElseIf VBTab5.Caption = "&Two" Then
  332. Label1.Caption = "You are on the second panel..."
  333. Command4.Visible = False
  334. Check1.Visible = True
  335. ElseIf VBTab5.Caption = "T&hree" Then
  336. Label1.Caption = "You are on the third panel..."
  337. Command4.Visible = False
  338. Check1.Visible = True
  339. ElseIf VBTab5.Caption = "&Four" Then
  340. Label1.Caption = "You are on the panel 4..."
  341. Check1.Visible = False
  342. Command4.Visible = True
  343. ElseIf VBTab5.Caption = "F&ive" Then
  344. Label1.Caption = "You are on the panel 5..."
  345. Check1.Visible = False
  346. Command4.Visible = True
  347. ElseIf VBTab5.Caption = "&Six" Then
  348. Label1.Caption = "You are on the panel 6..."
  349. Check1.Visible = False
  350. Command4.Visible = True
  351. End If
  352. Case 6
  353. If VBTab6.Caption = "&One" Then
  354. Label1.Caption = "You are on the first panel..."
  355. Command4.Visible = False
  356. Check1.Visible = True
  357. ElseIf VBTab6.Caption = "&Two" Then
  358. Label1.Caption = "You are on the second panel..."
  359. Command4.Visible = False
  360. Check1.Visible = True
  361. ElseIf VBTab6.Caption = "T&hree" Then
  362. Label1.Caption = "You are on the third panel..."
  363. Command4.Visible = False
  364. Check1.Visible = True
  365. ElseIf VBTab6.Caption = "&Four" Then
  366. Label1.Caption = "You are on the panel 4..."
  367. Check1.Visible = False
  368. Command4.Visible = True
  369. ElseIf VBTab6.Caption = "F&ive" Then
  370. Label1.Caption = "You are on the panel 5..."
  371. Check1.Visible = False
  372. Command4.Visible = True
  373. ElseIf VBTab6.Caption = "&Six" Then
  374. Label1.Caption = "You are on the panel 6..."
  375. Check1.Visible = False
  376. Command4.Visible = True
  377. End If
  378. End Select
  379. 'Command4.Refresh
  380. End Sub
  381. Sub VBTab1_Click ()
  382. HandleMyVBTab
  383. 'HandleMyVBTab
  384. End Sub
  385. Sub VBTab2_Click ()
  386. HandleMyVBTab
  387. End Sub
  388. Sub VBTab3_Click ()
  389. HandleMyVBTab
  390. End Sub
  391. Sub VBTab4_Click ()
  392. HandleMyVBTab
  393. End Sub
  394. Sub VBTab5_Click ()
  395. HandleMyVBTab
  396. End Sub
  397. Sub VBTab6_Click ()
  398. HandleMyVBTab
  399. End Sub
  400.