mdlfunction.bas

VB实现各种方式连接数据库

Attribute VB_Name = "mdlFunction"
Option Explicit

'获取窗口句柄:0-窗体没有打开;非0-窗体已打开
'lpClassName:VbNullString;
'lpWindowName:From Caption
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

'窗口是否可见:1-可见;0-隐藏
'hwnd:窗体句柄
Public Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long

'窗口是否最小化:0-没有最小化;1-最小化
'hwnd:窗体句柄
Public Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long

'激活窗体
'hwnd:窗体句柄
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long