vb.net窗体去掉关闭 关闭窗体vba代码

在VB窗体中去掉关闭按钮的方法?

在VB6.0窗体中去掉关闭按钮的方法：

在窗体属性窗口设置ControlBox 属性为False。

ControlBox 属性，返回或设置一个值，指示在运行时控制菜单框是否在窗体中显示。在运行时为只读。

在窗体属性窗口设置BorderStyle 属性为0，使窗体没有边框或与边框相关的元素。

在窗体的UnLoad事件代码中使用Cancel = -1语句，使关闭按钮失效。

Private Sub Form_Unload(Cancel As Integer)

    Cancel = -1 '或Cancel = True

End Sub

VB.NET是如何关闭窗体

VB.NET关闭当前窗体me.close()

其它窗体用:窗体名.close()，例如：form2.close()

vb.net如何打开一个新窗体后关闭上一个窗体

1、如果上一个窗体是程序的主窗体（默认是程序的第一个窗体），

则不能关闭这个窗体，只能隐藏（Me.Hide()）这个窗体，否则整

个程序就被关掉了。

2、如果上一个窗体不是程序的主窗体，可以用Me.Close()

关闭。

VB.NET 窗体关闭问题 用的是vs2013

首先这个应该放在 FormClosing 事件中。

其次，因为你 Else 之后没有忽略窗体关闭的请求。

应该再加一句 e.Cancel = True，表示告诉系统，我取消关闭窗体这个操作了。

VB2008 如何取消窗体的关闭按钮

设置ControlBox为False是可以的，不过全部按钮都会消失（包括最小化，最大化）

用API可以单独把关闭按钮干掉……

'VB.NET Code

Public Class Form1

Private Declare Function GetSystemMenu Lib "User32 " (ByVal hwnd As Integer, ByVal bRevert As Long) As Integer

Private Declare Function RemoveMenu Lib "User32 " (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer

Private Declare Function DrawMenuBar Lib "User32 " (ByVal hwnd As Integer) As Integer

Private Declare Function GetMenuItemCount Lib "User32 " (ByVal hMenu As Integer) As Integer

Private Const MF_BYPOSITION = H400

Private Const MF_DISABLED = H2

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim hMenu As Integer, nCount As Integer

hMenu = GetSystemMenu(Me.Handle.ToInt32, 0)

nCount = GetMenuItemCount(hMenu)

'Debug.Print(nCount)

Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION)

DrawMenuBar(Me.Handle.ToInt32)

End Sub

End Class

'VB6 code =============================================================

Private Declare Function GetSystemMenu Lib "User32 " (ByVal hwnd As Long, ByVal bRevert As Long) As Integer

Private Declare Function RemoveMenu Lib "User32 " (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Declare Function DrawMenuBar Lib "User32 " (ByVal hwnd As Long) As Long

Private Declare Function GetMenuItemCount Lib "User32 " (ByVal hMenu As Long) As Long

Private Const MF_BYPOSITION = H400

Private Const MF_DISABLED = H2

Private Sub Form1_Load()

Dim hMenu As Long, nCount As Long

hMenu = GetSystemMenu(Me.hWnd, 0)

nCount = GetMenuItemCount(hMenu)

'Debug.Print nCount

Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION)

DrawMenuBar Me.hWnd

End Sub

关于vb.net窗体去掉关闭和关闭窗体vba代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。