home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
perf_tab
/
newtab.frm
< prev
next >
Wrap
Text File
|
1994-04-25
|
10KB
|
326 lines
VERSION 2.00
Begin Form NewTabForm
BackColor = &H00C0C0C0&
Caption = "New form for a tabbed dialog (Change filename before you save !!!)"
ClientHeight = 3630
ClientLeft = 765
ClientTop = 1440
ClientWidth = 7935
DrawWidth = 2
Height = 4035
KeyPreview = -1 'True
Left = 705
LinkTopic = "Form1"
ScaleHeight = 3630
ScaleWidth = 7935
Top = 1095
Width = 8055
Begin PictureBox Tab_Loop
BackColor = &H00C0C0C0&
Height = 495
Index = 4
Left = 5670
ScaleHeight = 465
ScaleWidth = 1275
TabIndex = 10
Top = 480
Width = 1300
Begin Label Tab_Label
Alignment = 2 'Mitte
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "&5"
Height = 195
Index = 4
Left = 540
TabIndex = 9
Top = 120
Width = 135
End
End
Begin PictureBox Tab_Loop
BackColor = &H00C0C0C0&
Height = 495
Index = 3
Left = 4320
ScaleHeight = 465
ScaleWidth = 1275
TabIndex = 7
Top = 480
Width = 1300
Begin Label Tab_Label
Alignment = 2 'Mitte
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "&4"
Height = 195
Index = 3
Left = 540
TabIndex = 6
Top = 120
Width = 135
End
End
Begin PictureBox Tab_Loop
BackColor = &H00C0C0C0&
Height = 495
Index = 1
Left = 1620
ScaleHeight = 465
ScaleWidth = 1275
TabIndex = 3
Top = 480
Width = 1300
Begin Label Tab_Label
Alignment = 2 'Mitte
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "&2"
Height = 195
Index = 1
Left = 570
TabIndex = 2
Top = 120
Width = 135
End
End
Begin PictureBox Tab_Loop
BackColor = &H00C0C0C0&
Height = 495
Index = 2
Left = 2970
ScaleHeight = 465
ScaleWidth = 1275
TabIndex = 5
Top = 480
Width = 1300
Begin Label Tab_Label
Alignment = 2 'Mitte
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "&3"
Height = 195
Index = 2
Left = 540
TabIndex = 4
Top = 120
Width = 135
End
End
Begin PictureBox Tab_Loop
BackColor = &H00C0C0C0&
Height = 495
Index = 0
Left = 270
ScaleHeight = 465
ScaleWidth = 1275
TabIndex = 1
Top = 480
Width = 1300
Begin Label Tab_Label
Alignment = 2 'Mitte
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "&1"
Height = 195
Index = 0
Left = 540
TabIndex = 0
Top = 120
Width = 135
End
End
Begin SSPanel Tab_sheet
BevelInner = 2 'Raised
BorderWidth = 0
Caption = "SSPanel - Index 0"
FloodShowPct = 0 'False
Font3D = 1 'Raised w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00808080&
Height = 2000
Index = 0
Left = 180
Outline = -1 'True
TabIndex = 12
Top = 720
Width = 7000
End
Begin SSPanel Tab_sheet
BevelInner = 2 'Raised
BorderWidth = 0
Caption = "SSPanel - Index 1"
FloodShowPct = 0 'False
Font3D = 1 'Raised w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00808080&
Height = 2000
Index = 1
Left = 270
Outline = -1 'True
TabIndex = 11
Top = 840
Width = 7000
End
Begin SSPanel Tab_sheet
BevelInner = 2 'Raised
BorderWidth = 0
Caption = "SSPanel - Index 2"
FloodShowPct = 0 'False
Font3D = 1 'Raised w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00808080&
Height = 2000
Index = 2
Left = 360
Outline = -1 'True
TabIndex = 8
Top = 960
Width = 7000
End
Begin SSPanel Tab_sheet
BevelInner = 2 'Raised
BorderWidth = 0
Caption = "SSPanel - Index 3"
FloodShowPct = 0 'False
Font3D = 1 'Raised w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00808080&
Height = 2000
Index = 3
Left = 450
Outline = -1 'True
TabIndex = 13
Top = 1080
Width = 7000
End
Begin SSPanel Tab_sheet
BevelInner = 2 'Raised
BorderWidth = 0
Caption = "SSPanel - Index 4"
FloodShowPct = 0 'False
Font3D = 1 'Raised w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00808080&
Height = 2000
Index = 4
Left = 540
Outline = -1 'True
TabIndex = 14
Top = 1200
Width = 7000
End
Begin Image Tab_Loop_Picture
Height = 450
Index = 1
Left = 2430
Picture = NEWTAB.FRX:0000
Top = 0
Visible = 0 'False
Width = 1500
End
Begin Image Tab_Loop_Picture
Height = 450
Index = 0
Left = 810
Picture = NEWTAB.FRX:0692
Top = 0
Visible = 0 'False
Width = 1500
End
End
Dim Shared tabDLG As tabbedDialogType
Sub Form_KeyDown (keyCode As Integer, shift As Integer)
If keyCode = 9 And shift = 2 Then
Tab_SetActive Me, tabDLG, tabDLG.active_sheet + 1
End If
End Sub
Sub Form_Load ()
' =====================================
' PerfectTAB 1.0
' =====================================
' Copyright (C) 1994 by
' bytes & letters,
' hilger software technology
' postfach 16 27
' 66716 Saarlouis, germany
' written by Dirk Hilger
'=======================================
'------------------------------------------------------------------'
' Formglobal configuration of the tabbed dialog '
' (All other members of tabDLG are for internal usage only)
'------------------------------------------------------------------'
tabDLG.active_bevelWidth = 1
tabDLG.inactive_bevelwidth = 0
tabDLG.Sheet_Distance = -3 ' Distance between sheets
tabDLG.Loop_Distance = -3 ' Distance between loops
tabDLG.Loop_Sheet_Distance = -3 ' Distance between loop and sheet
tabDLG.Active_Yadd = 5 ' Take active sheet n pixels to fore
tabDLG.loops_per_group = 100 ' A new group starts after n loops
tabDLG.label_position = 1 ' Top, center
'------------------------------------------------------------------'
'Now activate level 0
'--------------------------
Tab_SetActive Me, tabDLG, 0
End Sub
Sub Tab_Label_Click (Index As Integer)
Tab_SetActive Me, tabDLG, Index
End Sub
Sub Tab_Loop_Click (Index As Integer)
Tab_SetActive Me, tabDLG, Index
End Sub
Sub Tab_Loop_GotFocus (Index As Integer)
tab_label(Index).BorderStyle = 1
End Sub
Sub Tab_Loop_KeyPress (Index As Integer, KeyAnsi As Integer)
Tab_SetActive Me, tabDLG, Index
End Sub
Sub Tab_Loop_LostFocus (Index As Integer)
tab_label(Index).BorderStyle = 0
End Sub