此主题相关图片如下：无标题.png

如上图。

 Functions.Execute("CopyFile",r("彩单文件名") , Vars("fox") & "彩单确认\\", "文件|*.doc;*.xls;*.pdf") \'要复制后的文件名,路径,选择文件需要显示的后缀

\'Functions.Execute("CopyFile",文件名,Vars("fox"),"文件|*.doc;*.xls;*.pdf")
Dim Fn As String = Args(0)
Dim Lj As String = Args(1)
Dim Hz As String = Args(2)

Dim R1 As DialogResult
Dim Result As DialogResult
Dim STR As String

\'-----------------------------------~~~~~~~~~~~~~~~~~~~~~~~~~~~

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= hz \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    str = dlg.FileName
End If
Dim ifo As new FileInfo(str)
hz = Ifo.Extension

\'-----------------------------------~~~~~~~~~~~~~~~~~~~~~~~~~~~

Result = MessageBox.Show("请确认是否上传文件:" & chr(13) & Fn , "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Dim Nfn As String = Lj & Fn & hz
    If FileSys.FileExists(nfn) Then
        Result = MessageBox.Show(fn & " 此位置已包含相同同名文件:" & chr(13) & "  " & chr(13) & "确认是否要替换文件" , "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If DialogResult.Yes Then FileSys.CopyFile(str,nfn,True)
    Else
        FileSys.CopyFile(str,nfn)
    End If
End If

只是看起来不好看而于，一般的程序操作不是点击后，先关闭自己（隐藏），才会打开 那个打开文件框的吗？

ItemClick事件

vars("e") = e
e.Form.TimerInterval = 500
e.Form.TimerEnabled = True

TimerTick事件

Dim ee = vars("e")
e.Form.TimerEnabled = False

msgbox(1111)