* Module Filename : Start.bas
*********************************************************
* Comments : Show/Hide the start button
********************************************************
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Function hideStartButton()
’This Function Hides the Start Button’
OurParent& = FindWindow("Shell_TrayWnd", "")
OurHandle& = FindWindowEx(OurParent&, 0, "Button", vbNullString)
ShowWindow OurHandle&, 0
End Function
Public Function showStartButton()
’This Function Shows the Start Button’
OurParent& = FindWindow("Shell_TrayWnd", "")
OurHandle& = FindWindowEx(OurParent&, 0, "Button", vbNullString)
ShowWindow OurHandle&, 5
End Function
【VB的显示/隐藏Start按钮】相关文章：
2025年外省高中学业水平合格性考试成绩转入江苏认定的通告公布05-15
Vb中控件的自动排列05-15
写未来的作文300字05-15
Our Mother Is the Same 我们的妈妈是一样的05-15
小学父爱的作文600字05-15
汪涵讲述小时候成长经历：鸡毛掸子的故事05-15
关于清明节的英语作文：清明节05-15
盐阜大众报报业集团（盐城）公开招聘《东方生活报》编辑记者的公告 2月25日到3月3日报名05-15
浅析助学贷款对经济发展的正向影响05-15
成长的作文05-15