form0905.frm

来自「VB实验教程源码」· FRM 代码 · 共 81 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "拖放对象"
   ClientHeight    =   4590
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5190
   LinkTopic       =   "Form1"
   ScaleHeight     =   4590
   ScaleWidth      =   5190
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame1 
      Height          =   975
      Left            =   720
      TabIndex        =   0
      Top             =   120
      Width           =   3735
      Begin VB.Image Image3 
         DragMode        =   1  'Automatic
         Height          =   615
         Left            =   2760
         Picture         =   "Form0905.frx":0000
         Stretch         =   -1  'True
         Top             =   240
         Width           =   615
      End
      Begin VB.Image Image2 
         DragMode        =   1  'Automatic
         Height          =   615
         Left            =   1560
         Picture         =   "Form0905.frx":3884
         Stretch         =   -1  'True
         Top             =   240
         Width           =   615
      End
      Begin VB.Image Image1 
         DragMode        =   1  'Automatic
         Height          =   615
         Left            =   360
         Picture         =   "Form0905.frx":10B386
         Stretch         =   -1  'True
         Top             =   240
         Width           =   615
      End
   End
   Begin VB.Label Label1 
      Height          =   255
      Left            =   1800
      TabIndex        =   1
      Top             =   3960
      Width           =   1335
   End
   Begin VB.Image Image4 
      BorderStyle     =   1  'Fixed Single
      Height          =   2655
      Left            =   720
      Stretch         =   -1  'True
      Top             =   1200
      Width           =   3735
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Image4_DragDrop(Source As Control, X As Single, Y As Single)
'在图像框中拖放图像
    Image4.Picture = Source.Picture
    If Source = Image1 Then
        Label1.Caption = "鸵鸟"
    ElseIf Source = Image2 Then
        Label1.Caption = "钟"
    Else
        Label1.Caption = "五角星"
    End If
End Sub