如何使用 Visual Basic 2005 或 Visual Basic.net 中禁用一个控制台应用程序的标题栏上的关闭按钮

文章翻译 文章翻译
文章编号: 818361 - 查看本文应用于的产品
展开全部 | 关闭全部

本文内容

概要

本分步指南介绍了如何禁用一个控制台应用程序的标题栏上的 关闭 按钮。要这样做您必须声明对成员的 User32.dll 文件外部过程的引用、 获取控制台应用程序的系统菜单的句柄,然后将其从控制台应用程序的系统菜单删除 关闭 菜单项。

注意在"完整代码列表 (Module1.vb)"部分中,整个源代码是可用的。

要求

下面的列表概述了建议的硬件、 软件、 网络的基础结构和服务包,您需要:
  • Microsoft Windows 2000、 Windows XP 或 Windows Server 2003
  • Microsoft Visual Basic 2005 或 Microsoft 可视化的基本.net
本文假定您熟悉下列主题:
  • Visual Basic 2005 或 Visual Basic.net
  • 在 Visual 基本 2005年中或在 Visual Basic.net 中写入非托管代码

声明位于 User32.dll 中的外部过程的引用

  1. 运行 Microsoft Visual Studio 2005 或 Microsoft Visual Studio.net。
  2. 指向 新建,在 文件 菜单,然后单击 项目
  3. 项目类型 框中,单击以选择 vba 项目

    注意在可视有关 Studio 的 2005 年单击以选择 Visual Basicvba 项目 而不是。
  4. 模板 框中,单击以选择 控制台应用程序
  5. 名称 文本框中键入 MyConsoleApplication,然后单击 确定

    默认状态下,创建 Module1.vb。
  6. 如果下面的代码不会添加默认情况下,在创建项目时,将添加下面的代码到 Module1.vb 模块模块 1 语句
    Option Strict On
    之前
  7. Sub Main 语句前将以下代码添加到 Module1.vb
    ' Declaring references to external procedures that are in user32.dll.
    Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Integer, _
       ByVal uPosition As Integer, ByVal uFlags As Integer) As Boolean
    Private Declare Function GetForegroundWindow Lib "user32" () As Integer
    Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Integer, _
       ByVal bRevert As Boolean) As Integer
    Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Integer, _
       ByVal uCmd As Integer) As Integer
    Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
       (ByVal hWnd As Integer, ByVal lpString As String, ByVal nMaxCount As Integer) As Integer

获取控制台应用程序窗口的句柄

  1. 追加到 Module1.vb End Sub 语句后的下面的代码
    Private Function ObtainWindowHandle(ByVal lpstrCaption As String) As Integer
    
       ' To store the handle to a window.
       Dim hWnd As Integer
       ' Maximum number of characters in the GetWindowText method.
       Dim nMaxCount As Integer
       ' Actual number of characters copied in the GetWindowText method.
       Dim nCopiedLength As Integer
       ' To store the text of the title bar of the window.
       Dim lpString As String
    
       nMaxCount = 255
       ' Obtain a handle to the first window.
       hWnd = GetForegroundWindow
    
       ' Loop through the various windows until you encounter the console application window, _
       ' or there are no more windows.
       While hWnd <> 0
    
          ' Fill lpString with spaces.
          lpString = Space(nMaxCount)
          ' Get the text of the title bar of the window in lpString.
          nCopiedLength = GetWindowText(hWnd, lpString, nMaxCount)
    
          ' Verify that lpString is neither empty, nor NULL.
          If Len(Trim(lpString)) <> 0 And Asc(Trim(lpString)) <> 0 Then
             ' Verify that the title of the retrieved window is the same as the title of the console application window.
             If CType(InStr(Left(lpString, nCopiedLength), lpstrCaption), Boolean) Then
                ' Return hWnd to the Main method.
                Return hWnd
             End If
          End If
    
          ' Get the next window.
          hWnd = GetWindow(hWnd, 2)
    
       End While
    
       ' If no corresponding windows are found, return 0.
       Return 0
    
    End Function
  2. 将下面的代码添加到 Module1.vb,Sub Main 语句之后
    ' Obtain a handle to the console application window by passing the title of your application.
    Dim hWnd As Integer = ObtainWindowHandle("<MyConsoleApplication>")
    注意 替换 <MyConsoleApplication> 控制台应用程序的名称。
可以也使用 FindWindow 函数以获取控制台应用程序窗口的句柄。 有关 FindWindow 的详细信息,请访问下面的 Microsoft 开发人员网络 (MSDN) 的网站:
http://msdn2.microsoft.com/en-us/library/ms633499.aspx

获取控制台应用程序的系统菜单的句柄

将下面的代码添加到 Module1.vb,End Sub 语句之前
' Obtain a handle to the console application system menu.
Dim hMenu As Integer = GetSystemMenu(hWnd, False)

从控制台应用程序的系统菜单中删除关闭菜单项

添加下面的代码 Module1.vb End Sub 语句之前,并可再单击 文件 菜单上的 全部保存
' Delete the Close menu item from the console application system menu.
' This will automatically disable the Close button on the console application title bar.
' 6 indicates the position of the Close menu item.
' 1024 indicates that the second parameter is a positional indicator.
DeleteMenu(hMenu, 6, 1024)
System.Console.WriteLine("Press ENTER to quit")
' Wait for the user to press the ENTER key.
System.Console.ReadLine()

