<wbr id="bl79t"><pre id="bl79t"></pre></wbr>
<video id="bl79t"></video>

    <nav id="bl79t"></nav>

    <form id="bl79t"><legend id="bl79t"></legend></form>

    1. <wbr id="bl79t"></wbr>
      <sub id="bl79t"><table id="bl79t"></table></sub>

      歡迎光臨
      我們一直在努力

      vb5.0中實現鼠標拖放_visualbasic教程

      建站超值云服務器,限時71元/月

      Windows3.x、Windows95和Widnows98中,拖放是最常用的操作,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(SourceAsControl,XAsSingle,YAssingle,StateAsInteger)
      ……
      EndSub

      該對象含有三個參數,其中Source為一個對象變量,類型為Control.該參數含有被托動對象的屬性,參數X、Y為松開鼠標按鈕時光標的位置。
      DragOver事件用于圖標移動,格式如下
      Sub對象名_DragOver(SourceAsControl,XAsSingle,YAsSingle,StateAsInteger)
      ……
      EndSub

      該事件含有四個參數,Source含義同前,X、Y是鼠標托動時光標的位置坐標,State有三個值可取,當為0時,鼠標光標正進入目標對象區域,當為1時,鼠標光標正退出目標對象區域,當為2時,鼠標光標正位于目標對象的區域之內。
      與拖放有關的方法
      與拖放有關的方法是Move和Drag。Move方法大家已經很熟悉了,下面介紹Drag方法,Drag方法格式為:
      控件.Drag整數,整數范圍為0,1,2含義分別為:
      0取消托動操作,1開始拖動操作,2結束操作手動舉例在窗體上建立一個圖片框,裝入一個圖標,首先設置圖片框的DragIcon屬性。

      SubForm_Load()
      Picture1.DragIcon=Picture1.Picture1.Picture
      EndSub

      接著用MouseDown事件過程打開拖拉開關。
      SubPicture1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
      Picture1.Drag1
      EndSub

      下面過程是當松開鼠標按鈕時,關閉拖拉開關,停止拖拉并產生DragDrop事件。
      SubPicture1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
      Picture1.Drag2
      EndSub

      最后是DragDrop事件
      SubForm_DragDrop(SourceAsInteger,XAsSingle,YAsSingle)
      Source.Move(X-Source.Width/2),(Y-Source.Height/2)
      EndSub
      該程序在VB5.0中文版下運行通過。

      ->

      贊(0)
      版權申明:本站文章部分自網絡,如有侵權,請聯系:west999com@outlook.com 特別注意:本站所有轉載文章言論不代表本站觀點! 本站所提供的圖片等素材,版權歸原作者所有,如需使用,請與原作者聯系。未經允許不得轉載:IDC資訊中心 » vb5.0中實現鼠標拖放_visualbasic教程
      分享到: 更多 (0)
      韩国三级在线看免费|亚洲撸超碰在线视频|ADC视频在线|成人av免费福利在线

      <wbr id="bl79t"><pre id="bl79t"></pre></wbr>
      <video id="bl79t"></video>

      <nav id="bl79t"></nav>

      <form id="bl79t"><legend id="bl79t"></legend></form>

      1. <wbr id="bl79t"></wbr>
        <sub id="bl79t"><table id="bl79t"></table></sub>