程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB6 >> 顯示、隱藏win95任務欄

顯示、隱藏win95任務欄

編輯:VB6

Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
 (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function ShowWindow Lib "user32" Alias "ShowWindow" _
 (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_SHOW = 5
Public Const SW_HIDE = 0
Private hwnd5 as Long
hwnd5 = FindWindow("Shell_traywnd","")
Call ShowWindow(hwnd5, SW_HIDE) '隱藏任務欄
Call ShowWindow(hwnd5, SW_SHOW) '顯示任務欄
這不是一個好的方式,如果您將任務欄隱藏了,但沒有將之顯示,那我們只有重新開機才能使之重新出現,當使用者發現叫不出任務欄時,他可能會很生氣。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved