Foxtable(狐表)用户栏目专家坐堂 → 自定义函数打包


  共有1676人关注过本帖树形打印复制链接

主题:自定义函数打包

帅哥哟,离线,有人找我吗?
yifan3429
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2482 积分:22932 威望:0 精华:0 注册:2011/3/29 17:14:00
自定义函数打包  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/20 23:28:00 [只看该作者]

Dim e = args(0)

 

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

 

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


 回到顶部