本例演示一种指示有效的拖放目标的方法。当一个 TextBox 控件被拖过一个 PictureBox 控件时，指针从缺省的箭头变为特定的图标。当源被拖到其它地方时，指针恢复到缺省的状态。要尝试这个例子，可将代码粘贴到一个包含 1 个小 TextBox 和一个 PictureBox 的窗体的声明部分。将 TextBox 控件的 DragMode 属性设置为 1，然后按 F5 键并把 TextBox 拖过 PictureBox。
Private Sub Picture1_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
Select Case State
Case vbEnter
' 装载图标。
Source.DragIcon = LoadPicture("ICONS\ARROWS\POINT03.ICO")
Case vbLeave
Source.DragIcon = LoadPicture() ' 卸载图标.
End Select
End Sub
Private Sub Picture1_DragDrop (Source As Control, X As Single, Y As Single)
Source.DragIcon = LoadPicture() ' 卸载图标。
End Sub
拖放是用鼠标拖动一个对象到其它对象的活动。在图形 *** 作过程中，拖放是最常用的功能之一，下面我们来看看怎样用 VB 实现拖放功能。首先介绍与拖放有关的控件：
1.属性：DragMode 决定拖动 *** 作的初始化是人工方式还是自动方式，DragIcon 确定在拖动过程中显示的指针的图标形状；
2.方法：Drag 开始，结束或取消拖动控件；
3.事件：MouseDown 事件发生于用户按下鼠标按钮时，DragOver 事件发生于拖动 *** 作完成时，DragDrop 事件发生于拖动 *** 作正在进行时。
然后编写一个小程序，这个程序能实现在窗口中或窗口间拖动图标的功能。建立窗口 Form1 和 Form2，在窗口中都加入 Image1，为它们设置初始显示的图片。键入以下代码(本程序在 VB5.0/6.0，Window95/98/NT4.0 环境下通过)：
' Form1 下程序代码为：
Option Explicit
Dim dragx As Single
Dim dragy As Single
Const BEGIN_DRAG=1
Private Sub Form_DragDrop(Source As Control， X As Single， Y As Single)
Image1.Picture=Source 'Sourse为被拖动的控件
Form2.Image1.Picture=LoadPicture("")
Image1.Move(X-dragx),(Y-dragy) ' X，Y为鼠标所在目标窗体或控件的当前坐标
End Sub
Private Sub Form_Load()
Load Form2
Form2.Show 0
End Sub
Private Sub Image1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
dragx=X
dragy=Y
Image1.Drag BEGIN_DRAG'开始拖动 *** 作
Image1.DragIcon = LoadPicture("按下鼠标时想显示的光标")
End Sub
' Form2 下程序代码为：
Option Explicit
Dim dragx As Single
Dim dragy As Single
Const BEGIN_DRAG=1
Private Sub Form_DragDrop(Source As Control,X As Single,Y As Single)
Image1.Picture=Source
Form1.Image1.Picture=LoadPicture("")
Image1.Move(X-dragx),(Y-dragy)
End Sub
Private Sub Image1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
dragx=X
dragy=Y
Image1.Drag BEGIN_DRAG
Image1.DragIcon=LoadPicture("按下鼠标时想显示的光标")
属性和事件（1）属性：
名称 说明
AccessibilityObject 获取分配给该控件的 AccessibleObject。 （继承自 Control。）
AccessibleDefaultActionDescription 获取或设置控件的默认 *** 作说明，供辅助功能客户端应用程序使用。 （继承自 Control。）
AccessibleDescription 获取或设置辅助功能客户端应用程序使用的控件说明。 （继承自 Control。）
AccessibleName 获取或设置辅助功能客户端应用程序所使用的控件名称。 （继承自 Control。）
AccessibleRole 获取或设置控件的辅助性角色 （继承自 Control。）
AllowDrop 获取或设置一个值，该值指示控件是否可以接受用户拖放到它上面的数据。 （继承自 Control。）
Anchor 获取或设置控件绑定到的容器的边缘并确定控件如何随其父级一起调整大小。 （继承自 Control。）
AutoEllipsis 获取或设置一个值，该值指示是否要在控件的右边缘显示省略号 (...) 以表示控件文本超出指定的控件长度。 （继承自 ButtonBase。）
AutoScrollOffset 获取或设置一个值，该值指示在 ScrollControlIntoView 中将控件滚动到何处。 （继承自 Control。）
AutoSize 获取或设置一个值，该值指示控件是否基于其内容调整大小。 （继承自 ButtonBase。）
AutoSizeMode 获取或设置 Button 自己进行自动调整大小的模式。
BackColor 获取或设置控件的背景色。 （继承自 ButtonBase。）
BackgroundImage 获取或设置在控件中显示的背景图像。 （继承自 Control。）
BackgroundImageLayout 获取或设置在 ImageLayout 枚举中定义的背景图像布局。 （继承自 Control。）
BindingContext 获取或设置控件的 BindingContext。 （继承自 Control。）
Bottom 获取控件下边缘与其容器的工作区上边缘之间的距离（以像素为单位）。 （继承自 Control。）
Bounds 获取或设置控件（包括其非工作区元素）相对于其父控件的大小和位置（以像素为单位）。 （继承自 Control。）
CanEnableIme 获取一个用以指示是否可以将 ImeMode 属性设置为活动值的值，以启用 IME 支持。 （继承自 Control。）
CanFocus 获取一个值，该值指示控件是否可以接收焦点。 （继承自 Control。）
CanRaiseEvents 确定是否可以在控件上引发事件。 （继承自 Control。）
CanSelect 获取一个值，该值指示是否可以选中控件。 （继承自 Control。）
Capture 获取或设置一个值，该值指示控件是否已捕获鼠标。 （继承自 Control。）
CausesValidation 获取或设置一个值，该值指示控件是否会引起在任何需要在接收焦点时执行验证的控件上执行验证。 （继承自 Control。）
ClientRectangle 获取表示控件的工作区的矩形。 （继承自 Control。）
ClientSize 获取或设置控件的工作区的高度和宽度。 （继承自 Control。）
CompanyName 获取包含控件的应用程序的公司名称或创建者。 （继承自 Control。）
Container 获取 IContainer，它包含 Component。 （继承自 Component。）
ContainsFocus 获取一个值，该值指示控件或它的一个子控件当前是否有输入焦点。 （继承自 Control。）
ContextMenu 获取或设置与控件关联的快捷菜单。 （继承自 Control。）
ContextMenuStrip 获取或设置与此控件关联的 ContextMenuStrip。 （继承自 Control。）
Controls 获取包含在控件内的控件的集合。 （继承自 Control。）
Created 获取一个值，该值指示控件是否已经创建。 （继承自 Control。）
CreateParams 创建窗口时获取基类的一个 CreateParams。 （重写 ButtonBase.CreateParams。）
Cursor 获取或设置当鼠标指针位于控件上时显示的光标。 （继承自 Control。）
DataBindings 为该控件获取数据绑定。 （继承自 Control。）
DefaultCursor 获取或设置控件的默认光标。 （继承自 Control。）
DefaultImeMode 获取此控件支持的默认输入法编辑器 (IME) 模式。 （继承自 ButtonBase。）
DefaultMargin 获取控件之间默认指定的间距（以像素为单位）。 （继承自 Control。）
DefaultMaximumSize 获取以像素为单位的长度和高度，此长度和高度被指定为控件的默认最大大小。 （继承自 Control。）
DefaultMinimumSize 获取以像素为单位的长度和高度，此长度和高度被指定为控件的默认最小大小。 （继承自 Control。）
DefaultPadding 获取控件内容的内部间距（以像素为单位）。 （继承自 Control。）
DefaultSize 获取控件的默认大小。 （继承自 ButtonBase。）
DesignMode 获取一个值，用以指示 Component 当前是否处于设计模式。 （继承自 Component。）
DialogResult 获取或设置一个值，该值在单击按钮时返回到父窗体。
DisplayRectangle 获取表示控件的显示区域的矩形。 （继承自 Control。）
Disposing 获取一个值，该值指示 Control 基类是否在释放进程中。 （继承自 Control。）
Dock 获取或设置哪些控件边框停靠到其父控件并确定控件如何随其父级一起调整大小。 （继承自 Control。）
DoubleBuffered 获取或设置一个值，该值指示此控件是否应使用辅助缓冲区重绘其图面，以减少或避免闪烁。 （继承自 Control。）
Enabled 获取或设置一个值，该值指示控件是否可以对用户交互作出响应。 （继承自 Control。）
Events 获取附加到此 Component 的事件处理程序的列表。 （继承自 Component。）
FlatAppearance 获取用于指示选中状态和鼠标状态的边框外观和颜色。 （继承自 ButtonBase。）
FlatStyle 获取或设置按钮控件的平面样式外观。 （继承自 ButtonBase。）
Focused 获取一个值，该值指示控件是否有输入焦点。 （继承自 Control。）
Font 获取或设置控件显示的文字的字体。 （继承自 Control。）
FontHeight 获取或设置控件的字体的高度。 （继承自 Control。）
ForeColor 获取或设置控件的前景色。 （继承自 Control。）
Handle 获取控件绑定到的窗口句柄。 （继承自 Control。）
HasChildren 获取一个值，该值指示控件是否包含一个或多个子控件。 （继承自 Control。）
Height 获取或设置控件的高度。 （继承自 Control。）
Image 获取或设置显示在按钮控件上的图像。 （继承自 ButtonBase。）
ImageAlign 获取或设置按钮控件上的图像对齐方式。 （继承自 ButtonBase。）
ImageIndex 获取或设置按钮控件上显示的图像的图像列表索引值。 （继承自 ButtonBase。）
ImageKey 获取或设置 ImageList 中的图像的键访问器。 （继承自 ButtonBase。）
ImageList 获取或设置包含按钮控件上显示的 Image 的 ImageList。 （继承自 ButtonBase。）
ImeMode 基础结构。获取或设置此控件所支持的输入法编辑器 (IME) 模式。 此属性与此类无关。 （继承自 ButtonBase。）
ImeModeBase 获取或设置控件的 IME 模式。 （继承自 Control。）
InvokeRequired 获取一个值，该值指示调用方在对控件进行方法调用时是否必须调用 Invoke 方法，因为调用方位于创建控件所在的线程以外的线程中。 （继承自 Control。）
IsAccessible 获取或设置一个值，该值指示控件对辅助功能应用程序是否可见。 （继承自 Control。）
IsDefault 获取或设置一个值，通过该值指示按钮控件是否为默认按钮。 （继承自 ButtonBase。）
IsDisposed 获取一个值，该值指示控件是否已经被释放。 （继承自 Control。）
IsHandleCreated 获取一个值，该值指示控件是否有与它关联的句柄。 （继承自 Control。）
IsMirrored 获取一个值，该值指示此控件是否为镜像控件。 （继承自 Control。）
LayoutEngine 获取控件的布局引擎的缓存实例。 （继承自 Control。）
Left 获取或设置控件左边缘与其容器的工作区左边缘之间的距离（以像素为单位）。 （继承自 Control。）
Location 获取或设置该控件的左上角相对于其容器的左上角的坐标。 （继承自 Control。）
Margin 获取或设置控件之间的空间。 （继承自 Control。）
MaximumSize 获取或设置大小，该大小是 GetPreferredSize 可以指定的上限。 （继承自 Control。）
MinimumSize 获取或设置大小，该大小是 GetPreferredSize 可以指定的下限。 （继承自 Control。）
Name 获取或设置控件的名称。 （继承自 Control。）
Padding 获取或设置控件内的空白。 （继承自 Control。）
Parent 获取或设置控件的父容器。 （继承自 Control。）
PreferredSize 获取可以容纳控件的矩形区域的大小。 （继承自 Control。）
ProductName 获取包含控件的程序集的产品名称。 （继承自 Control。）
ProductVersion 获取包含控件的程序集的版本。 （继承自 Control。）
RecreatingHandle 获取一个值，该值指示控件当前是否在重新创建其句柄。 （继承自 Control。）
Region 获取或设置与控件关联的窗口区域。 （继承自 Control。）
RenderRightToLeft 已过时。此属性现已过时。 （继承自 Control。）
ResizeRedraw 获取或设置一个值，该值指示控件在调整大小时是否重绘自己。 （继承自 Control。）
Right 获取控件右边缘与其容器的工作区左边缘之间的距离（以像素为单位）。 （继承自 Control。）
RightToLeft 获取或设置一个值，该值指示是否将控件的元素对齐以支持使用从右向左的字体的区域设置。 （继承自 Control。）
ScaleChildren 获取一个值，该值确定子控件的缩放。 （继承自 Control。）
ShowFocusCues 获取一个值，该值指示控件是否应显示聚焦框。 （继承自 Control。）
ShowKeyboardCues 获取一个值，该值指示用户界面是否处于适当的状态以显示或隐藏键盘快捷键。 （继承自 Control。）
Site 获取或设置控件的站点。 （继承自 Control。）
Size 获取或设置控件的高度和宽度。 （继承自 Control。）
TabIndex 获取或设置在控件的容器的控件的 Tab 键顺序。 （继承自 Control。）
TabStop 获取或设置一个值，该值指示用户能否使用 Tab 键将焦点放到该控件上。 （继承自 Control。）
Tag 获取或设置包含有关控件的数据的对象。 （继承自 Control。）
Text 获取或设置与此控件关联的文本。 （继承自 ButtonBase。）
TextAlign 获取或设置按钮控件上的文本对齐方式。 （继承自 ButtonBase。）
TextImageRelation 获取或设置文本和图像相互之间的相对位置。 （继承自 ButtonBase。）
Top 获取或设置控件上边缘与其容器的工作区上边缘之间的距离（以像素为单位）。 （继承自 Control。）
TopLevelControl 获取没有另一个 Windows 窗体控件作为其父级的父控件。 通常，这是控件所在的最外面的 Form。 （继承自 Control。）
UseCompatibleTextRendering 获取或设置一个值，该值确定是使用 Graphics 类 (GDI+) 还是 TextRenderer 类 (GDI) 呈现文本。 （继承自 ButtonBase。）
UseMnemonic 获取或设置一个值，该值指示前面有“&”符的第一个字符是否用作控件的助记键。 （继承自 ButtonBase。）
UseVisualStyleBackColor 获取或设置一个值，确定是否使用视觉样式（如果支持）绘制背景。 （继承自 ButtonBase。）
UseWaitCursor 获取或设置一个值，该值指示是否将等待光标用于当前控件以及所有子控件。 （继承自 Control。）
Visible 获取或设置一个值，该值指示是否显示该控件及其所有子控件。 （继承自 Control。）
Width 获取或设置控件的宽度。 （继承自 Control。）
WindowTarget 基础结构。此属性与此类无关。 （继承自 Control。）
（2）事件
名称 说明
AutoSizeChanged 当 AutoSize 属性的值更改时发生。 （继承自 ButtonBase。）
BackColorChanged 当 BackColor 属性的值更改时发生。 （继承自 Control。）
BackgroundImageChanged 当 BackgroundImage 属性的值更改时发生。 （继承自 Control。）
BackgroundImageLayoutChanged 当 BackgroundImageLayout 属性更改时发生。 （继承自 Control。）
BindingContextChanged 当 BindingContext 属性的值更改时发生。 （继承自 Control。）
CausesValidationChanged 当 CausesValidation 属性的值更改时发生。 （继承自 Control。）
ChangeUICues 在焦点或键盘用户界面 (UI) 提示更改时发生。 （继承自 Control。）
Click 在单击控件时发生。 （继承自 Control。）
ClientSizeChanged 当 ClientSize 属性的值更改时发生。 （继承自 Control。）
ContextMenuChanged 当 ContextMenu 属性的值更改时发生。 （继承自 Control。）
ContextMenuStripChanged 当 ContextMenuStrip 属性的值更改时发生。 （继承自 Control。）
ControlAdded 在将新控件添加到 Control.ControlCollection 时发生。 （继承自 Control。）
ControlRemoved 在从 Control.ControlCollection 移除控件时发生。 （继承自 Control。）
CursorChanged 当 Cursor 属性的值更改时发生。 （继承自 Control。）
Disposed 当通过调用 Dispose 方法释放组件时发生。 （继承自 Component。）
DockChanged 当 Dock 属性的值更改时发生。 （继承自 Control。）
DoubleClick 当用户双击 Button 控件时发生。
DragDrop 在完成拖放 *** 作时发生。 （继承自 Control。）
DragEnter 在将对象拖入控件的边界时发生。 （继承自 Control。）
DragLeave 在将对象拖出控件的边界时发生。 （继承自 Control。）
DragOver 在将对象拖到控件的边界上发生。 （继承自 Control。）
EnabledChanged 在 Enabled 属性值更改后发生。 （继承自 Control。）
Enter 进入控件时发生。 （继承自 Control。）
FontChanged 在 Font 属性值更改时发生。 （继承自 Control。）
ForeColorChanged 在 ForeColor 属性值更改时发生。 （继承自 Control。）
GiveFeedback 在执行拖动 *** 作期间发生。 （继承自 Control。）
GotFocus 在控件接收焦点时发生。 （继承自 Control。）
HandleCreated 在为控件创建句柄时发生。 （继承自 Control。）
HandleDestroyed 在控件的句柄处于销毁过程中时发生。 （继承自 Control。）
HelpRequested 当用户请求控件的帮助时发生。 （继承自 Control。）
ImeModeChanged 基础结构。当 ImeMode 属性更改时发生。 此事件与该类无关。 （继承自 ButtonBase。）
Invalidated 在控件的显示需要重绘时发生。 （继承自 Control。）
KeyDown 在控件有焦点的情况下按下键时发生。 （继承自 Control。）
KeyPress 在控件有焦点的情况下按下键时发生。 （继承自 Control。）
KeyUp 在控件有焦点的情况下释放键时发生。 （继承自 Control。）
Layout 在控件应重新定位其子控件时发生。 （继承自 Control。）
Leave 在输入焦点离开控件时发生。 （继承自 Control。）
LocationChanged 在 Location 属性值更改后发生。 （继承自 Control。）
LostFocus 当控件失去焦点时发生。 （继承自 Control。）
MarginChanged 在控件边距更改时发生。 （继承自 Control。）
MouseCaptureChanged 当控件失去鼠标捕获时发生。 （继承自 Control。）
MouseClick 在鼠标单击该控件时发生。 （继承自 Control。）
MouseDoubleClick 当用户使用鼠标双击 Button 控件时发生。
MouseDown 当鼠标指针位于控件上并按下鼠标键时发生。 （继承自 Control。）
MouseEnter 在鼠标指针进入控件时发生。 （继承自 Control。）
MouseHover 在鼠标指针停放在控件上时发生。 （继承自 Control。）
MouseLeave 在鼠标指针离开控件时发生。 （继承自 Control。）
MouseMove 在鼠标指针移到控件上时发生。 （继承自 Control。）
MouseUp 在鼠标指针在控件上并释放鼠标键时发生。 （继承自 Control。）
MouseWheel 在移动鼠标滚轮并且控件有焦点时发生。 （继承自 Control。）
Move 在移动控件时发生。 （继承自 Control。）
PaddingChanged 在控件空白区更改时发生。 （继承自 Control。）
Paint 在重绘控件时发生。 （继承自 Control。）
ParentChanged 在 Parent 属性值更改时发生。 （继承自 Control。）
PreviewKeyDown 在焦点位于此控件上的情况下，当有按键动作时发生（在 KeyDown 事件之前发生）。 （继承自 Control。）
QueryAccessibilityHelp 在 AccessibleObject 为辅助功能应用程序提供帮助时发生。 （继承自 Control。）
QueryContinueDrag 在拖放 *** 作期间发生，并且允许拖动源确定是否应取消拖放 *** 作。 （继承自 Control。）
RegionChanged 当 Region 属性的值更改时发生。 （继承自 Control。）
Resize 在调整控件大小时发生。 （继承自 Control。）
RightToLeftChanged 在 RightToLeft 属性值更改时发生。 （继承自 Control。）
SizeChanged 在 Size 属性值更改时发生。 （继承自 Control。）
StyleChanged 在控件样式更改时发生。 （继承自 Control。）
SystemColorsChanged 系统颜色更改时发生。 （继承自 Control。）
TabIndexChanged 在 TabIndex 属性值更改时发生。 （继承自 Control。）
TabStopChanged 在 TabStop 属性值更改时发生。 （继承自 Control。）
TextChanged 在 Text 属性值更改时发生。 （继承自 Control。）
Validated 在控件完成验证时发生。 （继承自 Control。）
Validating 在控件正在验证时发生。 （继承自 Control。）
VisibleChanged 在 Visible 属性值更改时发生。 （继承自 Control。）
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）