home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / file_mgr / fmsample.frm < prev    next >
Text File  |  1993-09-28  |  2KB  |  67 lines

  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "FMDrop Sample"
  4.    ClientHeight    =   3855
  5.    ClientLeft      =   1680
  6.    ClientTop       =   2220
  7.    ClientWidth     =   4320
  8.    Height          =   4260
  9.    Left            =   1620
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3855
  12.    ScaleWidth      =   4320
  13.    Top             =   1875
  14.    Width           =   4440
  15.    Begin FMDrop FMDrop1 
  16.       Left            =   2520
  17.       Top             =   120
  18.    End
  19.    Begin ListBox List1 
  20.       Height          =   2175
  21.       Left            =   240
  22.       TabIndex        =   0
  23.       Top             =   1440
  24.       Width           =   3855
  25.    End
  26.    Begin Label Label2 
  27.       Caption         =   "FMDrop Sample"
  28.       FontBold        =   -1  'True
  29.       FontItalic      =   0   'False
  30.       FontName        =   "MS Sans Serif"
  31.       FontSize        =   12
  32.       FontStrikethru  =   0   'False
  33.       FontUnderline   =   0   'False
  34.       Height          =   375
  35.       Left            =   240
  36.       TabIndex        =   2
  37.       Top             =   240
  38.       Width           =   2895
  39.    End
  40.    Begin Label Label1 
  41.       Caption         =   "Drag some files from the File Manager (FILEMAN) on to this form.  Their file names will appear in the list below."
  42.       Height          =   735
  43.       Left            =   240
  44.       TabIndex        =   1
  45.       Top             =   600
  46.       Width           =   3855
  47.    End
  48. End
  49.  
  50. Option Explicit
  51.  
  52. Sub FMDrop1_DropFiles ()
  53.     Dim I As Integer
  54.  
  55.     List1.Clear
  56.     
  57.     For I = 0 To FMDrop1.FileCount - 1
  58.         List1.AddItem FMDrop1.FileName(I)
  59.     Next I
  60. End Sub
  61.  
  62. Sub Form_Load ()
  63.     Form1.Left = (Screen.Width - Form1.Width) / 2
  64.     Form1.Top = (Screen.Height - Form1.Height) / 2
  65. End Sub
  66.  
  67.