博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2009年7月23日

摘要: Option ExplicitPrivate Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Sub Form_Load() Dim appCaption$, firstPopHWnd& If App.P 阅读全文

posted @ 2009-07-23 12:51 随风飘零0 阅读(211) 评论(0) 推荐(0) 编辑