主题：TO: 雨中的泪 (避免项目重复打开,并显示已有项目)

既然雨中的泪一定要这个功能，就帮帮吧！

狐爸这个是专注数据管理，好多功能不一定加入的，既然开放支持DLL那基本上是万能了！！

其实好多问题可以自己解决的，百度一下答案多的是！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:避免项目重复打开.table

BeforeOpenProject
项目事件
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Dim hwnd As Integer
Const SW_SHOWMAXIMIZED=3
hwnd = findwin(Nothing,"Foxtable - 避免项目重复打开.table")
If hwnd>0 Then
    MessageBox.Show("程序已经运行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    showWin(hwnd,SW_SHOWMAXIMIZED)
    e.Cancel = True
End If

全局代码
＝＝＝＝＝＝＝＝＝＝

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Public Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer

Public Function findwin(byval cln As String,byval winn As String) As Integer
     Return FindWindow(cln,winn)
End Function

Public Function ShowWin(byval hwnd As Integer,byval cmdshow As Integer) As Integer
     Return ShowWindow(hwnd,cmdshow)
End Function

顶！