网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

关于vb.net程序是否启动的信息

VB.NET怎样判断一个应用程序是否在运行

用process.GetProcesses()

我们提供的服务有:成都网站建设、成都网站设计、微信公众号开发、网站优化、网站认证、佛坪ssl等。为1000多家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的佛坪网站制作公司

或者process.GetProcessByid() 获取进程信息,

vb.net 怎么判断当前程序是否正在运行?

Imports System.Runtime.InteropServices

Module Module1

Sub Main()

Dim instance As Process = RunningInstance()

If instance IsNot Nothing Then

ShowWindowAsync(instance.MainWindowHandle, 3) '调用api函数,正常显示窗口

Return

End If

Dim F1 As New Form1

Application.Run(F1) '显示窗体

End Sub

DllImport("User32.dll")

Public Function ShowWindowAsync(ByVal hWnd As System.IntPtr, ByVal cmdShow As Integer) As Boolean

End Function

Private Function RunningInstance() As Process '返回进程中已经打开的程序

Dim current As Process = Process.GetCurrentProcess()

Dim processes As Process() = Process.GetProcessesByName(current.ProcessName)

For Each process As Process In processes

If process.Id current.Id Then

If process.MainModule.FileName = current.MainModule.FileName Then

Return process

End If

End If

Next

Return Nothing

End Function

End Module

vb.net 程序启动问题~~~懂的来

打开VS.net

2008

,打开工程,点击菜单项目

在点XX属性,就可以看到启动对象,选择相应的启动模块


网站标题:关于vb.net程序是否启动的信息
转载注明:http://bjjierui.cn/article/hcdepg.html

其他资讯