home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / perf_tab / newtab.frm < prev    next >
Text File  |  1994-04-25  |  10KB  |  326 lines
  1. VERSION 2.00
  2. Begin Form NewTabForm 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "New form for a tabbed dialog (Change filename before you save !!!)"
  5.    ClientHeight    =   3630
  6.    ClientLeft      =   765
  7.    ClientTop       =   1440
  8.    ClientWidth     =   7935
  9.    DrawWidth       =   2
  10.    Height          =   4035
  11.    KeyPreview      =   -1  'True
  12.    Left            =   705
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   3630
  15.    ScaleWidth      =   7935
  16.    Top             =   1095
  17.    Width           =   8055
  18.    Begin PictureBox Tab_Loop 
  19.       BackColor       =   &H00C0C0C0&
  20.       Height          =   495
  21.       Index           =   4
  22.       Left            =   5670
  23.       ScaleHeight     =   465
  24.       ScaleWidth      =   1275
  25.       TabIndex        =   10
  26.       Top             =   480
  27.       Width           =   1300
  28.       Begin Label Tab_Label 
  29.          Alignment       =   2  'Mitte
  30.          AutoSize        =   -1  'True
  31.          BackStyle       =   0  'Transparent
  32.          Caption         =   "&5"
  33.          Height          =   195
  34.          Index           =   4
  35.          Left            =   540
  36.          TabIndex        =   9
  37.          Top             =   120
  38.          Width           =   135
  39.       End
  40.    End
  41.    Begin PictureBox Tab_Loop 
  42.       BackColor       =   &H00C0C0C0&
  43.       Height          =   495
  44.       Index           =   3
  45.       Left            =   4320
  46.       ScaleHeight     =   465
  47.       ScaleWidth      =   1275
  48.       TabIndex        =   7
  49.       Top             =   480
  50.       Width           =   1300
  51.       Begin Label Tab_Label 
  52.          Alignment       =   2  'Mitte
  53.          AutoSize        =   -1  'True
  54.          BackStyle       =   0  'Transparent
  55.          Caption         =   "&4"
  56.          Height          =   195
  57.          Index           =   3
  58.          Left            =   540
  59.          TabIndex        =   6
  60.          Top             =   120
  61.          Width           =   135
  62.       End
  63.    End
  64.    Begin PictureBox Tab_Loop 
  65.       BackColor       =   &H00C0C0C0&
  66.       Height          =   495
  67.       Index           =   1
  68.       Left            =   1620
  69.       ScaleHeight     =   465
  70.       ScaleWidth      =   1275
  71.       TabIndex        =   3
  72.       Top             =   480
  73.       Width           =   1300
  74.       Begin Label Tab_Label 
  75.          Alignment       =   2  'Mitte
  76.          AutoSize        =   -1  'True
  77.          BackStyle       =   0  'Transparent
  78.          Caption         =   "&2"
  79.          Height          =   195
  80.          Index           =   1
  81.          Left            =   570
  82.          TabIndex        =   2
  83.          Top             =   120
  84.          Width           =   135
  85.       End
  86.    End
  87.    Begin PictureBox Tab_Loop 
  88.       BackColor       =   &H00C0C0C0&
  89.       Height          =   495
  90.       Index           =   2
  91.       Left            =   2970
  92.       ScaleHeight     =   465
  93.       ScaleWidth      =   1275
  94.       TabIndex        =   5
  95.       Top             =   480
  96.       Width           =   1300
  97.       Begin Label Tab_Label 
  98.          Alignment       =   2  'Mitte
  99.          AutoSize        =   -1  'True
  100.          BackStyle       =   0  'Transparent
  101.          Caption         =   "&3"
  102.          Height          =   195
  103.          Index           =   2
  104.          Left            =   540
  105.          TabIndex        =   4
  106.          Top             =   120
  107.          Width           =   135
  108.       End
  109.    End
  110.    Begin PictureBox Tab_Loop 
  111.       BackColor       =   &H00C0C0C0&
  112.       Height          =   495
  113.       Index           =   0
  114.       Left            =   270
  115.       ScaleHeight     =   465
  116.       ScaleWidth      =   1275
  117.       TabIndex        =   1
  118.       Top             =   480
  119.       Width           =   1300
  120.       Begin Label Tab_Label 
  121.          Alignment       =   2  'Mitte
  122.          AutoSize        =   -1  'True
  123.          BackStyle       =   0  'Transparent
  124.          Caption         =   "&1"
  125.          Height          =   195
  126.          Index           =   0
  127.          Left            =   540
  128.          TabIndex        =   0
  129.          Top             =   120
  130.          Width           =   135
  131.       End
  132.    End
  133.    Begin SSPanel Tab_sheet 
  134.       BevelInner      =   2  'Raised
  135.       BorderWidth     =   0
  136.       Caption         =   "SSPanel - Index 0"
  137.       FloodShowPct    =   0   'False
  138.       Font3D          =   1  'Raised w/light shading
  139.       FontBold        =   -1  'True
  140.       FontItalic      =   0   'False
  141.       FontName        =   "MS Sans Serif"
  142.       FontSize        =   24
  143.       FontStrikethru  =   0   'False
  144.       FontUnderline   =   0   'False
  145.       ForeColor       =   &H00808080&
  146.       Height          =   2000
  147.       Index           =   0
  148.       Left            =   180
  149.       Outline         =   -1  'True
  150.       TabIndex        =   12
  151.       Top             =   720
  152.       Width           =   7000
  153.    End
  154.    Begin SSPanel Tab_sheet 
  155.       BevelInner      =   2  'Raised
  156.       BorderWidth     =   0
  157.       Caption         =   "SSPanel - Index 1"
  158.       FloodShowPct    =   0   'False
  159.       Font3D          =   1  'Raised w/light shading
  160.       FontBold        =   -1  'True
  161.       FontItalic      =   0   'False
  162.       FontName        =   "MS Sans Serif"
  163.       FontSize        =   24
  164.       FontStrikethru  =   0   'False
  165.       FontUnderline   =   0   'False
  166.       ForeColor       =   &H00808080&
  167.       Height          =   2000
  168.       Index           =   1
  169.       Left            =   270
  170.       Outline         =   -1  'True
  171.       TabIndex        =   11
  172.       Top             =   840
  173.       Width           =   7000
  174.    End
  175.    Begin SSPanel Tab_sheet 
  176.       BevelInner      =   2  'Raised
  177.       BorderWidth     =   0
  178.       Caption         =   "SSPanel - Index 2"
  179.       FloodShowPct    =   0   'False
  180.       Font3D          =   1  'Raised w/light shading
  181.       FontBold        =   -1  'True
  182.       FontItalic      =   0   'False
  183.       FontName        =   "MS Sans Serif"
  184.       FontSize        =   24
  185.       FontStrikethru  =   0   'False
  186.       FontUnderline   =   0   'False
  187.       ForeColor       =   &H00808080&
  188.       Height          =   2000
  189.       Index           =   2
  190.       Left            =   360
  191.       Outline         =   -1  'True
  192.       TabIndex        =   8
  193.       Top             =   960
  194.       Width           =   7000
  195.    End
  196.    Begin SSPanel Tab_sheet 
  197.       BevelInner      =   2  'Raised
  198.       BorderWidth     =   0
  199.       Caption         =   "SSPanel - Index 3"
  200.       FloodShowPct    =   0   'False
  201.       Font3D          =   1  'Raised w/light shading
  202.       FontBold        =   -1  'True
  203.       FontItalic      =   0   'False
  204.       FontName        =   "MS Sans Serif"
  205.       FontSize        =   24
  206.       FontStrikethru  =   0   'False
  207.       FontUnderline   =   0   'False
  208.       ForeColor       =   &H00808080&
  209.       Height          =   2000
  210.       Index           =   3
  211.       Left            =   450
  212.       Outline         =   -1  'True
  213.       TabIndex        =   13
  214.       Top             =   1080
  215.       Width           =   7000
  216.    End
  217.    Begin SSPanel Tab_sheet 
  218.       BevelInner      =   2  'Raised
  219.       BorderWidth     =   0
  220.       Caption         =   "SSPanel - Index 4"
  221.       FloodShowPct    =   0   'False
  222.       Font3D          =   1  'Raised w/light shading
  223.       FontBold        =   -1  'True
  224.       FontItalic      =   0   'False
  225.       FontName        =   "MS Sans Serif"
  226.       FontSize        =   24
  227.       FontStrikethru  =   0   'False
  228.       FontUnderline   =   0   'False
  229.       ForeColor       =   &H00808080&
  230.       Height          =   2000
  231.       Index           =   4
  232.       Left            =   540
  233.       Outline         =   -1  'True
  234.       TabIndex        =   14
  235.       Top             =   1200
  236.       Width           =   7000
  237.    End
  238.    Begin Image Tab_Loop_Picture 
  239.       Height          =   450
  240.       Index           =   1
  241.       Left            =   2430
  242.       Picture         =   NEWTAB.FRX:0000
  243.       Top             =   0
  244.       Visible         =   0   'False
  245.       Width           =   1500
  246.    End
  247.    Begin Image Tab_Loop_Picture 
  248.       Height          =   450
  249.       Index           =   0
  250.       Left            =   810
  251.       Picture         =   NEWTAB.FRX:0692
  252.       Top             =   0
  253.       Visible         =   0   'False
  254.       Width           =   1500
  255.    End
  256. End
  257. Dim Shared tabDLG As tabbedDialogType
  258.  
  259. Sub Form_KeyDown (keyCode As Integer, shift As Integer)
  260.     If keyCode = 9 And shift = 2 Then
  261.        Tab_SetActive Me, tabDLG, tabDLG.active_sheet + 1
  262.     End If
  263. End Sub
  264.  
  265. Sub Form_Load ()
  266.  
  267.  
  268. ' =====================================
  269. ' PerfectTAB 1.0
  270. ' =====================================
  271.  
  272. ' Copyright (C) 1994 by
  273.  
  274. ' bytes & letters,
  275. ' hilger software technology
  276. ' postfach 16 27
  277. ' 66716 Saarlouis, germany
  278.  
  279. ' written by Dirk Hilger
  280. '=======================================
  281.     
  282.     
  283. '------------------------------------------------------------------'
  284. ' Formglobal configuration of the tabbed dialog                         '
  285. ' (All other members of tabDLG are for internal usage only)
  286. '------------------------------------------------------------------'
  287.      
  288.      tabDLG.active_bevelWidth = 1
  289.      tabDLG.inactive_bevelwidth = 0
  290.      tabDLG.Sheet_Distance = -3       ' Distance between sheets
  291.      tabDLG.Loop_Distance = -3        ' Distance between loops
  292.      tabDLG.Loop_Sheet_Distance = -3  ' Distance between loop and sheet
  293.      tabDLG.Active_Yadd = 5           ' Take active sheet n pixels to fore
  294.      tabDLG.loops_per_group = 100     ' A new group starts after n loops
  295.      tabDLG.label_position = 1        ' Top, center
  296.      
  297.     '------------------------------------------------------------------'
  298.  
  299.     'Now activate level 0
  300.     '--------------------------
  301.      
  302.      Tab_SetActive Me, tabDLG, 0
  303.  
  304. End Sub
  305.  
  306. Sub Tab_Label_Click (Index As Integer)
  307.    Tab_SetActive Me, tabDLG, Index
  308. End Sub
  309.  
  310. Sub Tab_Loop_Click (Index As Integer)
  311.     Tab_SetActive Me, tabDLG, Index
  312. End Sub
  313.  
  314. Sub Tab_Loop_GotFocus (Index As Integer)
  315.     tab_label(Index).BorderStyle = 1
  316. End Sub
  317.  
  318. Sub Tab_Loop_KeyPress (Index As Integer, KeyAnsi As Integer)
  319.     Tab_SetActive Me, tabDLG, Index
  320. End Sub
  321.  
  322. Sub Tab_Loop_LostFocus (Index As Integer)
  323.     tab_label(Index).BorderStyle = 0
  324. End Sub
  325.  
  326.