[Visual Basic]VB源代码推荐: 动态的显示/隐藏start按钮

原创 2000年12月20日 02:33:00

VB源代码推荐 : 动态的显示/隐藏start按钮

' #VBIDEUtils#**********************************************
' * Programmer Name  : Waty Thierry
' * Web Site         : www.geocities.com/ResearchTriangle/6311/
' * E-Mail           : waty.thierry@usa.net
' * Date             : 22/10/98
' * Time             : 15:50
' * Module Name      : Start_Module
' * 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

 

版权声明:本文为博主原创文章,未经博主允许不得转载。

Visual Basic快捷教程——流程控制

在顺序执行的过程中,有时希望计算机根据条件判断来选择性地执行(或者不执行)一些代码,这时就需要用到选择结构(或称分支结构)。另外一些时候,希望计算机能够(有条件地)重复地执行某一段代码,这时就需要用到...
  • baimafujinji
  • baimafujinji
  • 2017年04月04日 15:14
  • 3104

Visual Basic快捷教程——变量、常量和运算符

程序中数据最基本的存储单位就是变量,程序执行时会在计算机内存中开辟空间存储变量。而计算机程序的执行基本就是通过读取或操作这些变量来实现的。此外,在某些时候,虽然声明了一个变量,但却不希望这个变量的数值...
  • baimafujinji
  • baimafujinji
  • 2017年07月25日 17:08
  • 1048

数据库——SQL server2008安装与visual basic连接

这是自己当时初始CSDN上写的第一篇博客,其中当时的心情依然记忆尤新,总之美美的。...
  • u013030601
  • u013030601
  • 2014年06月29日 11:32
  • 1491

怎样解决无法初始化Visual Basic环境的问题

经常使用word软件,难免是遇到这样那样的问题,今天笔者在录制新宏时出现错误提示“无法初始化Visual Basic环境”,对于此问题我们该如何来解决。 工具/原料 ...
  • kyfvc
  • kyfvc
  • 2013年10月30日 09:57
  • 1537

datatable的动态列隐藏按钮及实现方式

以下参照datatable中文网api中的例子编写而成。 1、添加按钮事件                                                              ...
  • MelodyFreedom
  • MelodyFreedom
  • 2016年05月31日 13:57
  • 4329

VB.NET 章鱼哥出品 —入门基础Button控件的使用详解(二)

VB.NET 章鱼哥出品 —入门基础Button控件的使用详解(一)   '作者:章鱼哥,QQ:3107073263 群:309816713            '如有疑问或好的建议...
  • zhangyubishoulin
  • zhangyubishoulin
  • 2014年11月06日 21:14
  • 2069

Visual Basic快捷教程——函数与子程序

函数是结构化程序设计的基础。函数的本质就是为了把程序切分成若干个相对独立的模块各司其职,而各个函数的作用也就是仅仅专门负责自己份内的那份功能。在Visual Basic中,函数是一组以Function...
  • baimafujinji
  • baimafujinji
  • 2017年04月19日 22:30
  • 2908

【Visual Basic】计时器与窗体屏幕尺寸的取法

主要是利用一个小例子讲解VB中计时器Timer的运用。 如下图所示: 有一个显示当前时间,在屏幕的边缘不停地移动。 首先是窗体设置,直接从工具箱拖入Label与Timer控件。Timer...
  • yongh701
  • yongh701
  • 2015年08月06日 09:30
  • 1313

Visual Basic .NET 继VB后要求运行在.net平台上

Visual Basic.NET是基于微软.NET Framework之上的面向对象的中间解释性语言,可以看作是Visual Basic在。Net Framework平台上的升级版本,增强了对面向...
  • zxxSsdsd
  • zxxSsdsd
  • 2013年07月16日 15:28
  • 1430

功能强大的ShellExecute

::ShellExecute(NULL, L"open", L"E:\\vs2010工程项目\\guiterTestTool\\guiterTestTool\\res\\GuitarTestPlatf...
  • huang578141611
  • huang578141611
  • 2014年08月28日 10:56
  • 750
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:[Visual Basic]VB源代码推荐: 动态的显示/隐藏start按钮
举报原因:
原因补充:

(最多只允许输入30个字)