Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click For Each pro As Process In Process.GetProcesses Dim lvPro As New ListViewItem(pro.ProcessName) lvPro.SubItems.Add(pro.Id) ListView1.Items.Add(lvPro) Next End Sub
点击listview中某个进程项:
Private Sub ListView1_SelectedindexChanged(sender As Object,e As EventArgs) Handles ListView1.SelectedindexChanged If ListView1.SelectedItems.Count <> 1 Then Exit Sub End If Dim lvpro As New ListViewItem() lvpro = ListView1.SelectedItems(0) Dim proid As Integer = Integer.Parse(lvpro.SubItems(1).Text) Dim pro As Process = Process.GetProcessById(proid) Dim proinfo As String = "" proinfo &= "进程的名称:" & pro.ProcessName & ControlChars.CrLf proinfo &= "物理内存量:" & pro.WorkingSet64 & ControlChars.CrLf proinfo &= "最大物理内存:" & pro.PeakWorkingSet64 & ControlChars.CrLf proinfo &= "虚拟内存量:" & pro.VirtualMemorySize64 & ControlChars.CrLf proinfo &= "最大虚拟内存:" & pro.PeakVirtualMemorySize64 & ControlChars.CrLf Try proinfo &= "进程启动的时间:" & pro.StartTime.ToString("yyyy-MM-dd HH:mm:ss") & ControlChars.CrLf Catch ex As Exception proinfo &= "进程启动的时间:-" & ControlChars.CrLf End Try Try proinfo &= "总的处理器时间:" & pro.TotalProcessorTime.ToString & ControlChars.CrLf Catch ex As Exception proinfo &= "总的处理器时间:-" & ControlChars.CrLf End Try Try proinfo &= "主窗口标题:" & pro.MainWindowTitle & ControlChars.CrLf Catch ex As Exception proinfo &= "主窗口标题:-" & ControlChars.CrLf End Try TextBox1.Text = proinfo End Sub
为了防止出错,在代码中加入了try...catch语句。
原文地址:https://www.jb51.cc/vb/256071.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。