以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  有办法拖照片窗口框里实现ftp上传吗?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92774)

--  作者:chen3728060
--  发布时间:2016/11/12 15:57:00
--  有办法拖照片窗口框里实现ftp上传吗?

可能纯用ft的代码做不到,如果加上外部的VB.NET辅助代码,有办法实现把照片拖进去框内,然后上传到ftp指定目录吗?就像平时QQ发照片那样,直接拖照片过去。因为现在我穿照片,都是一步步找照片的路径,然后确定上传,如果可以直接拖动进去,那就更好了

 


图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2016/11/12 16:06:00
--  
参考:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=76898
--  作者:chen3728060
--  发布时间:2016/11/14 11:04:00
--  回复:(有点蓝)参考:http://www.foxtable.com/bbs/...

这个案例是实现了拖放文档,但是我不太懂VB.NET,照搬过来,路径是有了,但是不知道怎么用?能帮忙改一下message.show()列表里的每一吗行吗?那我就知道怎么去用了


--  作者:chen3728060
--  发布时间:2016/11/14 11:23:00
--  

请问是这样用吗?

全部代码:

Public Sub ListBox1_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs)
If e.Data.GetDataPresent( System.Windows.Forms.DataFormats.FileDrop, False) = True Then
    e.Effect =  System.Windows.Forms.DragDropEffects.All
End If
End Sub

 

Public Sub ListBox1_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs)
Dim files = e.Data.GetData( System.Windows.Forms.DataFormats.FileDrop)
For Each file As String In files
    PublicString= file ’我这里自己弄一个公共的string变量,叫publicstring,每次这个过程获取了图片以后,就传递给他,那我就可以在那个窗体调用了
    sender.Items.Add(file)
Next
End Sub

 

 

但是有个问题,如果我拖动多个图片的时候,那最后也只能输出最后赋值的结果。我想问,用案例里那个方法,获取的东西,如果在那个窗口获得,然后直接调用

 


--  作者:chen3728060
--  发布时间:2016/11/14 11:39:00
--  

我目前还能想到就是加一个按钮,来获取这个list

 

Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
For i As Integer = 0 To lst.Items.Count - 1
    MessageBox.show(lst.Items(i))
Next

 

但是这样有点麻烦,因为我想直接拖照片进去就上传。现在是拖了过去,还要再点击一下上传


--  作者:有点蓝
--  发布时间:2016/11/14 11:45:00
--  

Public Sub ListBox1_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs)
Dim files = e.Data.GetData( System.Windows.Forms.DataFormats.FileDrop)
For Each file As String In files
    im ftp1 As New FtpClient
ftp1
.Host="196.128.143.28"
ftp1
.Account = "foxuser"
ftp1
.Password = "138238110"
ftp1.Upload(file,"\\update\\" & FileSys.GetName(file)) = True Then
Next
End Sub

没有办法直接在窗口里用