![](https://img-blog.csdnimg.cn/20201014180756925.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VB
jinta2001
这个作者很懒,什么都没留下…
展开
-
选择用户组
Option ExplicitPrivate Const NERR_SUCCESS As Long = 0&Private Const OPENUSERBROWSER_INCLUDE_SYSTEM As Long = &H10000Private Const OPENUSERBROWSER_SINGLE_SEL原创 2005-06-19 18:09:00 · 1038 阅读 · 0 评论 -
把某一窗口带到最前
Private Declare Sub SwitchToThisWindow Lib "user32" (ByVal hwnd As Long, ByVal bRestore As Long)Private Declare Function GetForegroundWindow Lib "user32" () As LongDim lngCount As LongPrivat原创 2005-06-19 18:21:00 · 1048 阅读 · 0 评论