home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
3ctrls
/
fnolabel.frm
< prev
next >
Wrap
Text File
|
1994-03-23
|
10KB
|
274 lines
VERSION 2.00
Begin Form fNolabels
BackColor = &H00C0C0C0&
Caption = "There are no labels on this form"
ClientHeight = 5370
ClientLeft = 525
ClientTop = 1215
ClientWidth = 7050
Height = 5835
Left = 435
LinkTopic = "Form2"
ScaleHeight = 5370
ScaleWidth = 7050
Top = 840
Width = 7230
Begin VideoSoftElastic VSElastic3
Align = 5 'Fill Container
AutoSizeChildren= 4 'Uneven Vertical
BackColor = &H00C0C0C0&
BevelInner = 0 'None
BevelOuter = 1 'Raised
BevelOuterWidth = 1
BorderWidth = 8
Height = 4770
Left = 0
TabIndex = 4
Top = 0
Width = 7050
Begin VideoSoftElastic VSElastic4
AccessKey = -1 'True
AutoSizeChildren= 1 'Even Horizontal
BackColor = &H00C0C0C0&
BevelInner = 7 'Shadow
BevelInnerWidth = 4
BevelOuter = 5 'Fillet
BorderWidth = 14
CaptionPos = 0 'Left Top
ChildSpacing = 12
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 2415
Left = 120
ShadowColor = &H00000000&
Style = 2 'Frame Bottom
TabIndex = 9
TagPosition = 1 'Above Control
TagWidth = 600
Top = 2235
Width = 6810
Begin TextBox Text
Height = 1155
Index = 1
Left = 210
MultiLine = -1 'True
TabIndex = 11
Tag = "&Bill To"
Text = "Click me with the right button and Drag and Drop me to the left or right of the Ship To box."
Top = 810
Width = 3105
End
Begin TextBox Text
Height = 1155
Index = 0
Left = 3495
TabIndex = 10
Tag = "Sh&ip To"
Top = 810
Width = 3105
End
End
Begin VideoSoftElastic VSElastic1
AccessKey = -1 'True
AutoSizeChildren= 3 'Even Vertical
BackColor = &H00C0C0C0&
BevelInner = 7 'Shadow
BevelInnerWidth = 4
BevelOuter = 6 'Groove
BorderWidth = 20
ChildSpacing = 12
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 2025
Left = 120
TabIndex = 5
TagWidth = 1500
Top = 120
Width = 6810
Begin TextBox Text1
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 360
Index = 0
Left = 1800
TabIndex = 8
Tag = "&First Name"
Text = "Text1"
Top = 300
Width = 4710
End
Begin TextBox Text1
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 360
Index = 1
Left = 1800
TabIndex = 7
Tag = "&Last Name"
Text = "Text1"
Top = 840
Width = 4710
End
Begin TextBox Text1
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 360
Index = 2
Left = 1800
TabIndex = 6
Tag = "&Company"
Text = "Text1"
Top = 1380
Width = 4710
End
End
End
Begin VideoSoftElastic VSElastic2
Align = 2 'Align Bottom
AutoSizeChildren= 1 'Even Horizontal
BackColor = &H00C0C0C0&
BevelOuter = 1 'Raised
BevelOuterWidth = 1
Height = 600
Left = 0
TabIndex = 0
Top = 4770
Width = 7050
Begin CommandButton Command1
BackColor = &H00C0C0C0&
Caption = "&TagPosition"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 420
Index = 4
Left = 1485
TabIndex = 13
Top = 90
Width = 1305
End
Begin CommandButton Command1
BackColor = &H00C0C0C0&
Caption = "&Shadow"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 420
Index = 3
Left = 4275
TabIndex = 12
Top = 90
Width = 1305
End
Begin CommandButton Command1
BackColor = &H00C0C0C0&
Caption = "&Hint"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 420
Index = 2
Left = 5670
TabIndex = 3
Top = 90
Width = 1290
End
Begin CommandButton Command1
BackColor = &H00C0C0C0&
Caption = "F&oreColor"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 420
Index = 1
Left = 2880
TabIndex = 2
Top = 90
Width = 1305
End
Begin CommandButton Command1
BackColor = &H00C0C0C0&
Caption = "Caption&Pos"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 420
Index = 0
Left = 90
TabIndex = 1
Top = 90
Width = 1305
End
End
End
Option Explicit
Sub Command1_Click (Index As Integer)
Select Case Index
Case 0 'Change Caption Positions
VSElastic1.CaptionPos = (VSElastic1.CaptionPos + 1) Mod 9
Case 1 'Change to random colors
VSElastic1.ForeColor = QBColor(Rnd * 15)
Case 2
MsgBox "Check the Tag property of the text boxes and the TagWidth and TagPosition properties of the Elastic"
Case 3 'Shadows
VSElastic1.ShadowColor = QBColor(Rnd * 15)
Case 4 'TagPosition
VSElastic4.TagPosition = (VSElastic4.TagPosition + 1) Mod 2
End Select
End Sub
Sub Text_DragDrop (Index As Integer, source As Control, X As Single, Y As Single)
If source.Left > Text(Index).Left Then
source.Left = Text(Index).Left - 50
Else
source.Left = Text(Index).Left + 50
End If
End Sub
Sub Text_MouseDown (Index As Integer, button As Integer, Shift As Integer, X As Single, Y As Single)
If button = 2 Then Text(Index).Drag 1
End Sub