以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样获得PictureViewer文件名  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103268)
--  作者：天蝉一下
--  发布时间：2017/7/4 14:39:00
--  怎样获得PictureViewer文件名
怎样在点击PictureViewer控件的增加按钮，获得选取文件的文件名及后缀
--  作者：有点甜
--  发布时间：2017/7/4 14:49:00
--  

编写BeforeAddFile事件，自己去控制弹出框

 

http://www.foxtable.com/webhelp/scr/2638.htm

 

选择文件后，获取文件名、后缀，参考代码

 

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim info As new FileInfo(dlg.FileName)
    msgbox(info.Name)
    msgbox(info.Extension)
    msgbox(info.Name.replace(info.Extension, ""))
End If
--  作者：天蝉一下
--  发布时间：2017/7/4 17:27:00
--  

Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")

Dim Files As List(of String) = piv.FtpClient.SelectFile()
For Each File As String In Files
    piv.AddFile(File)
Next

这段代码加入到BeforeAddFile 怎么来获取文件名、后缀名

还有，运行PictureViewer的增加按钮会弹出两次窗口，怎么才能弹出一个，关闭一个
--  作者：有点甜
--  发布时间：2017/7/4 17:53:00
--  

看看吧，结合2楼代码。

 

http://www.foxtable.com/webhelp/scr/2707.htm

 

 
--  作者：天蝉一下
--  发布时间：2017/7/4 17:58:00
--  
还有，运行PictureViewer的增加按钮会弹出两次窗口，怎么才能弹出一个，关闭一个
--  作者：有点甜
--  发布时间：2017/7/4 18:05:00
--  
以下是引用天蝉一下在2017/7/4 17:58:00的发言：
还有，运行PictureViewer的增加按钮会弹出两次窗口，怎么才能弹出一个，关闭一个

 

加上代码 e.Cancel = True
--  作者：天蝉一下
--  发布时间：2017/7/4 22:23:00
--  
明白了
--  作者：天蝉一下
--  发布时间：2017/7/5 12:45:00
--  
在表BeforeAddFile加入如下代码：
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
Dim ywdwbm As String=e.Form.Controls("fkdwbm").value
ftp2.Host="192.168.254.201"
    ftp2.Port="8888"
    ftp2.Account = "foxtable"
    ftp2.Password = "************"
ftp2.RootDir="/workunit/" & ywdwbm
    piv.FTPclient=ftp2
    If ftp2.Connected = True \'如果FTP没有连接
         Else
        If ftp2.Connect Then
                 Else
            MessageBox.show("网络不通,请稍后再试!","")
        End If
    End If
        If ftp2.DirExists(ftp2.RootDir) Then
    Else
        ftp2.MakeDir(ftp2.RootDir)
    End If
    If e.DataCol.name = "附件" Then
        If e.DataRow.IsNull("作业单位编码") = False
            If ftp2.Connected Then
                e.path = "/workunit/" & Forms("新增业务单位信息").Controls("fkdwbm").value
                     End If
        End If
    End If
    Dim dlg As new OpenFileDialog
    If dlg.ShowDialog = DialogResult.OK Then
        e.Cancel = True
        Dim info As new FileInfo(dlg.FileName)
        msgbox(info.Name)
        msgbox(info.Extension)
        msgbox(info.Name.replace(info.Extension, ""))
        msgbox(_pathzyba)
        Forms("新增业务单位信息").Controls("fjdz").value=e.path & "/" & Info.name
    End If
    Dim Files As List(of String) = piv.FtpClient.SelectFile()
    For Each File2 As String In Files
        piv.AddFile(File2)
    Next
ftp2.Close
在点击PictureViewer增加按钮是，弹出从本地选择图片文件的对话框，选中后，又弹出ftp对话框，选择从本地上传文件。弹出两次，怎么才能只弹出ftp的对话框。是不是代码写的有问题，麻烦您老师看一下，怎么处理。
--  作者：有点甜
--  发布时间：2017/7/5 14:23:00
--  

删除代码

 

Dim Files As List(of String) = piv.FtpClient.SelectFile()
For Each File2 As String In Files
    piv.AddFile(File2)
Next

 

修改代码

 

If dlg.ShowDialog = DialogResult.OK Then
    e.Cancel = True
    Dim info As new FileInfo(dlg.FileName)
    msgbox(info.Name)
    msgbox(info.Extension)
    msgbox(info.Name.replace(info.Extension, ""))
    piv.AddFile(info.name)
End If

 
--  作者：天蝉一下
--  发布时间：2017/7/5 14:24:00
--  
谢谢