home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_tools / vbxstd12 / tabed.fr_ / TABED.FRM
Text File  |  1994-08-23  |  12KB  |  416 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. End
  279.  
  280. Sub Form_Load ()
  281. HandleMyVBTab
  282.  
  283. End Sub
  284.  
  285. Sub Form_Paint ()
  286. 'Label1.Caption = "You are on the first panel..."
  287.  
  288. End Sub
  289.  
  290. Sub HandleMyVBTab ()
  291. 'Search the active VBTab control
  292. a = 0
  293. If VBTab4.Active Then
  294. a = 4
  295. ElseIf VBTab5.Active Then
  296. a = 5
  297. ElseIf VBTab6.Active Then
  298. a = 6
  299. Else a = 0
  300. End If
  301. Select Case a
  302. Case 0
  303. Label1.Caption = "You are on the first panel..."
  304. Command4.Visible = False
  305. Check1.Visible = True
  306. Case 4
  307. If VBTab4.Caption = "&One" Then
  308. Label1.Caption = "You are on the first panel..."
  309. Command4.Visible = False
  310. Check1.Visible = True
  311. ElseIf VBTab4.Caption = "&Two" Then
  312. Label1.Caption = "You are on the second panel..."
  313. Command4.Visible = False
  314. Check1.Visible = True
  315. ElseIf VBTab4.Caption = "T&hree" Then
  316. Label1.Caption = "You are on the third panel..."
  317. Command4.Visible = False
  318. Check1.Visible = True
  319. ElseIf VBTab4.Caption = "&Four" Then
  320. Label1.Caption = "You are on the panel 4..."
  321. Check1.Visible = False
  322. Command4.Visible = True
  323. ElseIf VBTab4.Caption = "F&ive" Then
  324. Label1.Caption = "You are on the panel 5..."
  325. Check1.Visible = False
  326. Command4.Visible = True
  327. ElseIf VBTab4.Caption = "&Six" Then
  328. Label1.Caption = "You are on the panel 6..."
  329. Check1.Visible = False
  330. Command4.Visible = True
  331. End If
  332. Case 5
  333. If VBTab5.Caption = "&One" Then
  334. Label1.Caption = "You are on the first panel..."
  335. Command4.Visible = False
  336. Check1.Visible = True
  337. ElseIf VBTab5.Caption = "&Two" Then
  338. Label1.Caption = "You are on the second panel..."
  339. Command4.Visible = False
  340. Check1.Visible = True
  341. ElseIf VBTab5.Caption = "T&hree" Then
  342. Label1.Caption = "You are on the third panel..."
  343. Command4.Visible = False
  344. Check1.Visible = True
  345. ElseIf VBTab5.Caption = "&Four" Then
  346. Label1.Caption = "You are on the panel 4..."
  347. Check1.Visible = False
  348. Command4.Visible = True
  349. ElseIf VBTab5.Caption = "F&ive" Then
  350. Label1.Caption = "You are on the panel 5..."
  351. Check1.Visible = False
  352. Command4.Visible = True
  353. ElseIf VBTab5.Caption = "&Six" Then
  354. Label1.Caption = "You are on the panel 6..."
  355. Check1.Visible = False
  356. Command4.Visible = True
  357. End If
  358. Case 6
  359. If VBTab6.Caption = "&One" Then
  360. Label1.Caption = "You are on the first panel..."
  361. Command4.Visible = False
  362. Check1.Visible = True
  363. ElseIf VBTab6.Caption = "&Two" Then
  364. Label1.Caption = "You are on the second panel..."
  365. Command4.Visible = False
  366. Check1.Visible = True
  367. ElseIf VBTab6.Caption = "T&hree" Then
  368. Label1.Caption = "You are on the third panel..."
  369. Command4.Visible = False
  370. Check1.Visible = True
  371. ElseIf VBTab6.Caption = "&Four" Then
  372. Label1.Caption = "You are on the panel 4..."
  373. Check1.Visible = False
  374. Command4.Visible = True
  375. ElseIf VBTab6.Caption = "F&ive" Then
  376. Label1.Caption = "You are on the panel 5..."
  377. Check1.Visible = False
  378. Command4.Visible = True
  379. ElseIf VBTab6.Caption = "&Six" Then
  380. Label1.Caption = "You are on the panel 6..."
  381. Check1.Visible = False
  382. Command4.Visible = True
  383. End If
  384. End Select
  385. 'Command4.Refresh
  386.  
  387.  
  388. End Sub
  389.  
  390. Sub VBTab1_Click ()
  391. HandleMyVBTab
  392. 'HandleMyVBTab
  393.  
  394. End Sub
  395.  
  396. Sub VBTab2_Click ()
  397. HandleMyVBTab
  398. End Sub
  399.  
  400. Sub VBTab3_Click ()
  401. HandleMyVBTab
  402. End Sub
  403.  
  404. Sub VBTab4_Click ()
  405. HandleMyVBTab
  406. End Sub
  407.  
  408. Sub VBTab5_Click ()
  409. HandleMyVBTab
  410. End Sub
  411.  
  412. Sub VBTab6_Click ()
  413. HandleMyVBTab
  414. End Sub
  415.  
  416.