| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 没有参数传递的自定义函数应该如何写 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=74730) |
| -- 作者：unverse -- 发布时间：2015/9/17 17:03:00 -- 没有参数传递的自定义函数应该如何写 项目中有多个地方需要判断FTP服务器是否通，想写成函数，但没有参数传递，应该怎么写： Dim ftp1 As New FtpClient Dim a As String = DataTables("config").Find("item=\'R_ip\'")("value") ‘记录在表中 Dim b As String =DataTables("config").Find("item=\'R_user\'")("value") Dim c As String = DataTables("config").Find("item=\'R_pass\'")("value") If a="" Or b="" Or c="" MessageBox.Show("未参数远程连接参数,请配置后再执行此操作!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Forms("系统设置").Open Return "" End If ftp1.Host= DataTables("config").Find("item=\'R_ip\'")("value") ftp1.Account = DataTables("config").Find("item=\'R_user\'")("value") ftp1.Password = DataTables("config").Find("item=\'R_pass\'")("value") Return ftp1.Connect ’ 将状态返回， |
| -- 作者：Hyphen -- 发布时间：2015/9/17 17:19:00 -- 就上面那样就可以啊，有什么问题？ |
| -- 作者：unverse -- 发布时间：2015/9/17 17:46:00 -- 函数执行貌似没有参数不行，，但我又不需要参数。。 |
| -- 作者：Hyphen -- 发布时间：2015/9/17 18:06:00 -- 函数执行不用传参数都可以的啊 |