VB控制項間的拖放

2022-01-28 20:59:11 字數 2538 閱讀 4005

新建工程,放置控制項picture1,text1,text2,複製下面的**執行

text1和text2可以互相拖放,也可以將picture1拖放給text1,text2.

private

subform_load()

picture1.oledragmode = 1

text1.oledropmode = 1

text1.oledragmode = 1

text2.oledropmode = 1

text2.oledragmode = 1

end sub

private

sub picture1_olestartdrag(data as dataobject, allowedeffects as

long

) allowedeffects = 1

data.clear

data.setdata

"來自picture1

", 1

'設定拖放的內容

end sub

private

sub text1_oledragdrop(data as dataobject, effect as

long, button as

integer, shift as

integer, x as

single, y as

single

)

dim s as

string

s = data.getdata(1

) text1.sellength = 0

text1.seltext = s '

在游標處插入

end sub

private

sub text1_olestartdrag(data as dataobject, allowedeffects as

long

) allowedeffects = 1

data.clear

data.setdata text1.seltext, 1'

設定拖放的內容

end sub

private

sub text2_oledragdrop(data as dataobject, effect as

long, button as

integer, shift as

integer, x as

single, y as

single

)

dim s as

string

s = data.getdata(1

) text2.sellength = 0

text2.seltext = s '

在游標處插入

end sub

private

sub text2_olestartdrag(data as dataobject, allowedeffects as

long

) allowedeffects = 1

data.clear

data.setdata text2.seltext, 1'

設定拖放的內容

end sub

語法

object.setdatadata],[format]

setdata

部分

描述

object

必需的。物件表示式,其值是「應用於」列表中的乙個物件。

data

物件的資料。

format

可選的常數或值,規定所傳送資料的格式,如「設定值」中所述。

設定值

設定如下:

常數

描述

vbcftext

1文字(.txt檔案)

vbcfbitmap

2點陣圖(.bmp檔案)

vbcfmetafile

3元檔案(.wmf檔案)

vbcfemetafile

14增強元檔案(.emf 檔案)

vbcfdib

8裝置無關位圖 (dib)

vbcfpalette

9調色盤

vbcffiles

15檔案列表

vbcfrtf

-16639

豐富文字格式(.rtf檔案)

VB的檔案拖放實現

vb中,很多控制項都可以實現拖放功能。拖放功能有內部控制項間的拖放和由程式外部對程式本身的拖放。檔案拖放應該使用oledragdrop事件,而不是dragdrop事件。oledragdrop事件的語法如下 private subobject oledragdrop data as dataobjec...

c 控制項拖放

1.實現方案一 可以通過mousedown mouseup mouseover事件實現 如果涉及到click事件的話,且mousedown事件中有判斷是左鍵動作的話,可能會與mousedown事件衝突,即click事件可能也會觸發mousedown事件。因此可改用mouseover事件,在mouse...

使用VB實現OLE拖放功能

在窗體中新增乙個image控制項,在它的imgdrop oledragdrop過程中新增如下 private sub imgdrop oledragdrop data as dataobject,effect as long,button as integer,shift as integer,x ...