以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  判断listbox的值不是空的怎么搞？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186653)

--  作者：jjun2002cn --  发布时间：2023/5/17 17:35:00 --  判断listbox的值不是空的怎么搞？ If e.Form.Controls("ListBox1").items(0) <> Nothing Then     Dim ftp1 As New FtpClient     ftp1.Host = "192.168.0.200"     ftp1.Account = "Admin"     ftp1.Password = "W3WE"    \' ftp1.Port = 47758     Dim str As String     Dim str1 As String     MessageBox.Show(e.Form.Controls("ListBox1").Items(0))     str = e.Form.Controls("ListBox1").Items(0)     If ftp1.Upload(str, "/oldcloud/1.png") = True Then         Messagebox.show("上传完成!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)     ftp1.Close     Else         Messagebox.show("上传失败!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)     ftp1.Close     End If Else     MessageBox.show("请选择文件！") End If 前面用isnot null 也不对<>"" 也不行

--  作者：jjun2002cn --  发布时间：2023/5/17 17:40:00 --   我是用鼠标拖拽图片到listbox 获得图片路径以后ftp到远程文件服务器，但是当没有拖拽 时候listbox 是空的 这个时候执行ftp上传就会报错。所以我想想判断一下e.Form.Controls("ListBox1").items(0) 不是空在执行后续的上传操作！

--  作者：有点蓝 --  发布时间：2023/5/18 8:26:00 --   If e.Form.Controls("ListBox1").items.count > 0 Then

--  作者：jjun2002cn --  发布时间：2023/5/18 8:45:00 --   搞好了 ，谢谢！