cmyfunction.cls

OA编程 源代码

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CMyFunction"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'Public Function FindApp(app_name As String) As Boolean
'    Dim app_hWnd As Long
'    '找出名字为 app_name 的窗口
'    app_hWnd = FindWindow(vbNullString, app_name)
'    '不是有效的应用程序窗口名
'    If (app_hWnd >= 0) Then
'        'MsgBox "Application not Found"
'        FindApp = False
'        Exit Function
'    End If
'    FindApp = True
''    '向该窗口发送关闭消息
''    SendMessage app_hWnd, WM_CLOSE, 0, 0
'End Function
'