• 注册
  • 关于作者
    企业认证:趣记站长
    关注 6 粉丝 4 喜欢 9 内容 992
    江西省·南昌市
    聊天 送礼
    • 查看作者
    • VB 5.0中完成鼠标拖放

          Windows 3.x 、 Windows 95 和 Widnows 98中,拖放是最常常运用的支配,VB5.0在递次设想中能非常容易地完成这一支配。

          与拖放有关的属性

          1、DragMode 属性

          该属性用来设置自动或手动拖放情势,缺省值为0(手动体式款式)。为了让控件自动执行拖放支配,必须把它的属性设为1,该属性即可以或许在属性窗口中设置,也可以或许在递次中设置,如:Picture1.DragMode=1一个对象的DragMode属性值为1时,该控件不再吸取Click事件和MouseDown事件。

          2、DragIcon 属性

          在拖动中,并非对象本身在移动,而是代表对象的图标。即一旦拖动某个控件,该控件就变成一个图标,放下后再恢复正本控件。DragIcon属性含有一个图标或图片的文件名,如:Picture1.DragIcon=c:\vb5\icons\computer\disk06.ico 当拖动Picture1时,Picture1即变成由disk06.ico 所代表的图标。

          与拖放有关的事件

          与拖放有关的事件是DragDrop 和DragOver, 把控件拖动,如松开鼠标按钮,则发作DragDrop事件,事件进程名堂以下:

      Sub 对象名_DragOver(Source As Control, X As Single , Y As single, State As Integer)

      ......

      End Sub

          该对象含有三个参数,其中Source 为一个对象变量,类型为Control .该参数含有被托动对象的属性,

      用VB6实现文件分割和还原
      用VB创建FTP组件(get),Visual Basic构建线程安全的Singleton,如何实现VB与EXCEL的无缝连接,vb中利用xmlhttp来下载远程文件,vb中使用正则表达式,ASP.NET中Cookie编程的基础知识,MASM-打字练习程序,用VB制作注册软件的方法,VB程序中数据库的图片处理的解决方法,用VB编写键盘拦截程序,用VB实现客户——服务器(TCP/IP)编程实例,利用Visual Basic 实现无线通讯,VB 中资源文件的多种使用技巧,VB中资源文件的具体使用方法,vb接收GPS数据源码全,VB6中使用Winsock穿越各种代理的实现(TCP协议),VB实现文字“闪入”显示的特殊效果,VB对注册表操作程序开机时运行,VB将OCX植入执行文件内,利用VB函数Dir()实现递归搜索目录
      Visual Basic

      参数X、Y为松开鼠标按钮时候标的职位。

          DragOver 事件用于图标移动,名堂以下

      Sub 对象名_DragOver(Source As Control, X As Single, Y As Single, State As Integer)

      ……

      End Sub

          该事件含有四个参数,Source 寄义同前,X、Y是鼠标托动时候标的职位坐标,State有三个值可取,当为0时,鼠标光标正进入目标对象区域,当为1时,鼠标光标正退出目标对象区域,当为2 时,鼠标光标正位于目标对象的区域之内。

          与拖放有关的方法

          与拖放有关的方法是Move 和Drag。 Move 方法大家已很熟悉了,下面引见Drag方法,Drag方法名堂为:

          控件.Drag 整数,整数局限为0,1,2 寄义分别为:

          0 取消托动支配,1 最早拖动支配,2 终了支配手动举例在窗体上直立一个图片框,装入一个图标,首先设置图片框的DragIcon 属性。

      Sub Form_Load( )

      Picture1.DragIcon=Picture1.Picture1.Picture

      End Sub

          接着用MouseDown事件进程掀开拖拉开关。

      Sub Picture1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)

      Picture1.Drag 1

      End Sub

          下面进程是当松开鼠标按钮时,关闭拖拉开关,停止拖拉并发作DragDrop事件。

      Sub Picture1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)

      Picture1.Drag 2

      End Sub

          最后是DragDrop事件

      Sub Form_DragDrop (Source As Integer, X As Single , Y As Single)

      Source.Move (X- Source.Width/2),(Y- Source.Height/2)

      End Sub

          该递次在VB5.0中文版下运转经过历程

      (乌鲁木齐新疆工学院 屈强 830008) 

      用VB6实现文件分割和还原
      用VB创建FTP组件(get),Visual Basic构建线程安全的Singleton,如何实现VB与EXCEL的无缝连接,vb中利用xmlhttp来下载远程文件,vb中使用正则表达式,ASP.NET中Cookie编程的基础知识,MASM-打字练习程序,用VB制作注册软件的方法,VB程序中数据库的图片处理的解决方法,用VB编写键盘拦截程序,用VB实现客户——服务器(TCP/IP)编程实例,利用Visual Basic 实现无线通讯,VB 中资源文件的多种使用技巧,VB中资源文件的具体使用方法,vb接收GPS数据源码全,VB6中使用Winsock穿越各种代理的实现(TCP协议),VB实现文字“闪入”显示的特殊效果,VB对注册表操作程序开机时运行,VB将OCX植入执行文件内,利用VB函数Dir()实现递归搜索目录
      Visual Basic

    • 0
    • 0
    • 0
    • 77
    • 单栏布局 侧栏位置: