home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / FERRAMEN / VBXSTD12 / DDROP.FR_ / DDROP.FRM (.txt)
Encoding:
Visual Basic Form  |  1994-08-23  |  2.4 KB  |  75 lines
  1. VERSION 2.00
  2. Begin Form Form5 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "VBDDrop Sample..."
  5.    ClientHeight    =   5448
  6.    ClientLeft      =   876
  7.    ClientTop       =   1524
  8.    ClientWidth     =   6420
  9.    FillColor       =   &H00C0C0C0&
  10.    Height          =   5868
  11.    Left            =   828
  12.    LinkTopic       =   "Form5"
  13.    ScaleHeight     =   5448
  14.    ScaleWidth      =   6420
  15.    Top             =   1152
  16.    Width           =   6516
  17.    Begin VBDDrop VBDDrop1 
  18.       BackColor       =   &H00C0C0C0&
  19.       Height          =   384
  20.       Help            =   &H00000000&
  21.       Left            =   5952
  22.       TabStop         =   0   'False
  23.       Top             =   4956
  24.       Prop10          =   &H00000000&
  25.       Width           =   384
  26.       Prop11          =   2154
  27.    End
  28.    Begin VBText VBText2 
  29.       Autosizing      =   0   'False
  30.       BackColor       =   4  'Light grey (pure)
  31.       ForeColor       =   &H00000000&
  32.       Frame3D         =   0  'None
  33.       Height          =   276
  34.       Help            =   &H00000000&
  35.       HorizAlignment  =   2  'Left
  36.       Left            =   168
  37.       Multiline       =   0   'False
  38.       Style3D         =   0  'None
  39.       TabIndex        =   0
  40.       TabStop         =   0   'False
  41.       Top             =   648
  42.       Prop18          =   &H00000000&
  43.       VerticalAlignment=   0  'Centre
  44.       Width           =   4584
  45.       Prop17          =   2154
  46.    End
  47.    Begin VBText VBText1 
  48.       Autosizing      =   0   'False
  49.       BackColor       =   4  'Light grey (pure)
  50.       Caption         =   "VBDDrop DEMO..."
  51.       ForeColor       =   &H00000000&
  52.       Frame3D         =   0  'None
  53.       Height          =   312
  54.       Help            =   &H00000000&
  55.       HorizAlignment  =   2  'Left
  56.       Left            =   156
  57.       Multiline       =   0   'False
  58.       Style3D         =   0  'None
  59.       TabIndex        =   1
  60.       TabStop         =   0   'False
  61.       Top             =   120
  62.       Prop18          =   &H00000000&
  63.       VerticalAlignment=   0  'Centre
  64.       Width           =   2136
  65.       Prop17          =   2154
  66.    End
  67. Sub Form_Resize ()
  68. 'Important for a resizing window...
  69. VBDDrop1.Refresh
  70. End Sub
  71. Sub VBDDrop1_FileDropped (Files As Integer)
  72. VBText1.Caption = "Number of files: " + Str$(Files)
  73. VBText2.Caption = "First file: " + VBDDrop1.Filename(0)
  74. End Sub
  75.