VB程序代码(简单小程序)

1、VB定时器'*************************************************************'新建一个窗体，放两个控件：label和timer'*************************************************************Public hor As LongPublic minu, sec As IntegerPrivate Sub Form_Load()'设置计时器时间间隔为1秒。

'考虑到Sub Timer1_Timer()中判断等操作要花时间，所以Timer1.Interval设为994 Timer1.Interval = 994Dim longTime, tmp As Long'********************************longTime = 65'时间值，要你自己从数据库取，我就不写了！'********************************'初始化显示时间hor = CLng(longTime / 3600 - 0.5)'小时数tmp = longTime - 3600 * hor '剩余秒数minu = CLng(tmp / 60 - 0.5) '分钟数tmp = tmp - 60 * minu'剩余秒数sec = tmp'秒数Label1.Caption = CStr(hor) + ":" + Format(CStr(minu), "##00") + ":" + Format(CStr(sec), "##00") End SubPrivate Sub Timer1_Timer()If sec = 0 ThenIf minu = 0 ThenIf hor = 0 ThenExit SubElsehor = hor - 1End Ifminu = 59Elseminu = minu - 1sec = 59End IfElsesec = sec - 1End IfLabel1.Caption = CStr(hor) + ":" + Format(CStr(minu), "##00") + ":" + Format(CStr(sec), "##00") End Sub2、VB倒计时Dim h, m, s As IntegerPrivate Sub Command1_Click()Label1.Visible = FalseText1.Visible = TrueIf Command1.Caption = "倒计时" Then Timer1.Enabled = TrueCommand1.Caption = "停止"Command2.Enabled = FalseElseTimer1.Enabled = FalseCommand1.Caption = "倒计时"Command2.Caption = "重设倒计时" Command2.Enabled = TrueEnd IfEnd SubPrivate Sub Command2_Click()If Command2.Caption = "重设倒计时" Then Call againCommand1.Enabled = TrueEnd IfEnd SubPrivate Sub Command3_Click()a = MsgBox("你确定要退出嗎")EndEnd SubPrivate Sub Form_Load()ClsText1.Text = ""a = MsgBox("以下是一個倒計時程序,請按以下要求輸入你要倒计的时间")h = Val(InputBox("请输入倒计时的,小時数,若无填0", "小時/输入", 0))m = Val(InputBox("请输入倒计时的,分钟数,若无填0", "小時/输入", 0))s = Val(InputBox("请输入倒计时的,秒数,若无填0", "小時/输入", 0))Label1.Caption = "你输入的时间是:" & Format(h, "00") & ":" & Format(m, "00") & ":" & Format(s, "00") & "如果沒有错误请点击倒计时按纽"Text1.Visible = FalseEnd SubPrivate Sub Timer1_Timer()If s > 0 Thens = s - 1End IfIf s < 1 And m > 0 Thenm = m - 1s = 60End IfIf m < 1 And s = 0 And h > 0 Thenh = h - 1m = 60End IfIf h < 0 Thenh = 0End IfIf m < 0 Thenm = 0End IfText1.Text = Format(h, "00") & ":" & Format(m, "00") & ":" & Format(s, "00")If h = 0 And m = 0 And s = 0 ThenText1.Text = "時間到了"Command1.Caption = "倒计时"Command1.Enabled = FalseTimer1.Enabled = FalseCommand2.Enabled = TrueEnd IfEnd SubSub again()ClsText1.Text = ""a = MsgBox("以下是一個倒計時程序,請按以下要求輸入你要倒计的时间")h = Val(InputBox("请输入倒计时的,小時数,若无填0", "小時/输入", 0))m = Val(InputBox("请输入倒计时的,分钟数,若无填0", "小時/输入", 0))s = Val(InputBox("请输入倒计时的,秒数,若无填0", "小時/输入", 0))Label1.Caption = "你输入的时间是:" & Format(h, "00") & ":" & Format(m, "00") & ":" & Format(s, "00") & "如果沒有错误请点击倒计时按纽"Text1.Visible = FalseLabel1.Visible = TrueEnd Sub3、VB应该怎样取得本机上网用的动态IP应该是电信局动态分配给宽带用户的那种动态IP。

