VB控制項間的拖放

新建工程,放置控制項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 ...