home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / 3ctrls / fnolabel.frm < prev    next >
Text File  |  1994-03-23  |  10KB  |  274 lines
  1. VERSION 2.00
  2. Begin Form fNolabels 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "There are no labels on this form"
  5.    ClientHeight    =   5370
  6.    ClientLeft      =   525
  7.    ClientTop       =   1215
  8.    ClientWidth     =   7050
  9.    Height          =   5835
  10.    Left            =   435
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   5370
  13.    ScaleWidth      =   7050
  14.    Top             =   840
  15.    Width           =   7230
  16.    Begin VideoSoftElastic VSElastic3 
  17.       Align           =   5  'Fill Container
  18.       AutoSizeChildren=   4  'Uneven Vertical
  19.       BackColor       =   &H00C0C0C0&
  20.       BevelInner      =   0  'None
  21.       BevelOuter      =   1  'Raised
  22.       BevelOuterWidth =   1
  23.       BorderWidth     =   8
  24.       Height          =   4770
  25.       Left            =   0
  26.       TabIndex        =   4
  27.       Top             =   0
  28.       Width           =   7050
  29.       Begin VideoSoftElastic VSElastic4 
  30.          AccessKey       =   -1  'True
  31.          AutoSizeChildren=   1  'Even Horizontal
  32.          BackColor       =   &H00C0C0C0&
  33.          BevelInner      =   7  'Shadow
  34.          BevelInnerWidth =   4
  35.          BevelOuter      =   5  'Fillet
  36.          BorderWidth     =   14
  37.          CaptionPos      =   0  'Left Top
  38.          ChildSpacing    =   12
  39.          FontBold        =   -1  'True
  40.          FontItalic      =   0   'False
  41.          FontName        =   "System"
  42.          FontSize        =   9.75
  43.          FontStrikethru  =   0   'False
  44.          FontUnderline   =   0   'False
  45.          Height          =   2415
  46.          Left            =   120
  47.          ShadowColor     =   &H00000000&
  48.          Style           =   2  'Frame Bottom
  49.          TabIndex        =   9
  50.          TagPosition     =   1  'Above Control
  51.          TagWidth        =   600
  52.          Top             =   2235
  53.          Width           =   6810
  54.          Begin TextBox Text 
  55.             Height          =   1155
  56.             Index           =   1
  57.             Left            =   210
  58.             MultiLine       =   -1  'True
  59.             TabIndex        =   11
  60.             Tag             =   "&Bill To"
  61.             Text            =   "Click me with the right button and Drag and Drop me to the left or right of the Ship To box."
  62.             Top             =   810
  63.             Width           =   3105
  64.          End
  65.          Begin TextBox Text 
  66.             Height          =   1155
  67.             Index           =   0
  68.             Left            =   3495
  69.             TabIndex        =   10
  70.             Tag             =   "Sh&ip To"
  71.             Top             =   810
  72.             Width           =   3105
  73.          End
  74.       End
  75.       Begin VideoSoftElastic VSElastic1 
  76.          AccessKey       =   -1  'True
  77.          AutoSizeChildren=   3  'Even Vertical
  78.          BackColor       =   &H00C0C0C0&
  79.          BevelInner      =   7  'Shadow
  80.          BevelInnerWidth =   4
  81.          BevelOuter      =   6  'Groove
  82.          BorderWidth     =   20
  83.          ChildSpacing    =   12
  84.          FontBold        =   -1  'True
  85.          FontItalic      =   0   'False
  86.          FontName        =   "System"
  87.          FontSize        =   9.75
  88.          FontStrikethru  =   0   'False
  89.          FontUnderline   =   0   'False
  90.          Height          =   2025
  91.          Left            =   120
  92.          TabIndex        =   5
  93.          TagWidth        =   1500
  94.          Top             =   120
  95.          Width           =   6810
  96.          Begin TextBox Text1 
  97.             FontBold        =   -1  'True
  98.             FontItalic      =   0   'False
  99.             FontName        =   "System"
  100.             FontSize        =   9.75
  101.             FontStrikethru  =   0   'False
  102.             FontUnderline   =   0   'False
  103.             Height          =   360
  104.             Index           =   0
  105.             Left            =   1800
  106.             TabIndex        =   8
  107.             Tag             =   "&First Name"
  108.             Text            =   "Text1"
  109.             Top             =   300
  110.             Width           =   4710
  111.          End
  112.          Begin TextBox Text1 
  113.             FontBold        =   -1  'True
  114.             FontItalic      =   0   'False
  115.             FontName        =   "System"
  116.             FontSize        =   9.75
  117.             FontStrikethru  =   0   'False
  118.             FontUnderline   =   0   'False
  119.             Height          =   360
  120.             Index           =   1
  121.             Left            =   1800
  122.             TabIndex        =   7
  123.             Tag             =   "&Last Name"
  124.             Text            =   "Text1"
  125.             Top             =   840
  126.             Width           =   4710
  127.          End
  128.          Begin TextBox Text1 
  129.             FontBold        =   -1  'True
  130.             FontItalic      =   0   'False
  131.             FontName        =   "System"
  132.             FontSize        =   9.75
  133.             FontStrikethru  =   0   'False
  134.             FontUnderline   =   0   'False
  135.             Height          =   360
  136.             Index           =   2
  137.             Left            =   1800
  138.             TabIndex        =   6
  139.             Tag             =   "&Company"
  140.             Text            =   "Text1"
  141.             Top             =   1380
  142.             Width           =   4710
  143.          End
  144.       End
  145.    End
  146.    Begin VideoSoftElastic VSElastic2 
  147.       Align           =   2  'Align Bottom
  148.       AutoSizeChildren=   1  'Even Horizontal
  149.       BackColor       =   &H00C0C0C0&
  150.       BevelOuter      =   1  'Raised
  151.       BevelOuterWidth =   1
  152.       Height          =   600
  153.       Left            =   0
  154.       TabIndex        =   0
  155.       Top             =   4770
  156.       Width           =   7050
  157.       Begin CommandButton Command1 
  158.          BackColor       =   &H00C0C0C0&
  159.          Caption         =   "&TagPosition"
  160.          FontBold        =   -1  'True
  161.          FontItalic      =   0   'False
  162.          FontName        =   "System"
  163.          FontSize        =   9.75
  164.          FontStrikethru  =   0   'False
  165.          FontUnderline   =   0   'False
  166.          Height          =   420
  167.          Index           =   4
  168.          Left            =   1485
  169.          TabIndex        =   13
  170.          Top             =   90
  171.          Width           =   1305
  172.       End
  173.       Begin CommandButton Command1 
  174.          BackColor       =   &H00C0C0C0&
  175.          Caption         =   "&Shadow"
  176.          FontBold        =   -1  'True
  177.          FontItalic      =   0   'False
  178.          FontName        =   "System"
  179.          FontSize        =   9.75
  180.          FontStrikethru  =   0   'False
  181.          FontUnderline   =   0   'False
  182.          Height          =   420
  183.          Index           =   3
  184.          Left            =   4275
  185.          TabIndex        =   12
  186.          Top             =   90
  187.          Width           =   1305
  188.       End
  189.       Begin CommandButton Command1 
  190.          BackColor       =   &H00C0C0C0&
  191.          Caption         =   "&Hint"
  192.          FontBold        =   -1  'True
  193.          FontItalic      =   0   'False
  194.          FontName        =   "System"
  195.          FontSize        =   9.75
  196.          FontStrikethru  =   0   'False
  197.          FontUnderline   =   0   'False
  198.          Height          =   420
  199.          Index           =   2
  200.          Left            =   5670
  201.          TabIndex        =   3
  202.          Top             =   90
  203.          Width           =   1290
  204.       End
  205.       Begin CommandButton Command1 
  206.          BackColor       =   &H00C0C0C0&
  207.          Caption         =   "F&oreColor"
  208.          FontBold        =   -1  'True
  209.          FontItalic      =   0   'False
  210.          FontName        =   "System"
  211.          FontSize        =   9.75
  212.          FontStrikethru  =   0   'False
  213.          FontUnderline   =   0   'False
  214.          Height          =   420
  215.          Index           =   1
  216.          Left            =   2880
  217.          TabIndex        =   2
  218.          Top             =   90
  219.          Width           =   1305
  220.       End
  221.       Begin CommandButton Command1 
  222.          BackColor       =   &H00C0C0C0&
  223.          Caption         =   "Caption&Pos"
  224.          FontBold        =   -1  'True
  225.          FontItalic      =   0   'False
  226.          FontName        =   "System"
  227.          FontSize        =   9.75
  228.          FontStrikethru  =   0   'False
  229.          FontUnderline   =   0   'False
  230.          Height          =   420
  231.          Index           =   0
  232.          Left            =   90
  233.          TabIndex        =   1
  234.          Top             =   90
  235.          Width           =   1305
  236.       End
  237.    End
  238. End
  239. Option Explicit
  240.  
  241. Sub Command1_Click (Index As Integer)
  242.   Select Case Index
  243.  
  244.     Case 0  'Change Caption Positions
  245.       VSElastic1.CaptionPos = (VSElastic1.CaptionPos + 1) Mod 9
  246.       
  247.     Case 1  'Change to random colors
  248.       VSElastic1.ForeColor = QBColor(Rnd * 15)
  249.       
  250.     Case 2
  251.       MsgBox "Check the Tag property of the text boxes and the TagWidth and TagPosition properties of the Elastic"
  252.  
  253.     Case 3  'Shadows
  254.       VSElastic1.ShadowColor = QBColor(Rnd * 15)
  255.  
  256.     Case 4   'TagPosition
  257.       VSElastic4.TagPosition = (VSElastic4.TagPosition + 1) Mod 2
  258.  
  259.   End Select
  260. End Sub
  261.  
  262. Sub Text_DragDrop (Index As Integer, source As Control, X As Single, Y As Single)
  263.   If source.Left > Text(Index).Left Then
  264.     source.Left = Text(Index).Left - 50
  265.   Else
  266.     source.Left = Text(Index).Left + 50
  267.   End If
  268. End Sub
  269.  
  270. Sub Text_MouseDown (Index As Integer, button As Integer, Shift As Integer, X As Single, Y As Single)
  271.   If button = 2 Then Text(Index).Drag 1
  272. End Sub
  273.  
  274.