home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / truegrid / disk1 / vsdemo / vsdemo.$ / FNOLABEL.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-01-31  |  10.2 KB  |  284 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      =   510
  7.    ClientTop       =   1215
  8.    ClientWidth     =   5700
  9.    Height          =   5835
  10.    Left            =   420
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   5370
  13.    ScaleWidth      =   5700
  14.    Top             =   840
  15.    Width           =   5880
  16.    Begin VideoSoftElastic VSElastic3 
  17.       Align           =   5  'Fill Container
  18.       AutoSizeChildren=   4  'Uneven Vertical
  19.       BevelInner      =   0  'None
  20.       BevelOuter      =   1  'Raised
  21.       BevelOuterWidth =   1
  22.       BorderWidth     =   8
  23.       ConvInfo        =   FNOLABEL.FRX:0000
  24.       Height          =   4770
  25.       IntBkg          =   &H00C0C0C0&
  26.       Left            =   0
  27.       TabIndex        =   4
  28.       Top             =   0
  29.       Width           =   5700
  30.       Begin VideoSoftElastic VSElastic4 
  31.          AccessKey       =   -1  'True
  32.          AutoSizeChildren=   1  'Even Horizontal
  33.          BevelInner      =   7  'Shadow
  34.          BevelInnerWidth =   4
  35.          BevelOuter      =   8  'Raised New Look
  36.          BorderWidth     =   14
  37.          CaptionPos      =   0  'Left Top
  38.          ChildSpacing    =   12
  39.          ConvInfo        =   FNOLABEL.FRX:000B
  40.          FontBold        =   0   'False
  41.          FontItalic      =   0   'False
  42.          FontName        =   "MS Sans Serif"
  43.          FontSize        =   9.75
  44.          FontStrikethru  =   0   'False
  45.          FontUnderline   =   0   'False
  46.          Height          =   2655
  47.          IntBkg          =   &H00C0C0C0&
  48.          Left            =   120
  49.          Style           =   2  'Frame Bottom
  50.          TabIndex        =   9
  51.          TagPosition     =   1  'Above
  52.          TagWidth        =   600
  53.          Top             =   1995
  54.          Width           =   5460
  55.          Begin TextBox Text 
  56.             FontBold        =   0   'False
  57.             FontItalic      =   0   'False
  58.             FontName        =   "MS Sans Serif"
  59.             FontSize        =   8.25
  60.             FontStrikethru  =   0   'False
  61.             FontUnderline   =   0   'False
  62.             Height          =   1395
  63.             Index           =   1
  64.             Left            =   210
  65.             MultiLine       =   -1  'True
  66.             TabIndex        =   11
  67.             Tag             =   "&Bill To"
  68.             Text            =   "Click me with the right button and Drag and Drop me to the left or right of the Ship To box."
  69.             Top             =   810
  70.             Width           =   2430
  71.          End
  72.          Begin TextBox Text 
  73.             FontBold        =   0   'False
  74.             FontItalic      =   0   'False
  75.             FontName        =   "MS Sans Serif"
  76.             FontSize        =   8.25
  77.             FontStrikethru  =   0   'False
  78.             FontUnderline   =   0   'False
  79.             Height          =   1395
  80.             Index           =   0
  81.             Left            =   2820
  82.             TabIndex        =   10
  83.             Tag             =   "Sh&ip To"
  84.             Top             =   810
  85.             Width           =   2430
  86.          End
  87.       End
  88.       Begin VideoSoftElastic VSElastic1 
  89.          AccessKey       =   -1  'True
  90.          AutoSizeChildren=   3  'Even Vertical
  91.          BevelInner      =   9  'Inset New Look
  92.          BevelInnerWidth =   2
  93.          BevelOuter      =   8  'Raised New Look
  94.          BorderWidth     =   20
  95.          ChildSpacing    =   12
  96.          ConvInfo        =   FNOLABEL.FRX:0016
  97.          FontBold        =   0   'False
  98.          FontItalic      =   0   'False
  99.          FontName        =   "MS Sans Serif"
  100.          FontSize        =   9.75
  101.          FontStrikethru  =   0   'False
  102.          FontUnderline   =   0   'False
  103.          Height          =   1785
  104.          IntBkg          =   &H00C0C0C0&
  105.          Left            =   120
  106.          TabIndex        =   5
  107.          TagWidth        =   1500
  108.          Top             =   120
  109.          Width           =   5460
  110.          Begin TextBox Text1 
  111.             BorderStyle     =   0  'None
  112.             FontBold        =   0   'False
  113.             FontItalic      =   0   'False
  114.             FontName        =   "MS Sans Serif"
  115.             FontSize        =   9.75
  116.             FontStrikethru  =   0   'False
  117.             FontUnderline   =   0   'False
  118.             Height          =   285
  119.             Index           =   0
  120.             Left            =   1800
  121.             TabIndex        =   8
  122.             Tag             =   "&First Name"
  123.             Text            =   "Text1"
  124.             Top             =   300
  125.             Width           =   3360
  126.          End
  127.          Begin TextBox Text1 
  128.             BorderStyle     =   0  'None
  129.             FontBold        =   0   'False
  130.             FontItalic      =   0   'False
  131.             FontName        =   "MS Sans Serif"
  132.             FontSize        =   9.75
  133.             FontStrikethru  =   0   'False
  134.             FontUnderline   =   0   'False
  135.             Height          =   270
  136.             Index           =   1
  137.             Left            =   1800
  138.             TabIndex        =   7
  139.             Tag             =   "&Last Name"
  140.             Text            =   "Text1"
  141.             Top             =   765
  142.             Width           =   3360
  143.          End
  144.          Begin TextBox Text1 
  145.             BorderStyle     =   0  'None
  146.             FontBold        =   0   'False
  147.             FontItalic      =   0   'False
  148.             FontName        =   "MS Sans Serif"
  149.             FontSize        =   9.75
  150.             FontStrikethru  =   0   'False
  151.             FontUnderline   =   0   'False
  152.             Height          =   270
  153.             Index           =   2
  154.             Left            =   1800
  155.             TabIndex        =   6
  156.             Tag             =   "&Company"
  157.             Text            =   "Text1"
  158.             Top             =   1215
  159.             Width           =   3360
  160.          End
  161.       End
  162.    End
  163.    Begin VideoSoftElastic VSElastic2 
  164.       Align           =   2  'Bottom
  165.       AutoSizeChildren=   1  'Even Horizontal
  166.       BevelInner      =   0  'None
  167.       BevelOuter      =   1  'Raised
  168.       BevelOuterWidth =   1
  169.       ConvInfo        =   FNOLABEL.FRX:0021
  170.       Height          =   600
  171.       IntBkg          =   &H00C0C0C0&
  172.       Left            =   0
  173.       TabIndex        =   0
  174.       Top             =   4770
  175.       Width           =   5700
  176.       Begin CommandButton Command1 
  177.          BackColor       =   &H00C0C0C0&
  178.          Caption         =   "&TagPosition"
  179.          FontBold        =   0   'False
  180.          FontItalic      =   0   'False
  181.          FontName        =   "MS Sans Serif"
  182.          FontSize        =   8.25
  183.          FontStrikethru  =   0   'False
  184.          FontUnderline   =   0   'False
  185.          Height          =   420
  186.          Index           =   4
  187.          Left            =   1215
  188.          TabIndex        =   13
  189.          Top             =   90
  190.          Width           =   1035
  191.       End
  192.       Begin CommandButton Command1 
  193.          BackColor       =   &H00C0C0C0&
  194.          Caption         =   "&Shadow"
  195.          FontBold        =   0   'False
  196.          FontItalic      =   0   'False
  197.          FontName        =   "MS Sans Serif"
  198.          FontSize        =   8.25
  199.          FontStrikethru  =   0   'False
  200.          FontUnderline   =   0   'False
  201.          Height          =   420
  202.          Index           =   3
  203.          Left            =   3465
  204.          TabIndex        =   12
  205.          Top             =   90
  206.          Width           =   1035
  207.       End
  208.       Begin CommandButton Command1 
  209.          BackColor       =   &H00C0C0C0&
  210.          Caption         =   "&Hint"
  211.          FontBold        =   0   'False
  212.          FontItalic      =   0   'False
  213.          FontName        =   "MS Sans Serif"
  214.          FontSize        =   8.25
  215.          FontStrikethru  =   0   'False
  216.          FontUnderline   =   0   'False
  217.          Height          =   420
  218.          Index           =   2
  219.          Left            =   4590
  220.          TabIndex        =   3
  221.          Top             =   90
  222.          Width           =   1020
  223.       End
  224.       Begin CommandButton Command1 
  225.          BackColor       =   &H00C0C0C0&
  226.          Caption         =   "F&oreColor"
  227.          FontBold        =   0   'False
  228.          FontItalic      =   0   'False
  229.          FontName        =   "MS Sans Serif"
  230.          FontSize        =   8.25
  231.          FontStrikethru  =   0   'False
  232.          FontUnderline   =   0   'False
  233.          Height          =   420
  234.          Index           =   1
  235.          Left            =   2340
  236.          TabIndex        =   2
  237.          Top             =   90
  238.          Width           =   1035
  239.       End
  240.       Begin CommandButton Command1 
  241.          BackColor       =   &H00C0C0C0&
  242.          Caption         =   "Caption&Pos"
  243.          FontBold        =   0   'False
  244.          FontItalic      =   0   'False
  245.          FontName        =   "MS Sans Serif"
  246.          FontSize        =   8.25
  247.          FontStrikethru  =   0   'False
  248.          FontUnderline   =   0   'False
  249.          Height          =   420
  250.          Index           =   0
  251.          Left            =   90
  252.          TabIndex        =   1
  253.          Top             =   90
  254.          Width           =   1035
  255.       End
  256.    End
  257. Option Explicit
  258. Sub Command1_Click (Index As Integer)
  259.   Select Case Index
  260.     Case 0  'Change Caption Positions
  261.       VSElastic1.CaptionPos = (VSElastic1.CaptionPos + 1) Mod 9
  262.       
  263.     Case 1  'Change to random colors
  264.       VSElastic1.ForeColor = QBColor(Rnd * 15)
  265.       
  266.     Case 2
  267.       MsgBox "Check the Tag property of the text boxes and the TagWidth and TagPosition properties of the Elastic"
  268.     Case 3  'Shadows
  269.       VSElastic4.ShadowColor = QBColor(Rnd * 15)
  270.     Case 4   'TagPosition
  271.       VSElastic4.TagPosition = (VSElastic4.TagPosition + 1) Mod 4
  272.   End Select
  273. End Sub
  274. Sub Text_DragDrop (Index As Integer, source As Control, X As Single, Y As Single)
  275.   If source.Left > Text(Index).Left Then
  276.     source.Left = Text(Index).Left - 50
  277.   Else
  278.     source.Left = Text(Index).Left + 50
  279.   End If
  280. End Sub
  281. Sub Text_MouseDown (Index As Integer, button As Integer, Shift As Integer, X As Single, Y As Single)
  282.   If button = 2 Then Text(Index).Drag 1
  283. End Sub
  284.