您的位置:程序门 -> vb ->



vb如何实现用鼠标将桌面程序托到列表中


[收藏此页] [打印本页]选择字色:背景色:字体:[][][]


vb如何实现用鼠标将桌面程序托到列表中
发表于:2007-09-07 13:29:15 楼主
vb如何实现用鼠标将桌面程序托到列表中?
发表于:2007-09-07 13:41:331楼 得分:0
说明白一下:

  就是将桌面上的托动的程序图标对应的程序路径加到textbox中.
发表于: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
发表于:2007-09-08 10:00:463楼 得分:0
收藏一下~~~谢谢
发表于:2007-09-09 00:45:184楼 得分:0
同上.........
发表于:2007-09-19 21:48:285楼 得分:0
收藏


快速检索

最新资讯
热门点击