VB 单实例运行
VB6
在程序运行时用如下语句：
if app.PrevInstance=true then
end
end if
VB 2005:
1. 在VB2005中,打开"属性"页,启用"应用程序“框架, 选中"
单实例应用程序"前面复选框,就行了。
(WinCE中没有该属性设置，只能通过Findwindow函数，察看是否已经有程序的实例在运行。或者用下面的MUTEX)
2. MUTEX. (一下代码为2008)
'
引用Mutex的类
Imports
System.Threading
Private
Sub
Form1_Load(
ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
MyBase
.Load
'
定义Mutex的类
Dim
objMutex
As
Mutex
'
得到应用程序的名称
Dim
AppName
As
String
=
Assembly
.GetExecutingAssembly().GetName().Name
'
用这个应用程序的名字,去实例化这个Mutex
objMutex
=
New
Mutex(
False
, AppName)
'
判断是否有相同的应用程序在运行;
If
objMutex.WaitOne(
0
,
False
)
=
False
Then
objMutex.Close()
objMutex
=
Nothing
MessageBox.Show(
"
这个程序正在运行!
"
)
Close()
'
关闭这个应用程序
Exit Sub
End
If
End Sub
相关文档：
Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, Optional ByVal wFlags As Long = 0&) As Long
Private Declare Function DrawMenu ......
李海
本文发表在2000年4月17日 《计算机世界》25期
制作安装程序往往是程序设计的最后一步，同时也是重要的一步，因为运行安装程序往往是用户的第一个操作。下面就介绍一些制作
Visual Basic
安装程序时常遇到问题的解决方法。
1
、一个非常简单的
VB
程序是否可以不制作安装程序
问：假如我的
VB5
开发的程� ......
参照案例教程建立的数据库管理系统在甚多方面都存在问题。可能是新手，不管是对于大一就学过的VB编程还是这个学期刚接触的SQL，很多小问题常常出现在调试过程中。想请熟悉使用这两个平台的高手帮忙指点一下。
1.如何解决DataGrid中多个column和SQL中多个表的绑定？目的 ......
如何去优化你的VB程序帮助
1、如何去优化你的VB程序
Visual Basic 作为一种高级编程语言，它也有着不可避免的缺点---开发出的应用程序运行速度慢。如果我们能够程序做一些优化，那么情况将会大大改善。要优化程序运行的实际速度，常用的方法有三种：
1.尽量避免使用 Variant 变量。由于VB不能确定 Variant 变量的� ......
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Sub Command1_Click()
Dim Url As String, Filepath As String
Url = "h ......
