拖拽功能加shell的问题.

Question

我使用拖拽功能,可以在text中看到完整的目录及文件名.
但在使用shell的时候,就是说文件未找到.
高手指点一下啊，该怎么用啊，
另外如何能在拖拽的时候同时获得程序的图标.
我想作一个窗口,然后把常用的程序拖进去，保存，以后直接点击就可以运行的东西.
如果哪有现成的代码,告诉我 偶学习~~~

Answer 1

1
___________________________________
Private Sub Command1_Click()
Dim a
a = Shell(Text1.Text1,1)'~~~~~
End SubPrivate Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = Data.Files(1)
End Sub
________________________
2
____________________________
Private Sub Command1_Click()
Dim a
a = Shell(Data.Files(1), 1)'~~~~~~
End SubPrivate Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = Data.Files(1)
End Sub
_____________________________
用第一种方法,可以执行exe文件,但是用第二中方法时就会提示"要求对象".

Answer 2

2
____________________________
Private Sub Command1_Click()
Dim a
a = Shell(Data.Files(1), 1)'~~~~~~
End SubPrivate Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = Data.Files(1)
End Sub你将地址　附给了　text1 你怎么不直接调用text1里的字符　　Command1_Click()里哪有　DATA啊？？

Answer 3

现在用是可以用了.
不过离好用的程度还差好远.
首先是sstab中放几个toolbar,toolbar中的按钮接受拖拽的时候
能获得程序的图标并显示,按钮接受用户输入的名字,按钮还应该可以设置大小,个数.
sstab分组也可以增减,更改名字.
基本就是 TurboLaunch 这个的简单功能
下载地址是 http://gz.onlinedown.net/soft/5527.htm
不过,小弟功底实在是浅薄,搞不定,那个TurboLaunch又没找到注册码.
如果有高手有兴趣,作一个简单功能的 发给小弟吧[email protected]