5.12.frm

VB6.0应用例题

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "控件拖动"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text1 
      Height          =   735
      Left            =   720
      TabIndex        =   1
      Text            =   "文本框"
      Top             =   1080
      Width           =   1095
   End
   Begin VB.PictureBox Picture1 
      Height          =   1335
      Left            =   2040
      Picture         =   "5.12.frx":0000
      ScaleHeight     =   1275
      ScaleWidth      =   1515
      TabIndex        =   0
      Top             =   1080
      Width           =   1575
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
   Picture1.DragMode = 1       '设置图片框控件为自动拖动模式
   Text1.DragMode = 1          '设置文本框控件为自动拖动模式
End Sub
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
   Source.Move X, Y           '将源控件移到鼠标指针所指新位置
End Sub