home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
3ctrls
/
fbuttons.frm
< prev
next >
Wrap
Text File
|
1994-04-26
|
16KB
|
433 lines
VERSION 2.00
Begin Form fButtons
BorderStyle = 3 'Fixed Double
Caption = "Be original!!"
ClientHeight = 5520
ClientLeft = 720
ClientTop = 735
ClientWidth = 5925
Height = 5985
Left = 630
LinkTopic = "Form1"
ScaleHeight = 5520
ScaleWidth = 5925
Top = 360
Width = 6105
Begin VideoSoftElastic VSElastic4
Align = 5 'Fill Container
AutoSizeChildren= 3 'Even Vertical
BackColor = &H00C0C0C0&
BevelInnerWidth = 0
BevelOuter = 1 'Raised
BevelOuterWidth = 1
BorderWidth = 12
Height = 4935
Left = 0
TabIndex = 6
Top = 0
Width = 3795
Begin VideoSoftElastic VSElastic7
AutoSizeChildren= 1 'Even Horizontal
BackColor = &H00C0C0C0&
BevelInner = 7 'Shadow
BevelInnerWidth = 3
BevelOuter = 6 'Groove
BorderWidth = 24
Caption = "Bottom Frame"
CaptionPos = 8 'Right Bottom
ChildSpacing = 12
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 2235
Left = 180
ShadowColor = &H00404080&
Style = 2 'Frame Bottom
TabIndex = 11
Top = 2520
Width = 3435
Begin VideoSoftElastic VSElastic2
AutoSizeChildren= 7 'Proportional
BackColor = &H00C0C0C0&
BevelInner = 0 'None
BevelOuterWidth = 4
Caption = "Multi-line Caption"
CaptionPos = 5 'Center Bottom
Height = 1275
Index = 4
Left = 1815
TabIndex = 13
Top = 360
Width = 1260
Begin Image Image1
Height = 480
Index = 4
Left = 375
Picture = FBUTTONS.FRX:0000
Top = 180
Width = 480
End
End
Begin VideoSoftElastic VSElastic2
AutoSizeChildren= 7 'Proportional
BackColor = &H00C0C0C0&
BevelInner = 0 'None
BevelOuterWidth = 4
Caption = "Multi-line Caption"
CaptionPos = 5 'Center Bottom
Height = 1275
Index = 0
Left = 360
TabIndex = 12
Top = 360
Width = 1275
Begin Image Image1
Height = 480
Index = 0
Left = 390
Picture = FBUTTONS.FRX:0302
Top = 180
Width = 480
End
End
End
Begin VideoSoftElastic VSElastic6
BackColor = &H00C0C0C0&
BevelInner = 0 'None
BevelInnerWidth = 4
BevelOuter = 5 'Fillet
BorderWidth = 20
Caption = "Elastic's new Frame style"
CaptionPos = 3 'Center Top
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 2250
Left = 180
Style = 1 'Frame Top
TabIndex = 9
Top = 180
Width = 3435
Begin VideoSoftElastic VSElastic9
BackColor = &H00C0C0C0&
BevelOuter = 0 'None
BevelOuterWidth = 0
BorderWidth = 0
Caption = "Size"
Height = 225
Left = 270
TabIndex = 16
Top = 1410
Width = 465
End
Begin VideoSoftIndexTab VSIndexTab1
BackSheets = 0 'None
BorderWidth = -5
Caption = "- |Small|Medium|Large"
CurrTab = 1
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
FrontTabColor = &H000000FF&
Height = 345
Left = 150
Position = 0 'Top
ShowFocusRect = 0 'False
Style = 3 'Rounded 3D
TabIndex = 14
Top = 1380
Width = 3195
Begin VideoSoftElastic VSElastic8
BackColor = &H00C0C0C0&
Height = 120
Left = -30
TabIndex = 15
Top = 255
Width = 3255
End
End
Begin VideoSoftElastic VSElastic3
AutoSizeChildren= 7 'Proportional
BackColor = &H00C0C0C0&
BevelInnerWidth = 0
BevelOuterWidth = 4
Caption = "Push Button "
CaptionPos = 7 'Right Center
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 705
Index = 1
Left = 210
TabIndex = 10
Top = 390
Width = 2085
Begin Image Image2
Height = 480
Index = 1
Left = 180
Picture = FBUTTONS.FRX:0604
Top = 120
Width = 480
End
End
End
End
Begin VideoSoftElastic VSElastic1
Align = 4 'Align Right
AutoSizeChildren= 3 'Even Vertical
BackColor = &H00C0C0C0&
BevelInner = 7 'Shadow
BevelInnerWidth = 3
BevelOuter = 1 'Raised
BevelOuterWidth = 1
BorderWidth = 12
Height = 4935
Left = 3795
ShadowColor = &H00404040&
TabIndex = 0
Top = 0
Width = 2130
Begin VideoSoftElastic VSElastic2
AutoSizeChildren= 7 'Proportional
BackColor = &H00C0C0C0&
BevelInner = 0 'None
BevelOuterWidth = 4
Caption = "Meals"
CaptionPos = 7 'Right Center
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 690
Index = 3
Left = 180
TabIndex = 7
Top = 1740
Width = 1770
Begin Image Image1
Height = 450
Index = 3
Left = 120
Picture = FBUTTONS.FRX:0906
Stretch = -1 'True
Top = 105
Width = 435
End
End
Begin VideoSoftElastic VSElastic2
AutoSizeChildren= 7 'Proportional
BackColor = &H00C0C0C0&
BevelInner = 0 'None
BevelOuterWidth = 4
Caption = "Mail"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 690
Index = 8
Left = 180
TabIndex = 5
Top = 3300
Width = 1770
Begin Image Image1
Height = 450
Index = 8
Left = 1260
Picture = FBUTTONS.FRX:0C08
Stretch = -1 'True
Top = 105
Width = 435
End
End
Begin VideoSoftElastic VSElastic2
AutoSizeChildren= 7 'Proportional
BackColor = &H00C0C0C0&
BevelInner = 0 'None
BevelOuterWidth = 4
Caption = "Phones"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 675
Index = 6
Left = 180
TabIndex = 4
Top = 4080
Width = 1770
Begin Image Image1
Height = 450
Index = 6
Left = 1230
Picture = FBUTTONS.FRX:0F0A
Stretch = -1 'True
Top = 90
Width = 435
End
End
Begin VideoSoftElastic VSElastic2
AutoSizeChildren= 7 'Proportional
BackColor = &H00C0C0C0&
BevelInner = 0 'None
BevelOuterWidth = 4
Caption = "Restrooms"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 690
Index = 5
Left = 180
TabIndex = 3
Top = 2520
Width = 1770
Begin Image Image1
Height = 450
Index = 5
Left = 1230
Picture = FBUTTONS.FRX:120C
Stretch = -1 'True
Top = 135
Width = 435
End
End
Begin VideoSoftElastic VSElastic2
AutoSizeChildren= 7 'Proportional
BackColor = &H00C0C0C0&
BevelInner = 0 'None
BevelOuterWidth = 4
Caption = "Information"
CaptionPos = 7 'Right Center
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 690
Index = 2
Left = 180
TabIndex = 2
Top = 960
Width = 1770
Begin Image Image1
Height = 450
Index = 2
Left = 120
Picture = FBUTTONS.FRX:150E
Stretch = -1 'True
Top = 105
Width = 435
End
End
Begin VideoSoftElastic VSElastic2
AutoSizeChildren= 7 'Proportional
BackColor = &H00C0C0C0&
BevelInner = 0 'None
BevelOuterWidth = 4
Caption = "Hours"
CaptionPos = 7 'Right Center
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 690
Index = 1
Left = 180
TabIndex = 1
Top = 180
Width = 1770
Begin Image Image1
Height = 450
Index = 1
Left = 120
Picture = FBUTTONS.FRX:1810
Stretch = -1 'True
Top = 150
Width = 435
End
End
End
Begin VideoSoftElastic VSElastic5
Align = 2 'Align Bottom
BackColor = &H00C0C0C0&
BevelOuter = 1 'Raised
BevelOuterWidth = 1
Caption = "Combination of Elastics and Image controls."
CaptionPos = 4 'Center Center
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 585
Left = 0
TabIndex = 8
Top = 4935
Width = 5925
End
End
Option Explicit
Sub Image1_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
VSElastic2(Index).BevelOuter = 4
End Sub
Sub Image1_MouseUp (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
VSElastic2(Index).BevelOuter = 2
End Sub
Sub Image2_Click (Index As Integer)
If VSElastic3(Index).BevelOuter = 2 Then
VSElastic3(Index).BevelOuter = 4
Else
VSElastic3(Index).BevelOuter = 2
End If
End Sub
Sub VSElastic2_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
VSElastic2(Index).BevelOuter = 4
End Sub
Sub VSElastic2_MouseUp (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
VSElastic2(Index).BevelOuter = 2
End Sub
Sub VSElastic3_Click (Index As Integer)
If VSElastic3(Index).BevelOuter = 2 Then
VSElastic3(Index).BevelOuter = 4
Else
VSElastic3(Index).BevelOuter = 2
End If
End Sub