
你好,首先AllowDrop 属性为true,然后要在DragEnter事件里这么写
private void Form1_DragEnter(object sender, DragEventArgs e)
{
if (eDataGetDataPresent(DataFormatsFileDrop)) eEffect = DragDropEffectsLink;
else eEffect = DragDropEffectsNone;
}
private void Form1_DragDrop(object sender, DragEventArgs e)
{
string[] filePath = (string[])eDataGetData(DataFormatsFileDrop);
foreach (string file in filePath )
{
//file就是单个文件路径
}
}
今天在论坛看到一个贴子,问如何知道在拖放<我的电脑>
>
你的问题似乎与拖拽完全不相关,比较耗时的 *** 作,通常应该给出一个进度指示条表示当前的进度(注:不清楚你这个daochuexcel是用什么生成excel,如果是普通的调用office组件来生成的,建议换用myxls或者npoi来生成,要比调office快很多)
Imports SystemTextRegularExpressions '正则表达式
Public Class 视频播放器
Private 文件路径 As String
Private Sub 视频播放器_Load(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles MyBaseLoad
MeAllowDrop = True '支持文件拖拽
MeWidth = 920
MeHeight = 630
End Sub
Private Sub 视频播放器_DragEnter(ByVal sender As Object, ByVal e As SystemWindowsFormsDragEventArgs) Handles MeDragEnter
Try
If eDataGetDataPresent(DataFormatsFileDrop) = True Then
eEffect = DragDropEffectsCopy
Else
eEffect = DragDropEffectsNone
End If
Catch ex As Exception
MessageBoxShow(exMessage)
End Try
End Sub
Private Sub 视频播放器_DragDrop(ByVal sender As Object, ByVal e As SystemWindowsFormsDragEventArgs) Handles MeDragEnter
Try
Dim filepaht As String() = eDataGetData(DataFormatsFileDrop)
For Each File As String In filepaht
文件路径 = File
'播放音乐文件
Dim 文件名 As String = 文件路径Substring(文件路径LastIndexOf("\") + 1)
If InStr(1, 文件路径, "flv", 1) Or InStr(1, 文件路径, "mp3", 1) Then
WebBrowser1Url = New Uri("E:\usr\>
这个很简单,一句代码就搞定:
procedure TForm1FormCreate(Sender: TObject);
begin
showmessage(paramstr(1));//只须这句就行了
end;
其实,当你把一个文件拖到这个exe上时,它就成了这个exe的参数。这有点像dos命令的参数,比如在命令提示符里,我们经常用 “help /”来获取帮助。这个“/”就是help程序的一个参数。delphi对程序的启动,提供了两个可用的东西,一个是paramcount,可以得到参数的数量。另一个就是paramstr(X)),这里的X,就是参数的位置。如果X为0,则表示程序本身的名字。1就是第一个参数了,以此类推。
以上就是关于C# allowdrop 的dragdrop事件全部的内容,包括:C# allowdrop 的dragdrop事件、如何在DragDrop特殊文件夹时得到相关信息、C#关于拖拽生成文件的问题等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)