home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / ch_code / ch04 / textdrop / textdrop.frm (.txt) next >
Encoding:
Visual Basic Form  |  1997-02-20  |  2.5 KB  |  79 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "TextDrop"
  4.    ClientHeight    =   3165
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3165
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.TextBox Text2 
  13.       BeginProperty Font 
  14.          Name            =   "MS Sans Serif"
  15.          Size            =   9.75
  16.          Charset         =   0
  17.          Weight          =   400
  18.          Underline       =   0   'False
  19.          Italic          =   0   'False
  20.          Strikethrough   =   0   'False
  21.       EndProperty
  22.       Height          =   315
  23.       Left            =   195
  24.       TabIndex        =   2
  25.       Text            =   "DragMode = Manual"
  26.       Top             =   2085
  27.       Width           =   4140
  28.    End
  29.    Begin VB.TextBox Text1 
  30.       DragMode        =   1  'Automatic
  31.       BeginProperty Font 
  32.          Name            =   "MS Sans Serif"
  33.          Size            =   9.75
  34.          Charset         =   0
  35.          Weight          =   400
  36.          Underline       =   0   'False
  37.          Italic          =   0   'False
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.       Height          =   315
  41.       Left            =   195
  42.       TabIndex        =   1
  43.       Text            =   "DragMode = Automatic"
  44.       Top             =   1245
  45.       Width           =   4140
  46.    End
  47.    Begin VB.Label Label1 
  48.       Alignment       =   2  'Center
  49.       BorderStyle     =   1  'Fixed Single
  50.       BeginProperty Font 
  51.          Name            =   "MS Sans Serif"
  52.          Size            =   9.75
  53.          Charset         =   0
  54.          Weight          =   400
  55.          Underline       =   0   'False
  56.          Italic          =   0   'False
  57.          Strikethrough   =   0   'False
  58.       EndProperty
  59.       Height          =   315
  60.       Left            =   195
  61.       TabIndex        =   0
  62.       Top             =   285
  63.       Width           =   4140
  64.    End
  65. Attribute VB_Name = "Form1"
  66. Attribute VB_GlobalNameSpace = False
  67. Attribute VB_Creatable = False
  68. Attribute VB_PredeclaredId = True
  69. Attribute VB_Exposed = False
  70. Option Explicit
  71. Private Sub Label1_DragDrop(Source As Control, X As Single, Y As Single)
  72.     Label1.Caption = Source.Name & " was dropped"
  73. End Sub
  74. Private Sub Text2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  75.     If Shift = 2 Then
  76.         Text2.Drag
  77.     End If
  78. End Sub
  79.