完整代码列表 (Module1.vb)

Option Strict On

Module Module1
   ' Declaring references to external procedures that are in user32.dll.
   Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Integer, _
      ByVal uPosition As Integer, ByVal uFlags As Integer) As Boolean
   Private Declare Function GetForegroundWindow Lib "user32" () As Integer
   Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Integer, _
      ByVal bRevert As Boolean) As Integer
   Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Integer, _
      ByVal uCmd As Integer) As Integer
   Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
      (ByVal hWnd As Integer, ByVal lpString As String, ByVal nMaxCount As Integer) As Integer

   Sub Main()
      ' Obtain a handle to the console application window by passing the title of your application.
      ' Replace <MyConsoleApplication> with the name of your Console Application.
      Dim hWnd As Integer = ObtainWindowHandle("<MyConsoleApplication>")
      ' Obtain a handle to the console application system menu.
      Dim hMenu As Integer = GetSystemMenu(hWnd, False)
      ' Delete the Close menu item from the console application system menu.
      ' This will automatically disable the Close button on the console application title bar.
      ' 6 indicates the position of the Close menu item.
      ' 1024 indicates that the second parameter is a positional indicator.
      DeleteMenu(hMenu, 6, 1024)
      System.Console.WriteLine("Press ENTER to quit")
      ' Wait for the user to press the ENTER key.
      System.Console.ReadLine()
   End Sub

   Private Function ObtainWindowHandle(ByVal lpstrCaption As String) As Integer

      ' To store the handle to a window.
      Dim hWnd As Integer
      ' Maximum number of characters in the GetWindowText method.
      Dim nMaxCount As Integer
      ' Actual number of characters copied in the GetWindowText method.
      Dim nCopiedLength As Integer
      ' To store the text of the title bar of the window.
      Dim lpString As String

      nMaxCount = 255
      ' Obtain a handle to the first window.
      hWnd = GetForegroundWindow

      ' Loop through the various windows until you encounter the console application window, _
      ' or there are no more windows.
      While hWnd <> 0

         ' Fill lpString with spaces.
         lpString = Space(nMaxCount)
         ' Get the text of the window title bar in lpString.
         nCopiedLength = GetWindowText(hWnd, lpString, nMaxCount)

         ' Verify that lpString is neither empty, nor NULL.
         If Len(Trim(lpString)) <> 0 And Asc(Trim(lpString)) <> 0 Then
            ' Verify that the title of the retrieved window is the same as the title of the console application window.
            If CType(InStr(Left(lpString, nCopiedLength), lpstrCaption), Boolean) Then
               ' Return hWnd to the Main method.
               Return hWnd
            End If
         End If

         ' Get the next window.
         hWnd = GetWindow(hWnd, 2)

      End While

      ' If no corresponding windows are found, return 0.
      Return 0

   End Function

End Module
注意替换 <MyConsoleApplication> 控制台应用程序的名称。

确认它可以工作

  1. 生成 菜单上单击 生成解决方案
  2. 调试 菜单上单击 $ 开始 以运行该应用程序。

    在控制台显示以下文本:
    Press ENTER to quit
  3. 请尝试单击 关闭 按钮。

    您不能单击 关闭 按钮,因为它被禁用。若要退出应用程序,请在控制台中按 ENTER 键。

    注意应用程序可能需要一些时间来获取其控制台窗口的句柄。因此,应用程序可能还需要一些时间来禁用 关闭 按钮。

疑难解答

  • 如果声明 GetWindowText 方法,并且没有指定一个别名可能会收到一个 EntryPointNotFoundException 未处理的异常。

    若要变通解决此问题,替换
    Private Declare Function GetWindowText Lib "user32" (ByVal hWnd As Integer, ByVal lpString As String, ByVal nMaxCount As Integer) As Integer
    Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Integer, ByVal lpString As String, ByVal nMaxCount As Integer) As Integer
  • 如果您从命令提示符下运行控制台应用程序,关闭 按钮将保持禁用状态,即使在应用程序退出。 因此,Microsoft 建议您双击可执行文件在 Visual Studio.net 中运行应用程序。

参考

有关更多的信息,请访问以下 MSDN 网站:
Windows API 和其他动态链接库
http://msdn2.microsoft.com/en-us/library/aa141322(office.10).aspx
声明语句
http://msdn2.microsoft.com/en-us/library/4zey12w5(vs.71).aspx
剖析一个声明语句
http://msdn2.microsoft.com/en-us/library/aa165080(office.10).aspx
了解句柄
http://msdn2.microsoft.com/en-us/library/aa141354(office.10).aspx

属性

文章编号: 818361 - 最后修改: 2007年5月12日 - 修订: 3.2
这篇文章中的信息适用于:
  • Microsoft Visual Basic 2005 Express Edition
  • Microsoft Visual Basic .NET 2003 标准版
  • Microsoft Visual .NET 2002 标准版
关键字:?
kbmt kbvs2005swept kbvs2005applies kbapi kbconsole kbprogramming kbhowtomaster KB818361 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 818361
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

提供反馈

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com