vb.net设计任务管理 vbs任务管理器关闭

vb.net编写任务管理器出现的一些小问题

Imports System.Diagnostics

Public Class Form1

Public Sub onprocessexited(ByVal sender As System.Object, ByVal e As System.EventArgs)

listallprocesses()

End Sub

Private Sub listallprocesses()

Dim processname As String

Dim processid As Int16

Dim threadsnumber As Int16

Dim cputime As TimeSpan

ListView1.Items.Clear()

Dim processes As System.Diagnostics.Process()

processes = System.Diagnostics.Process.GetProcesses()

Dim i As Int16

For i = 0 To processes.Length - 2

processname = processes(i).ProcessName

processid = processes(i).Id

threadsnumber = processes(i).Threads.Count

cputime = processes(i).TotalProcessorTime

Dim subitems(3) As String

subitems(0) = CStr(processname)

subitems(1) = CStr(processid)

subitems(2) = CStr(threadsnumber)

subitems(3) = String.Format("{0:00}:{1:00}:{2:00}", cputime.Hours, cputime.Minutes, cputime.Seconds)

ListView1.Items.Insert(i, New ListViewItem(subitems))

Next

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

listallprocesses()

End Sub

End Class

调试过了在粘回去看看

相关问答

Q1: VS2019的VB.net怎么制作成Windows10风格的任务管理器？

.Net Core是微软发布的下一代开发平台，是一个用来构建现代化的、可伸缩的和高性能的，可以跨平台的应用软件通用开发框架。和.Net

Framework相比具有良好的跨平台特性和更优异的性能，除了可以在Windows平台上运行外还支持Linux和MacOS平台。

在.Net Core的早期版本尚不支持开发桌面应用程序。如果我们想用C#开发桌面应用程序的话只能使用.Net

Framework或者MONO平台。不过自9月23日微软正式发布.Net Core 3.0起，我们也可以基于.Net Core来开发桌面应用程序了。

VS2019 16.3

微软的桌面应用程序开发技术主要有WinForms和WPF两种。这两种技术现在.Net Core

3.0都支持，不过它们只能在Windows平台上运行。如果想用C#开发跨平台的桌面应用只能选择MONO了。

开发基于.Net Core 3.0平台的桌面应用程序必须要安装Visual Studio 2019 16.3或更高的版本，可以直接使用Visual

Studio Installer在线升级。目前官网上可以升级的最新版本是16.3.1。

图一 VS2019 16.3.1

不过目前的VS2019中还没有集成Windows

Forms图形设计器，需要的话得从单独下载安装。

创建WinForms程序

双击打开Visual Studio 2019，选择“创建新项目”，参见下图所示。

图二 创建新项目

然后在项目模板中选择“Windows Forms App(.NET Core)”，注意这里使用的框架是.Net

Core了，而不是之前我们一直使用的.Net Framework。当然在VS2019中我们依然可以使用.Net Framework来开发桌面应用程序。

Q2: vb如何控制任务管理器?

最大化之类的要用SetWindowLong函数，具体我不太了解，不过你往这个方向查找。

结束进程我刚回答一个

添加一个模块，在开头输入

Option Explicit

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Private Const PROC_TERM As Byte = 1

'建立函数

Public Function TerminateProc(ByVal Pid As Long)As Boolean'自建函数，返回值为TRUE：结束成功；FALSE：结束失败。

On Error Resume Next

TerminateProc=IIf(TerminateProcess(OpenProcess(PROC_TERM, 0, Pid), 0)=0,False,True)

End Function

模块Okay

引用就行了

Call TerminateProc(XXX)'XXX为PID，进程编号

vb.net设计任务管理的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs任务管理器关闭、vb.net设计任务管理的信息别忘了在本站进行查找喔。