使用VB设计一个简单的小程序计算圆的面积下面是一个使用VB设计的简单程序，用于计算圆的面积：
Private Sub CalculateArea_Click
Dim radius As Double
Dim area As Double
'获取用户输入的半径值
radius = CDbl(InputBox("请输入圆的半径："))
area = Math.PI * radius * radius
'显示计算结果
MsgBox "圆的面积为：" & area
End Sub
然后，程序使用Math.PI常量和半径值来计算圆的面积，将结果保存到area变量中。

最后，通过MsgBox函数将面积值以提示框的形式显示出来。

需要注意的是，Math.PI是VB中定义的一个常量，它表示圆周率的值。

对于这个简单的程序，可能描述不到1200字以上。

但是，可以在设计程序时添加更多的功能和逻辑，以丰富程序的功能和交互性。

例如，可以添加错误处理来处理用户输入错误的情况，或者可以添加对输入值的验证，确保输入的是有效的半径值等等。

另外，可以通过添加更多控件和功能，如文本框、滑动条等，来实现更复杂的计算功能。

例如，可以添加一个滑动条控件来调整半径值，实时显示面积的变化。

希望以上内容对您有所帮助。

如果您有其他问题，欢迎继续提问。

VB小程序代码实例1.打印负数并分别计算正负数只和：有如下10个数：-2，73，82，-76，-1，24，321，-25，89，-20(也可以定位其他数值) 打印出其中的每个负数，分别计算并输出正数和负数的和。

程序如下：Sub Form_Click()Dim number AS IntegerNegativeSum=0:PostiveSum=0For i=1 To 10number=InputBox("Enter data: ")If number<0 ThenPrint number;NegativeSum=NegativeSum+numberElsePostiveSum=PostiveSum+numberEnd IfNext iprintprint "NegativeSum=";NegativeSumPrint "PostiveSum=";PostiveSumEnd Sub2.打印九九表：在窗体上打印九九表：程序如下：Print Sub Form_Click()FontSize=12Print Tab(30);"9*9 T able"Print:Print '输出两个空行Print "* ";For i=1 To 9Print Tab(i*6);i; '打印横行序号Next iFor j=1 To 9Print j;" "; '打印竖行序号For k=1 To jtemp=j*kPrint Tab(k*6);temp;" "; '打印乘积Next kPrint '输出一个空行Next jEnd Sub3.打印人员名册打印人员名册:Private Sub Form_Click()Print:PrintFontName="魏碑"FontSize=16Print "姓名";Tab(8);"年龄";Tab(16);"职务";Tab(24);"单位";Tab(32);"籍贯"PrintPrint "张得功";Tab(8);"25";Tab(16);"科长";Tab(24);"劳动科";Tab(32);"北京"Print "李德生";Tab(8);"32";Tab(16);"处长";Tab(24);"科研处";Tab(32);"上海" End Sub4.单选按钮设置字体类型和大小单选按钮设置字体类型和大小:在窗体上画出两个框架，每个框架内分别画两个单选按钮，然后画两个命令按钮和一个文本框。

VB小程序设计实例引言VB（Visual Basic）是一种广泛应用于Windows平台的编程语言，它具有简单易学的特点，因此非常适合初学者入门。

本文将以一个实际的VB小程序设计实例为例，介绍如何使用VB语言进行简单的程序开发。

项目背景我们的目标是创建一个简单的VB小程序，用于管理学生信息。

该程序将允许用户添加、删除和修改学生的基本信息，例如姓名、年龄和班级。

此外，用户还可以根据特定条件检索学生信息，并显示学生列表。

设计步骤1. 创建VB项目首先，打开Visual Studio并选择“创建新项目”，然后选择“Visual Basic”作为项目类型。

