home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dragdrop / oledrag2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-02-11  |  5.0 KB  |  160 lines
  1. VERSION 5.00
  2. Begin VB.Form frmOLEDrag2 
  3.    Caption         =   "OLEDrag2"
  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 picDragTo 
  13.       AutoSize        =   -1  'True
  14.       Height          =   1770
  15.       Index           =   2
  16.       Left            =   3600
  17.       OLEDropMode     =   1  'Manual
  18.       ScaleHeight     =   1710
  19.       ScaleWidth      =   1650
  20.       TabIndex        =   6
  21.       Top             =   2520
  22.       Width           =   1710
  23.    End
  24.    Begin VB.PictureBox picDragTo 
  25.       AutoSize        =   -1  'True
  26.       Height          =   1770
  27.       Index           =   1
  28.       Left            =   1800
  29.       OLEDropMode     =   1  'Manual
  30.       ScaleHeight     =   1710
  31.       ScaleWidth      =   1650
  32.       TabIndex        =   5
  33.       Top             =   2520
  34.       Width           =   1710
  35.    End
  36.    Begin VB.PictureBox picDragTo 
  37.       AutoSize        =   -1  'True
  38.       Height          =   1770
  39.       Index           =   0
  40.       Left            =   0
  41.       OLEDropMode     =   1  'Manual
  42.       ScaleHeight     =   1710
  43.       ScaleWidth      =   1650
  44.       TabIndex        =   4
  45.       Top             =   2520
  46.       Width           =   1710
  47.    End
  48.    Begin VB.PictureBox picDragFrom 
  49.       AutoRedraw      =   -1  'True
  50.       AutoSize        =   -1  'True
  51.       Height          =   1770
  52.       Index           =   3
  53.       Left            =   1800
  54.       OLEDragMode     =   1  'Automatic
  55.       Picture         =   "OLEDrag2.frx":0000
  56.       ScaleHeight     =   1710
  57.       ScaleWidth      =   1395
  58.       TabIndex        =   3
  59.       Top             =   270
  60.       Width           =   1455
  61.    End
  62.    Begin VB.PictureBox picDragFrom 
  63.       AutoRedraw      =   -1  'True
  64.       AutoSize        =   -1  'True
  65.       Height          =   1290
  66.       Index           =   2
  67.       Left            =   4680
  68.       OLEDragMode     =   1  'Automatic
  69.       Picture         =   "OLEDrag2.frx":7CF2
  70.       ScaleHeight     =   1230
  71.       ScaleWidth      =   870
  72.       TabIndex        =   2
  73.       Top             =   510
  74.       Width           =   930
  75.    End
  76.    Begin VB.PictureBox picDragFrom 
  77.       AutoRedraw      =   -1  'True
  78.       AutoSize        =   -1  'True
  79.       Height          =   1110
  80.       Index           =   1
  81.       Left            =   3360
  82.       OLEDragMode     =   1  'Automatic
  83.       Picture         =   "OLEDrag2.frx":B594
  84.       ScaleHeight     =   1050
  85.       ScaleWidth      =   1155
  86.       TabIndex        =   1
  87.       Top             =   600
  88.       Width           =   1215
  89.    End
  90.    Begin VB.PictureBox picDragFrom 
  91.       AutoRedraw      =   -1  'True
  92.       AutoSize        =   -1  'True
  93.       Height          =   1590
  94.       Index           =   0
  95.       Left            =   0
  96.       OLEDragMode     =   1  'Automatic
  97.       Picture         =   "OLEDrag2.frx":CFB6
  98.       ScaleHeight     =   1530
  99.       ScaleWidth      =   1650
  100.       TabIndex        =   0
  101.       Top             =   360
  102.       Width           =   1710
  103.    End
  104.    Begin VB.Label Label1 
  105.       Caption         =   "Drag to:"
  106.       Height          =   255
  107.       Index           =   1
  108.       Left            =   0
  109.       TabIndex        =   8
  110.       Top             =   2160
  111.       Width           =   1215
  112.    End
  113.    Begin VB.Label Label1 
  114.       Caption         =   "Drag from:"
  115.       Height          =   255
  116.       Index           =   0
  117.       Left            =   0
  118.       TabIndex        =   7
  119.       Top             =   0
  120.       Width           =   1215
  121.    End
  122. Attribute VB_Name = "frmOLEDrag2"
  123. Attribute VB_GlobalNameSpace = False
  124. Attribute VB_Creatable = False
  125. Attribute VB_PredeclaredId = True
  126. Attribute VB_Exposed = False
  127. Option Explicit
  128. ' Get the dropped picture if the source is a bitmap
  129. ' or a graphic file.
  130. Private Sub picDragTo_OLEDragDrop(Index As Integer, Data As DataObject, _
  131.     Effect As Long, Button As Integer, Shift As Integer, _
  132.     X As Single, Y As Single)
  133. Dim ext As String
  134.     ' See if we know what to do with the data.
  135.     If Data.GetFormat(vbCFBitmap) Then
  136.         ' Copy the bitmap.
  137.         picDragTo(Index).Picture = Data.GetData(vbCFBitmap)
  138.         Effect = vbDropEffectCopy
  139.     ElseIf Data.GetFormat(vbCFFiles) Then
  140.         ' See if this is a file name ending in
  141.         ' bmp, gif, jpg, or jpeg.
  142.         ext = LCase$(Right$(Data.Files(1), 4))
  143.         If (ext = ".bmp") Or _
  144.            (ext = ".gif") Or _
  145.            (ext = ".jpg") Or _
  146.            (ext = "jpeg") _
  147.         Then
  148.             ' Load the file.
  149.             picDragTo(Index).Picture = LoadPicture(Data.Files(1))
  150.             Effect = vbDropEffectCopy
  151.         Else
  152.             ' Tell the source we did nothing.
  153.             Effect = vbDropEffectNone
  154.         End If
  155.     Else
  156.         ' Tell the source we did nothing.
  157.         Effect = vbDropEffectNone
  158.     End If
  159. End Sub
  160.