用VB实现拖放功能

原创 2001年08月16日 14:55:00

 

拖放是用鼠标拖动一个文件到其它对象的活动。在图形操作过程中,拖放是最常用的功能之一,下面我们来看看怎样用VB实现拖放功能。
  首先介绍与拖放有关的控件:
  1.属性:DragMode决定拖动操作的初始化是人工方式还是自动方式
      DragIcon确定在拖动过程中显示的指针的图标形状
  2.方法:Drag开始,结束或取消拖动控件
  3.事件:MouseDown事件发生于用户按下鼠标按钮时。
       DragOver事件发生于拖动操作完成时。
      DragDrop事件发生于拖动操作正在进行时。
  然后编写一个小程序,这个程序能实现在窗口中或窗口间拖动图标的功能。建
立窗口Form1和Form2,在窗口中都加入Image1,其中Form1下的Image1.picture为你想显示的图标。
  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(″按下鼠标时想显示的光标″)
  End Sub
  本程序在VB5.0,Window95环境下通过

WPF拖放功能实现

原文地址:http://www.cnblogs.com/loveis715/archive/2011/12/05/2277384.html 写在前面:本文为即兴而作,因此难免有疏漏和词不达意的地...
  • qq542369628
  • qq542369628
  • 2013年01月14日 16:00
  • 533

在VB.NET中实现拖放操作

点我进入原文 在VB.NET中实现拖放操作   绪论   Windows用户一般分为两类:一类习惯用键盘操作,一类习惯用鼠标操作。程序员们在编程时一般会提供快...
  • zhyh1435589631
  • zhyh1435589631
  • 2016年05月10日 15:44
  • 2560

记住密码,自动登录功能实现

初步代码,功能正在逐步完善。 1.activity_mian.xml
  • mzpsilence
  • mzpsilence
  • 2015年06月15日 10:58
  • 719

[HTML5&CSS3]拖放功能的实现

拖放(Drag 和 drop)是 HTML5 标准的组成部分。拖放拖放是一种常见的特性,即抓取对象以后拖到另一个位置。在 HTML5 中,拖放是标准的一部分,任何元素都能够拖放。浏览器支持Inte...
  • abv123456789
  • abv123456789
  • 2014年11月21日 09:41
  • 1555

Qt实现拖放操作

拖放包括两个基本动作:拖动、放下。 因此一般需要实现两个事件: 示例问题:通过拖放文件实现Qt应用直接读取文本文件 解决:重写两个基本事件实现拖放识别文件并实现文件读取和显示。 ...
  • hechao3225
  • hechao3225
  • 2016年11月04日 17:01
  • 560

用 QT实现拖放(drag-drop)功能

QT的 qdrag 和 qdrop功能在qt的"Puzzle"示例中有介绍。但是那个介绍是以QListWidget为基础的。本文以QWidget为基础,介绍如何实现拖放。拖放可以用QString作为信...
  • liji_digital
  • liji_digital
  • 2016年10月22日 12:01
  • 952

Qt实现拖拽数据的功能

今天在进行Qt编程的时候,学习了一下如何自定义ui的样式,有时候,你在修改别人程序的时候,可能会发现别人程序中的某个控件ui设计是直接拖上去的。这种情况下如果你想增加该控件的事件处理,比如拖拽功能。不...
  • qq_19528953
  • qq_19528953
  • 2016年09月18日 19:57
  • 1315

原生javascript实现拖放功能

用原生js实现了一个简单的拖拽功能。 e = e || window.event; 是为了兼容IE,因为IE的event是用window.event; 另外在IE早期版本可能就需要换用attach...
  • Dijason
  • Dijason
  • 2013年04月05日 23:06
  • 1509

HTML5实现简单的拖放功能

HTML5实现简单的拖放功能
  • z983002710
  • z983002710
  • 2017年07月29日 15:55
  • 128

C++ Builder中实现拖放功能

在C++ Builder中实现拖放功能关键字:实现拖放功能,DockSite,DragKind,DragModeWindows中的拖放功能大家一定很熟悉了,如文件的移动,拷贝等操作用鼠标轻轻一拖即可,...
  • johnlaoxing
  • johnlaoxing
  • 2017年08月08日 10:14
  • 74
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用VB实现拖放功能
举报原因:
原因补充:

(最多只允许输入30个字)