主题：[求助] 窗口菜单如何先隐藏，再执行其它代码

如题

没有办法

此主题相关图片如下：无标题.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)

可以用e.StripItem.ParentItem.BaseControl.HideDropDown() '隐藏父菜单项目，解决这个问题