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