熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

用VB實現拖放功能

2013-11-13 10:29:31  來源: .NET編程 

  拖放是用鼠標拖動一個文件到其它對象的活動在圖形操作過程中拖放是最常用的功能之一下面我們來看看怎樣用VB實現拖放功能

  首先介紹與拖放有關的控件

  屬性DragMode決定拖動操作的初始化是人工方式還是自動方式

  DragIcon確定在拖動過程中顯示的指針的圖標形狀

  方法Drag開始結束或取消拖動控件

  事件MouseDown事件發生於用戶按下鼠標按鈕時

  DragOver事件發生於拖動操作完成時

  DragDrop事件發生於拖動操作正在進行時

  然後編寫一個小程序這個程序能實現在窗口中或窗口間拖動圖標的功能

  立窗口Form和Form在窗口中都加入Image其中Form下的Imagepicture為你想顯示的圖標

  Form下程序代碼為

  Option Explicit

  Dim dragx As Single

  Dim dragy As Single

  Const BEGIN_DRAG=

  Private Sub Form_DragDrop(Source As Control X As Single Y As Single)

  ImagePicture=Source   ;Sourse為被拖動的控件

  FormImagePicture=LoadPicture(″″)

  ImageMove(Xdragx)(Ydragy) XY為鼠標所在目標窗體或控件的當前坐標

  End Sub

  Private Sub Form_Load()

  Load Form

  FormShow

  End Sub

  Private Sub Image_MouseDown(Button As IntegerShift As Integer

  X As SingleY As Single)

  dragx=X

  dragy=Y

  ImageDrag BEGIN_DRAG   ;開始拖動操作

  ImageDragIcon = LoadPicture(″按下鼠標時想顯示的光標″)

  End Sub

  Form下程序代碼為

  Option Explicit

  Dim dragx As Single

  Dim dragy As Single

  Const BEGIN_DRAG=

  Private Sub Form_DragDrop(Source As ControlX As SingleY As Single)

  ImagePicture=Source

  FormImagePicture=LoadPicture(″″)

  ImageMove(Xdragx)(Ydragy)

  End Sub

  Private Sub Image_MouseDown(Button As Integer Shift As Integer源碼天空

  X As SingleY As Single)

  dragx=X

  dragy=Y

  ImageDrag BEGIN_DRAG

  ImageDragIcon=LoadPicture(″按下鼠標時想顯示的光標″)

  End Sub

  本程序在VBWindow環境下通過


From:http://tw.wingwit.com/Article/program/net/201311/13801.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.