| 发表于:2007-09-07 15:30:572楼 得分:0 |
option explicit private sub form_load() text1.oledropmode = vboledropmanual end sub private sub text1_oledragdrop(data as dataobject, effect as long, button as integer, shift as integer, x as single, y as single) if data.getformat(vbcffiles) then dim i as long for i = 1 to data.files.count debug.print , data.files(i) '如果是 .lnk 文件,参考 http://topic.csdn.net/t/20001128/22/43463.html# next end if end sub | | |
|