home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
3ctrls
/
menu.frm
< prev
next >
Wrap
Text File
|
1994-07-01
|
8KB
|
247 lines
VERSION 2.00
Begin Form fMenu
BackColor = &H00C0C0C0&
Caption = "Resize me!"
ClientHeight = 4170
ClientLeft = 330
ClientTop = 1560
ClientWidth = 8160
Height = 4635
Left = 240
LinkTopic = "Form2"
ScaleHeight = 4170
ScaleWidth = 8160
Top = 1185
Width = 8340
Begin VideoSoftElastic VSElastic1
Align = 5 'Fill Container
AutoSizeChildren= 4 'Uneven Vertical
BackColor = &H00C0C0C0&
BevelInner = 0 'None
BevelInnerWidth = 4
BevelOuter = 0 'None
BevelOuterWidth = 3
BorderWidth = 12
CaptionPos = 4 'Center Center
ChildSpacing = 12
FontBold = -1 'True
FontItalic = -1 'True
FontName = "Arial"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H0000FFFF&
Height = 3645
Index = 0
IntBkg = &H00C0C0C0&
Left = 2070
TabIndex = 4
Top = 0
Width = 4020
Begin VideoSoftElastic TabPage
BackColor = &H00C0C0C0&
BevelInnerWidth = 0
BevelOuter = 6 'Groove
BorderWidth = 4
Caption = "Welcome to VSVBX 4.0 Demo"
CaptionPos = 4 'Center Center
FontBold = -1 'True
FontItalic = -1 'True
FontName = "Arial"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00800000&
Height = 3285
IntBkg = &H00C0C0C0&
Left = 180
ShadowColor = &H00404040&
TabIndex = 12
Top = 180
Width = 3660
End
End
Begin VideoSoftElastic VSElastic1
Align = 3 'Align Left
AutoSizeChildren= 3 'Even Vertical
BackColor = &H00C0C0C0&
BevelInner = 7 'Shadow
BevelInnerWidth = 3
BevelOuter = 0 'None
BevelOuterWidth = 1
BorderWidth = 12
ChildSpacing = 8
Height = 3645
Index = 1
IntBkg = &H00C0C0C0&
Left = 0
ShadowColor = &H00404040&
TabIndex = 6
Top = 0
Width = 2070
Begin CommandButton Command1
BackColor = &H00808080&
Caption = "&Splitter bars"
Height = 735
Index = 0
Left = 180
TabIndex = 0
Top = 180
Width = 1710
End
Begin CommandButton Command1
BackColor = &H00808080&
Caption = "&Resizing/Flood"
Height = 735
Index = 1
Left = 180
TabIndex = 1
Top = 1035
Width = 1710
End
Begin CommandButton Command1
BackColor = &H00808080&
Caption = "&IndexTab"
Height = 735
Index = 2
Left = 180
TabIndex = 2
Top = 1890
Width = 1710
End
Begin CommandButton Command1
BackColor = &H00808080&
Caption = "&AWK Formulas"
Height = 720
Index = 3
Left = 180
TabIndex = 3
Top = 2745
Width = 1710
End
End
Begin VideoSoftElastic VSElastic1
Align = 4 'Align Right
AutoSizeChildren= 3 'Even Vertical
BackColor = &H00C0C0C0&
BevelInner = 7 'Shadow
BevelInnerWidth = 3
BevelOuter = 0 'None
BevelOuterWidth = 1
BorderWidth = 12
ChildSpacing = 8
Height = 3645
Index = 2
IntBkg = &H00C0C0C0&
Left = 6090
ShadowColor = &H00404040&
TabIndex = 7
Top = 0
Width = 2070
Begin CommandButton Command1
BackColor = &H00808080&
Caption = "&Fake Buttons"
Height = 720
Index = 7
Left = 180
TabIndex = 11
Top = 2745
Width = 1710
End
Begin CommandButton Command1
BackColor = &H00808080&
Caption = "&MultiTabs"
Height = 735
Index = 6
Left = 180
TabIndex = 10
Top = 1890
Width = 1710
End
Begin CommandButton Command1
BackColor = &H00808080&
Caption = "&No Labels"
Height = 735
Index = 5
Left = 180
TabIndex = 9
Top = 1035
Width = 1710
End
Begin CommandButton Command1
BackColor = &H00808080&
Caption = "&Proportional"
Height = 735
Index = 4
Left = 180
TabIndex = 8
Top = 180
Width = 1710
End
End
Begin VideoSoftElastic StatusBar
Align = 2 'Align Bottom
BackColor = &H00C0C0C0&
BevelInner = 0 'None
BevelOuter = 1 'Raised
BevelOuterWidth = 1
BorderWidth = 2
Caption = "VideoSoft, 2625 Alcatraz Avenue, Suite 271, Berkeley, California (510) 547-7295"
CaptionPos = 4 'Center Center
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 525
IntBkg = &H00C0C0C0&
Left = 0
TabIndex = 5
Top = 3645
Width = 8160
WordWrap = 0 'False
End
End
Option Explicit
Sub Command1_Click (Index As Integer)
mousepointer = 11
Select Case Index
Case 0
Splitter.Show 1
Case 1
fFlood.Show 1
Case 2
IndexTab.Show 1
Case 3
calculator.Show 1
Case 4
fProp.Show 1
Case 5
fnolabels.Show 1
Case 6
fMultiTabs.Show 1
Case 7
fbuttons.Show 1
End Select
mousepointer = 0
End Sub
Sub Form_Load ()
'Resolution independence
'Place form on lower part of the screen
Me.Move 0, screen.Height * .25
Me.Width = screen.Width
Me.Height = screen.Height * .75
'Check Version
On Error Resume Next
If VSElastic1(0).Version > 4 Then MsgBox "An older version of VideoSoft VSVBX is loaded in your system. This demo may not work properly."
End Sub
Sub Form_Resize ()
'no code
End Sub