以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自定义函数打包  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82562)
--  作者：yifan3429
--  发布时间：2016/3/20 19:33:00
--  自定义函数打包
Dim ext1 As String
ext1 = e.FileName.SubString(e.FileName.LastIndexof(".") + 1)
If "zip".Contains("," & ext1 & ",") Then
    e.SubFolder = ext1
Else
    Dim Result As DialogResult
    Result = MessageBox.Show("此列只能插入压缩包 zip 格式.请将客户文件压缩打包后,存入本系统.建议使用 360压缩软件使用,需要下载吗 点击 是 进入软体 下载页面!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        Dim Proc As New Process \'定义一个新的Process
        Proc.File = "http://yasuo.360.cn/" \'指定要打开的网页地址
        Proc.Start()
    Else
    End If
    e.Cancel = True
End If



上面的代码如何做成自定义函数  

因为使用地方做  如何简化使用


---------------------------
错误
---------------------------
编译错误:“e”是“Private”，因此它在此上下文中不可访问。



错误代码：ext1 = e.FileName.SubString(e.FileName.LastIndexof(".") + 1)
---------------------------
确定   
---------------------------

[此贴子已经被作者于2016/3/20 19:54:45编辑过]
--  作者：大红袍
--  发布时间：2016/3/20 23:28:00
--  

Dim e = args(0)

 

你调用函数的时候，把事件里面的e参数传递进去

 

Functions.Execute("函数名", e)