📄 ba34.htm
字号:
<HTML>
<HEAD>
<TITLE>VB 5.0中实现鼠标拖放</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<BODY topMargin=4 vLink=#0000ff>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height="52">
<DIV align=center>
<CENTER>
<table border=0 cellpadding=0 cellspacing=0 width=679 align="center">
<tbody>
<tr>
<td width=200 height="59">
</TD></TR><!--msnavigation--></TBODY></TABLE>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr><!--msnavigation--><td valign=top height="123">
<div align=center>
<table border=1 bordercolor=#b9d9ff cellpadding=0 cellspacing=0
class=table width=755>
<center>
<tr>
<td width="100%" height="3">
<div align="center"> <strong></strong></span></div>
</td>
</tr>
<tr>
<td
width="100%" class="unnamed1" height="124">
<div align="left">
<p align="center"><big>VB 5.0中实现鼠标拖放</big></p>
<p align="left"> <font size="-1" face="宋体">Windows
3.x 、 Windows 95 和 Widnows 98中，拖放是最常用的操作，VB5.0在程序设计中能非常容易地实现这一操作。<br>
与拖放有关的属性<br>
1、DragMode 属性<br>
该属性用来设置自动或手动拖放模式，缺省值为0（手动方式）。为了让控件自动执行拖放操作，必须把它的属性设为1，该属性即可以在属性窗口中设置，也可以在程序中设置，如：Picture1.DragMode=1一个对象的DragMode属性值为1时，该控件不再接收Click事件和MouseDown事件。<br>
2、DragIcon 属性<br>
在拖动中，并非对象本身在移动，而是代表对象的图标。即一旦拖动某个控件，该控件就变成一个图标，放下后再恢复原来控件。DragIcon属性含有一个图标或图片的文件名，如：Picture1.DragIcon=c:\vb5\icons\computer\disk06.ico
当拖动Picture1时，Picture1即变成由disk06.ico 所代表的图标。<br>
与拖放有关的事件<br>
与拖放有关的事件是DragDrop 和DragOver, 把控件拖动，如松开鼠标按钮，则产生DragDrop事件，事件过程格式如下：<br>
Sub 对象名_DragOver(Source As Control, X As Single , Y As single,
State As Integer)<br>
......<br>
End Sub<br>
该对象含有三个参数，其中Source 为一个对象变量，类型为Control .该参数含有被托动对象的属性，参数X、Y为松开鼠标按钮时光标的位置。<br>
DragOver 事件用于图标移动，格式如下 <br>
Sub 对象名_DragOver(Source As Control, X As Single, Y As Single,
State As Integer)<br>
……<br>
End Sub<br>
该事件含有四个参数，Source 含义同前，X、Y是鼠标托动时光标的位置坐标，State有三个值可取，当为0时，鼠标光标正进入目标对象区域，当为1时，鼠标光标正退出目标对象区域，当为2
时，鼠标光标正位于目标对象的区域之内。<br>
与拖放有关的方法<br>
与拖放有关的方法是Move 和Drag。 Move 方法大家已经很熟悉了，下面介绍Drag方法，Drag方法格式为：<br>
控件.Drag 整数，整数范围为0，1，2 含义分别为：<br>
0 取消托动操作，1 开始拖动操作，2 结束操作手动举例在窗体上建立一个图片框，装入一个图标，首先设置图片框的DragIcon
属性。<br>
Sub Form_Load( )<br>
Picture1.DragIcon=Picture1.Picture1.Picture<br>
End Sub<br>
接着用MouseDown事件过程打开拖拉开关。<br>
Sub Picture1_MouseDown (Button As Integer, Shift As Integer,
X As Single, Y As Single)<br>
Picture1.Drag 1<br>
End Sub<br>
下面过程是当松开鼠标按钮时，关闭拖拉开关，停止拖拉并产生DragDrop事件。<br>
Sub Picture1_MouseUp (Button As Integer, Shift As Integer,
X As Single, Y As Single)<br>
Picture1.Drag 2<br>
End Sub<br>
最后是DragDrop事件<br>
Sub Form_DragDrop (Source As Integer, X As Single , Y As Single)<br>
Source.Move (X－ Source.Width/2),(Y－ Source.Height/2)<br>
End Sub<br>
该程序在VB5.0中文版下运行通过。
(乌鲁木齐新疆工学院 屈强 830008)</font>
</div>
</td>
</tr>
</center>
<tr>
<td width="100%" class="unnamed1">
<p align=right><a href="ba33.htm">（上一页）</a>---<a href="ba35.htm">（下一页）</a></p>
</td>
</tr>
<tr>
<td width="100%" class="unnamed1">
</div>
</td>
</tr>
<!--msnavigation--></tbody>
</table>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -