home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dragdrop / drag.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-02-11  |  5.9 KB  |  189 lines
  1. VERSION 5.00
  2. Begin VB.Form frmDrag 
  3.    Caption         =   "Drag"
  4.    ClientHeight    =   4305
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   5625
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4305
  10.    ScaleWidth      =   5625
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.PictureBox picOkDrop 
  13.       AutoSize        =   -1  'True
  14.       Height          =   540
  15.       Left            =   4200
  16.       Picture         =   "Drag.frx":0000
  17.       ScaleHeight     =   480
  18.       ScaleWidth      =   480
  19.       TabIndex        =   10
  20.       Top             =   1920
  21.       Visible         =   0   'False
  22.       Width           =   540
  23.    End
  24.    Begin VB.PictureBox picNoDrop 
  25.       AutoSize        =   -1  'True
  26.       Height          =   540
  27.       Left            =   3480
  28.       Picture         =   "Drag.frx":0152
  29.       ScaleHeight     =   480
  30.       ScaleWidth      =   480
  31.       TabIndex        =   9
  32.       Top             =   1920
  33.       Visible         =   0   'False
  34.       Width           =   540
  35.    End
  36.    Begin VB.PictureBox picDragTo 
  37.       AutoSize        =   -1  'True
  38.       Height          =   1770
  39.       Index           =   2
  40.       Left            =   3600
  41.       ScaleHeight     =   1710
  42.       ScaleWidth      =   1650
  43.       TabIndex        =   8
  44.       Top             =   2520
  45.       Width           =   1710
  46.    End
  47.    Begin VB.PictureBox picDragTo 
  48.       AutoSize        =   -1  'True
  49.       Height          =   1770
  50.       Index           =   1
  51.       Left            =   1800
  52.       ScaleHeight     =   1710
  53.       ScaleWidth      =   1650
  54.       TabIndex        =   6
  55.       Top             =   2520
  56.       Width           =   1710
  57.    End
  58.    Begin VB.PictureBox picDragTo 
  59.       AutoSize        =   -1  'True
  60.       Height          =   1770
  61.       Index           =   0
  62.       Left            =   0
  63.       ScaleHeight     =   1710
  64.       ScaleWidth      =   1650
  65.       TabIndex        =   5
  66.       Top             =   2520
  67.       Width           =   1710
  68.    End
  69.    Begin VB.PictureBox picDragFrom 
  70.       AutoRedraw      =   -1  'True
  71.       AutoSize        =   -1  'True
  72.       DragMode        =   1  'Automatic
  73.       Height          =   1770
  74.       Index           =   3
  75.       Left            =   1800
  76.       Picture         =   "Drag.frx":02A4
  77.       ScaleHeight     =   1710
  78.       ScaleWidth      =   1395
  79.       TabIndex        =   3
  80.       Top             =   270
  81.       Width           =   1455
  82.    End
  83.    Begin VB.PictureBox picDragFrom 
  84.       AutoRedraw      =   -1  'True
  85.       AutoSize        =   -1  'True
  86.       DragMode        =   1  'Automatic
  87.       Height          =   1290
  88.       Index           =   2
  89.       Left            =   4680
  90.       Picture         =   "Drag.frx":7F96
  91.       ScaleHeight     =   1230
  92.       ScaleWidth      =   870
  93.       TabIndex        =   2
  94.       Top             =   510
  95.       Width           =   930
  96.    End
  97.    Begin VB.PictureBox picDragFrom 
  98.       AutoRedraw      =   -1  'True
  99.       AutoSize        =   -1  'True
  100.       DragMode        =   1  'Automatic
  101.       Height          =   1110
  102.       Index           =   1
  103.       Left            =   3360
  104.       Picture         =   "Drag.frx":B838
  105.       ScaleHeight     =   1050
  106.       ScaleWidth      =   1155
  107.       TabIndex        =   1
  108.       Top             =   600
  109.       Width           =   1215
  110.    End
  111.    Begin VB.PictureBox picDragFrom 
  112.       AutoRedraw      =   -1  'True
  113.       AutoSize        =   -1  'True
  114.       DragMode        =   1  'Automatic
  115.       Height          =   1590
  116.       Index           =   0
  117.       Left            =   0
  118.       Picture         =   "Drag.frx":D25A
  119.       ScaleHeight     =   1530
  120.       ScaleWidth      =   1650
  121.       TabIndex        =   0
  122.       Top             =   360
  123.       Width           =   1710
  124.    End
  125.    Begin VB.Label Label1 
  126.       Caption         =   "Drag to:"
  127.       Height          =   255
  128.       Index           =   1
  129.       Left            =   0
  130.       TabIndex        =   7
  131.       Top             =   2280
  132.       Width           =   1215
  133.    End
  134.    Begin VB.Label Label1 
  135.       Caption         =   "Drag from:"
  136.       Height          =   255
  137.       Index           =   0
  138.       Left            =   0
  139.       TabIndex        =   4
  140.       Top             =   0
  141.       Width           =   1215
  142.    End
  143. Attribute VB_Name = "frmDrag"
  144. Attribute VB_GlobalNameSpace = False
  145. Attribute VB_Creatable = False
  146. Attribute VB_PredeclaredId = True
  147. Attribute VB_Exposed = False
  148. Option Explicit
  149. ' When we enter the form, show the no drop cursor.
  150. Private Sub Form_DragOver(Source As Control, _
  151.     X As Single, Y As Single, State As Integer)
  152.     If State = vbEnter Then
  153.         Source.DragIcon = picNoDrop.Picture
  154.     End If
  155. End Sub
  156. ' Display the no drop cursor.
  157. Private Sub picDragFrom_DragOver(Index As Integer, Source As Control, _
  158.     X As Single, Y As Single, State As Integer)
  159.     If State = vbEnter Then
  160.         Source.DragIcon = picNoDrop.Picture
  161.     End If
  162. End Sub
  163. ' Get the dropped picture.
  164. Private Sub picDragTo_DragDrop(Index As Integer, Source As Control, _
  165.     X As Single, Y As Single)
  166.     ' Make sure Source is as picDragFrom control.
  167.     If Source.Name <> "picDragFrom" Then Exit Sub
  168.     ' Copy the dropped picture.
  169.     picDragTo(Index).Picture = Source.Picture
  170. End Sub
  171. ' When we drag over a picDragTo control, display
  172. ' the ok drop cursor if the source control has
  173. ' name picDragFrom. Otherwise display the no
  174. ' drop cursor.
  175. Private Sub picDragTo_DragOver(Index As Integer, Source As Control, _
  176.     X As Single, Y As Single, State As Integer)
  177.     ' If we are entering the control, see if
  178.     ' we know how to accept the drop.
  179.     If State = vbEnter Then
  180.         ' Verify that Source is a picDragFrom control.
  181.         If Source.Name = "picDragFrom" Then
  182.             ' This drop is ok.
  183.             Source.DragIcon = picOkDrop.Picture
  184.         Else
  185.             Source.DragIcon = picNoDrop.Picture
  186.         End If
  187.     End If
  188. End Sub
  189.