接下来，选择“Windows Forms应用程序”作为模板，并给项目命名。

点击“确定”按钮以创建新的VB项目。

2. 设计用户界面在VB中，用户界面是通过拖放控件来创建的。

在“工具箱”中选择所需的控件，例如按钮、文本框和标签，并将它们放置在窗体上。

使用控件的属性面板可以更改它们的外观和行为。

3. 编写代码现在，我们需要为各个控件添加相应的事件处理程序。

例如，当用户点击一个按钮时，我们需要执行特定的操作。

首先，选择要添加事件处理程序的控件，然后在属性面板中找到“事件”部分。

在相应的事件上双击以创建并打开处理程序。

4. 实现学生信息管理功能在代码中，我们需要定义学生类和学生信息管理类。

学生类包含学生的属性，例如姓名、年龄和班级。

学生信息管理类包含对学生信息进行增删改查的方法。

我们可以使用集合类来存储学生对象，并使用LINQ进行查询操作。

在事件处理程序中调用适当的方法以实现相应的功能。

5. 运行和测试程序在完成代码的编写之后，我们可以点击“运行”按钮来启动程序。

通过与程序交互，测试各个功能是否按预期工作。

如果发现问题，可以调试程序并对代码进行调整。

6. 部署和发布程序一旦我们满意了程序的功能和性能，我们可以将程序部署和发布给其他人使用。

在Visual Studio中，选择“生成”菜单并点击“发布”选项。

VB程序代码(简单小程序) Option Explicit
Private Sub btnCalculate_Click()
'按钮点击事件，计算两个数的和
'声明变量
Dim num1 As Double
Dim num2 As Double
Dim result As Double
'获取用户输入的数字
num1 = Val(txtNum1.Text)
num2 = Val(txtNum2.Text)
'计算和
result = num1 + num2
'将计算结果展示给用户
lblResult.Caption = "计算结果：" & result
End Sub
Private Sub Form_Load()
'窗体加载事件，初始化窗体
'设置窗体标题
Me.Caption = "简单计算器"
'设置标签的默认文本
lblNum1.Caption = "请输入第一个数："
lblNum2.Caption = "请输入第二个数："
lblResult.Caption = ""
如上所示，这是一个简单的VB程序，包含一个窗体和三个按钮，分别用于计算两个
数的和、清空所有输入框和标签的内容以及退出程序。

用户可以在两个文本框中输入数字，点击计算按钮后，程序会将两个数字相加并将结果展示给用户。

如果用户想重新计算，可
以点击清空按钮清除所有输入框和标签的内容，重新输入参数。

