| 发表于:2008-01-10 19:47:511楼 得分:2 |
public const sw_hide = 0 public const gw_owner = 4 declare function getwindow lib "user32" alias "getwindow" (byval hwnd as _ long, byval wcmd as long) as long declare function showwindow lib "user32" alias "showwindow" (byval hwnd _ as long, byval ncmdshow as long) as long private sub form_load() dim rc as long dim ownerhwnd as long '让窗体不可见 me.visible = false '从任务管理器列表中移除 ownerhwnd = getwindow(me.hwnd, gw_owner) rc = showwindow(ownerhwnd, sw_hide) end sub | | |
|