红袍老师， 我把这个代码写到listview 不显示 应该怎么写
Dim lsw As WinForm.ListView = e.Form.Controls("ListView1")
lsw.Rows.Clear()
lsw.Images.Clear()
Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False '关闭Shell的使用
p.StartInfo.RedirectStandardInput = True '重定向标准输入
p.StartInfo.RedirectStandardOutput = True '重定向标准输出
p.StartInfo.RedirectStandardError = True '重定向错误输出
p.StartInfo.CreateNoWindow = True '设置不显示窗口
p.Start()
p.StandardInput.WriteLine("net view")
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()
Dim ary() As String = strrst.replace(chr(10), "").Split(chr(13))
For Each s As String In ary
If s.StartsWith("\\") Then
lsw.Images.AddImage(s,"电脑.Ico","电脑.Ico")
End If
Next
加好友 
发短信
Post By：2015/7/24 13:44:00 [显示全部帖子]
此主题相关图片如下：显示电脑列表.png
