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编辑过]
加好友 
发短信
Post By：2016/3/20 19:33:00 [只看该作者]