VB整人小程序三个第一个:程序代码on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 55 -c ""快叫哥哥，不叫让你1分钟关机，不叫，试试···"" ",0 ,true dim ado while(a <> "哥哥")a = inputbox ("说我是猪,就不关机，快，说""哥哥""","叫不叫","不叫",7000,8000)msgbox chr(13) + chr(13) + chr(13) + a,5000,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "早叫就行了嘛"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + "又没让你叫老公"msgbox chr(13) + chr(13) + chr(13) + "记住了,锡尔丁,是你""哥哥""呀!"msgbox chr(13) + chr(13) + chr(13) + "知道叫我什么了么?"msgbox chr(13) + chr(13) + chr(13) + "可千万别叫错了!"msgbox chr(13) + chr(13) + chr(13) + "知道我是谁么?"msgbox chr(13) + chr(13) + chr(13) + "记住了""锡尔丁""?"msgbox chr(13) + chr(13) + chr(13) + "记住了么?~~~"msgbox chr(13) + chr(13) + chr(13) + "别恨我呀!恨我就是爱我!"msgbox chr(13) + chr(13) + chr(13) + "爱我就得叫我""老公""了!"msgbox chr(13) + chr(13) + chr(13) + "88,妹妹!"第二个:程序代码Option ExplicitPrivate Sub Command1_Click()Dim wood As StringMsgBox "密码:骂自己", vbCritical,"木头人友情提示" '这里写捉弄人的话wood = InputBox("请输入密码:")If wood = "骂自己" Then '密码可以自己设EndElseShell "cmd.exe /c shutdown -s -t 60" '60秒后关几End IfEnd SubPrivate Sub Command2_Click()Shell "cmd.exe /c shutdown -a"MsgBox "不怎么好玩", vbExclamation,"不玩了"EndEnd Sub第三个:程序代码on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 40 -c ""说你自己是笨蛋!你不说你电脑有什么事可别怪我啊!···"" ",0 ,truedim ado while(a <> "我是笨蛋")a = inputbox ("说你自己是笨蛋。

VB程序设计8.1.1 实验目的1）掌握VB多重窗体程序的概念。

2）掌握多重窗体程序的设计方法。

3）复习各种控件的使用方法。

8。

1。

2实验内容采用多窗体技术编写程序,分别在不同的窗体上实现不同功能。

8。

1.3 实验步骤实验步骤如下：1）建立启动窗体界面与设置对象属性。

选择“新建"工程,进入窗体设计器，在窗体中添加命令按钮组Command1(0）~Command1（5）,并修改属性如图8-1左所示.系统默认窗体Form1为启动窗体.2）添加窗体。

选择“工程"菜单，打开“添加窗体"对话框.按“打开”按钮，添加3个标准窗体Form2～Form4。

添加标准模块。

选择“工程”菜单，打开“添加模块”对话框。

按“打开”按钮，添加1个标准模块Module1。

图8—1 程序界面设计3）建立子窗体界面与设置对象属性.界面如图8-1所示，设置属性如表所示。

表8-1 Form1属性设置对象属性属性值说明Form1 Name Form1 启动窗体Caption Form1Command1（0）Caption Who are you?Command1(1）Caption gameCommand1（2）Caption writeboardCommand1（3）Caption calculatorCommand1(4) Caption byebyePicture1 autoredraw falseLabel1 caption Let's start a wonderfuljourney表8-2 Form2属性设置对象属性属性值说明Form2 Name Form2 输入个人资料窗口Caption Form2Label11 Caption nameLabel12 Caption genderLabel13 Caption Is that a girl？Fream1 Caption hobbiescommand caption okey表8—3 Form3属性设置表8-4 Form4属性设置表8-5 Form5属性设置表8-6 Form6属性设置4）编写代码。

VB代码VB小程序：实现USB摄像头视频图像的监控、截图、录像当前位置：首页&gt;VB 小程序&gt; 实现USB摄像头视频图像的监控、截图、录像54. 实现USB摄像头视频图像的监控、截图、录像本程序是“摄像头视频监控”的改进，仅用四个按钮实现对摄像头视频的监控、截图、录像，可以分别保存为图片文件和视频文件。

保存的视频文件可以用媒体播放机（Windows Media Player）、暴风影音等软件进行播放，轻松实现家庭录像制作。

利用电脑配备的 USB 摄像头进行视频控制，要用到两个 API 函数：capCreateCaptureWindow 和 SendMessage。

capCreateCaptureWindow 的作用是创建一个视频窗口，摄像头捕捉到的视频图像在此窗口内显示，函数返回值就是代表此窗口的句柄。

此函数的 VB 声明：Private Declare Function capCreateCaptureWindow Lib &quot;avicap32.dll&quot; Alias &quot;capCreateCaptureWindowA&quot; (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As LongDim ctCapWin As Long各参数意义如下：lpszWindowName 视频窗口的窗口标题dwStyle 窗口模式，设置值可用下面数值，也可组合使用：WS_Child：视频窗口是子窗口，位于应用程序主窗口内。

用Vb做一个小程序，情人节那天向“她（他）”表白吧！！！首先，你得打开vb这个软件，会有如下这么一个对话框
就选择第一个，然后进入，出现如下的界面
然后再选择红线处的工具
点击后，在如下界面拖画出一个文本框
然后再选择工具栏上的这个工具，点击后，同上一样，在界面上拖画，画两个
然后再在“标题栏名为Form1”这个窗体上双击鼠标左键，出现一个输入代码的框框
在里面输入
LABEL1.caption=”“
Command1.caption=”确定”
Command2.caption=”退出”
然后，点击关闭
再在界面上双击command1,进入后，在中中间输入LABEL1.caption=”I Love You”
然后，点击关闭
再在界面上双击command2，进入后，在中间输入end。

随后，在点击这个按钮
最后，要把这个保存，点击“文件”下的“生成工程1.exe”,然后保存在桌面即可。

当情人节当天，你就可以把这个小程序发给你心爱的她（他），让她（他）感动，感动吧！注：这中间的标点符号，均为英文状态下输入的
小女落樱。

VB代码VB小程序：通过枚举进程显示所有进程、隐藏进程、进程路径本小程序采用枚举进程的方法，显示所有进程，也能显示隐藏进程。

同时，能显示进程的完整路径。

有意思的是，一些已经结束的进程，同样可以显示。

以下是程序运行截图：''''以下是 VB6 代码，在 WinXP 调试通过'需在窗体放置以下 5 个控件，不必设置任何属性，全部采用默认设置：' Command1、List1、Check1、Timer1、Label1'本人原创，转载请注明来源：/100bd/blog/item/c4199fedda35ba0763d09f6b.htmlPrivate Type tyProcpID As Long: pName As String: pPath As String: pHide As StringEnd TypeDim ctP() As tyProc, ctPs As LongPrivate Declare Function EnumProcesses Lib &quot;psapi.dll&quot; (ByRef lpidProcess As Long, ByVal cb As Long, ByRef cbNeeded As Long) As LongPrivate Declare Function OpenProcess Lib &quot;kernel32.dll&quot; (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongPrivate Declare Function EnumProcessModules Lib &quot;psapi.dll&quot; (ByVal hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef lpcbNeeded As Long) As LongPrivate Declare Function GetModuleFileNameEx Lib &quot;psapi.dll&quot; Alias&quot;GetModuleFileNameExA&quot; (ByVal hProcess As Long, ByVal hModule As Long, ByVal lpFilename As String, ByVal nSize As Long) As LongPrivate Declare Function CloseHandle Lib &quot;kernel32.dll&quot; (ByVal hObject As Long) As LongPrivate Declare Function GetProcessImageFileName Lib &quot;psapi.dll&quot; Alias&quot;GetProcessImageFileNameA&quot; (ByVal hProcess As Long, ByVal lpImageFileName As String, ByVal nSize As Long) As LongPrivate Const PROCESS_ALL_ACCESS = &amp;H1F0FFFPrivate Const PROCESS_QUERY_INFORMATION = &amp;H400Private Const PROCESS_VM_READ = &amp;H10Private Const PROCESS_CREATE_PROCESS = &amp;H80Private Const PROCESS_CREATE_THREAD = &amp;H2Private Const PROCESS_DUP_HANDLE = &amp;H40'Private Const PROCESS_QUERY_INFORMATION = &amp;H400Private Const PROCESS_QUERY_LIMITED_INFORMATION = &amp;H1000Private Const PROCESS_SET_QUOTA = &amp;H100Private Const PROCESS_SET_INFORMATION = &amp;H200Private Const PROCESS_SUSPEND_RESUME = &amp;H800Private Const PROCESS_TERMINATE = &amp;H1Private Const PROCESS_VM_OPERATION = &amp;H8'Private Const PROCESS_VM_READ = &amp;H10Private Const PROCESS_VM_WRITE = &amp;H20'以下是在 NT 系统中提升当前进程权限的代码================================'系统级权限,可以：PROCESS_ALL_ACCESS OpenProcessToken、LookupPrivilegevalue、AdjustTokenPrivilegesPrivate Declare Function OpenProcessToken Lib &quot;advapi32.dll&quot; (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As LongPrivate Declare Function GetCurrentProcess Lib &quot;kernel32&quot; () As LongPrivate Declare Function LookupPrivilegeValue Lib &quot;advapi32&quot; Alias&quot;LookupPrivilegeValueA&quot; (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As LongPrivate Declare Function AdjustTokenPrivileges Lib &quot;advapi32&quot; (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_Privileges, ByVal BufferLength As Long, PreviousState As TOKEN_Privileges, ReturnLength As Long) As LongPrivate Type LUIDUsedPart As LongIgnoredForNowHigh32BitPart As LongEnd TypePrivate Type TOKEN_PrivilegesPrivilegeCount As LongTheLuid As LUIDAttributes As LongEnd TypePublic Sub AdjustPrivilege()'NT系统：提升权限Dim dl As Long, CurP As Long, nToKen As Long, nLuid As LUIDDim OldTKP As TOKEN_Privileges, NewTKP As TOKEN_PrivilegesDim pName As StringConst TOKEN_Adjust_Privileges = &amp;H20Const TOKEN_Query = &amp;H8Const SE_Privilege_Enabled_BY_DEFAULT = &amp;H1 '默认权限Const SE_Privilege_Enabled = &amp;H2 '开启权限Const SE_Privilege_USED_FOR_ACCESS = &amp;H80000000 '所有访问权限'获取当前进程的一个句柄CurP = GetCurrentProcess()'打开进程令牌：用 nToKen 获得进程访问令牌的句柄dl = OpenProcessToken(CurP, (TOKEN_Adjust_Privileges Or TOKEN_Query), nToKen)'用 nLuid 返回指定权限的 LUID 结构'权限名称：SeDebugPrivilege、SeShutdownPrivilege、SeRestorePrivilege、SeBackupPrivilege、SeUnsolicitedInputPrivilegepName = &quot;SeDebugPrivilege&quot;dl = LookupPrivilegeValue(&quot;&quot;, pName, nLuid)NewTKP.PrivilegeCount = 1NewTKP.TheLuid = nLuidNewTKP.Attributes = SE_Privilege_Enabled'调整令牌权限dl = AdjustTokenPrivileges(nToKen, False, NewTKP, Len(NewTKP), OldTKP, 0&amp;) End Sub'===================Private Sub Form_Load() = &quot;宋体&quot;: Me.Caption = &quot;枚举进程&quot;Command1.Caption = &quot;刷新&quot; = Call AdjustPrivilege '提升本进程权限Timer1.Interval = 10Check1.Caption = &quot;自动刷新&quot;: Check1.Value = 1End SubPrivate Sub Check1_Click()Timer1.Enabled = Check1.Value = 1End SubPrivate Sub Timer1_Timer()Static S As Long, S1 As LongDim nTai As StringS1 = S1 + 1If S1 &gt; 2 ThenS1 = 0nTai = &quot;↖↑↗→↘↓↙←&quot;S = S + 1If S &gt; 8 Then S = 1Label1.Caption = Mid(nTai, S, 1) '动画显示End IfCall ShowProcEnd SubPrivate Sub Command1_Click()List1.Clear: List1.RefreshCall ShowProcEnd SubPrivate Sub Form_Resize()Dim H1 As Single, T As SingleOn Error Resume NextH1 = Me.TextHeight(&quot;A&quot;)Command1.Move H1, H1, H1 * 4, H1 * 2Label1.Move H1 * 6, H1 * 1.5, H1, H1Check1.Move H1 * 8, H1, H1 * 8, H1 * 2T = Command1.Top + Command1.Height + H1 * 0.5List1.Move 0, T, Me.ScaleWidth, Me.ScaleHeight - TEnd Sub'本人原创，转载请注明来源：/100bd/blog/item/c4199fedda35ba0763d09f6b.html Private Sub ShowProc()Dim pID(1023) As Long, Ps As Long, dwDesiredAccess As LongDim cbNeeded As Long, P As Long, hModule As LongDim hProcess As Long, nStr As String, I As LongDim IsChange As Boolean, P2() As tyProc, Ps2 As LongOn Error Resume NextdwDesiredAccess = PROCESS_QUERY_INFORMATION Or PROCESS_VM_READPs2 = ctPs: P2 = ctPctPs = 1: ReDim ctP(0 To 1)ctP(1).pName = &quot;[System Process]&quot;nStr = String(1024, 0)' 进程ID的数组，数组的大小，返回实际进程数组的大小If EnumProcesses(pID(0), 4&amp; * 1024, cbNeeded) &lt;&gt; 0 ThenPs = cbNeeded \ 4 '进程总数For P = 0 To &amp;HFFFF&amp; Step 4hProcess = OpenProcess(dwDesiredAccess, 0, P) '返回指定进程的句柄If hProcess &lt;&gt; 0 ThenctPs = ctPs + 1: ReDim Preserve ctP(0 To ctPs)ctP(ctPs).pHide = &quot;隐藏&quot;For I = 0 To Ps - 1If P = pID(I) Then ctP(ctPs).pHide = &quot;&quot;: Exit ForNext I'nStr 返回主模块全名：每个进程的第一模块即为进程主模块If EnumProcessModules(hProcess, hModule, 4&amp;, 0&amp;) &lt;&gt; 0 Then GetModuleFileNameEx hProcess, hModule, nStr, 1024Else '型如：\Device\HarddiskVolumeGetProcessImageFileName hProcess, nStr, 1024End IfCloseHandle hProcess '关闭进程的句柄With ctP(ctPs).pID = P '进程 ID.pPath = CutStr(nStr, vbNullChar) '进程路径If Left(.pPath, 4) = &quot;\??\&quot; Then .pPath = Mid(.pPath, 5) '去掉“\??\”.pName = CutStr(.pPath, &quot;\&quot;, True) '进程名If P = 4 And .pName = &quot;&quot; Then .pName = &quot;System&quot;End WithEnd IfNextEnd If'List1.ClearFor P = 1 To ctPsnStr = AddSpace(P, 4) &amp; ProcStr(ctP(P)) '合成显示条目If P &gt; List1.ListCount ThenList1.AddItem nStr' List1.ListIndex = List1.NewIndexElseIf nStr &lt;&gt; List1.List(P - 1) Then List1.List(P - 1) = nStrEnd IfNext'删除多余条目For P = List1.ListCount - 1 To ctPs Step -1List1.RemoveItem PNextEnd SubPrivate Function ProcStr(P As tyProc) As StringProcStr = AddSpace(P.pID) &amp; AddSpace(P.pHide, 6) &amp; AddSpace(P.pName, 20) &amp; AddSpace(P.pPath)End FunctionPrivate Function AddSpace(ByVal nStr As String, Optional ByVal S As Long) As StringIf S &lt; 1 Then S = 6S = S - LenB(StrConv(nStr, vbFromUnicode))If S &lt; 1 Then S = 1AddSpace = nStr &amp; String(S, &quot; &quot;)End FunctionPrivate Function CutStr(nStr As String, Fu As String, Optional GetRight As Boolean) As String'GetRight=T 从右到左查找Dim S As LongIf GetRight Then ' 从右到左查找S = InStrRev(nStr, Fu)If S &gt; 0 Then CutStr = Mid(nStr, S + 1) Else CutStr = nStrElseS = InStr(nStr, Fu)If S &gt; 0 Then CutStr = Left(nStr, S - 1) Else CutStr = nStrEnd IfEnd Function'本人原创，转载请注明来源：/100bd/blog/item/c4199fedda35ba0763d09f6b.html查看文档来源：/100bd/item/fbd87c3004c6f5342e0f8140。