VB 如何去掉Form上的"X"，即关闭按钮！

2025-02-13 02:15:41

推荐回答（5个）

回答1：

有几种方法可以去掉1，在属性窗口中切换到窗体的属性设置，然后在 BorderStyle 选项里选择
0-none 就可以把那个讨厌的小按钮给删了，不过整个标题栏也没有了！2，controlbox设为FALSE 3，private declare function getsystemmenu lib 'user32' (byval hwnd as long, byval brevert as long) as long
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 form_load()
call disablex(me)
end sub
private sub disablex(frm as form)
dim hmenu as long, ncount as long
hmenu = getsystemmenu(frm.hwnd, 0)
ncount = getmenuitemcount(hmenu)
call removemenu(hmenu, ncount - 1, mf_disabled or mf_byposition)
drawmenubar frm.hwnd
end sub

回答2：

把form1的controlbox属性设置为false

回答3：

Form的属性ControlBox设为False（注意：窗体的Icon也会去掉。）

回答4：

方法一：把窗体的属性controlbox设为FALSE
方法二：
Private Declare Function getsystemmenu Lib "user32" (ByVal hwnd As Long, ByVal brevert As Long) As Long
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 form_load()
Call disablex(Me)
End Sub
Private Sub disablex(frm As Form)
Dim hmenu As Long, ncount As Long
hmenu = getsystemmenu(frm.hwnd, 0)
ncount = getmenuitemcount(hmenu)
Call removemenu(hmenu, ncount - 1, mf_disabled Or mf_byposition)
drawmenubar frm.hwnd
End Sub

回答5：

设置form的属性

最新问答

我这是什么心理疾病?

电动车60伏58安时的电瓶可以和60伏20安时的锂电瓶并联使用吗？

如果婚姻宣告无效后子女怎么办

急需知道：请问广州哪里可以购买到正宗的湛江吴川金九月饼？请好心人把消息及地址告诉我，万分感谢！

乌鲁木齐新疆大厦坐几路公交车

我昨天梦中梦见卖菜，结果菜丢了，求解

为什么有快递员打电话给我让我拿快递，而且知道我的手机号码和我的姓名，但是地址确不是我的收货地址

用排比句写雪花像什么

机动车如何过没有行人通过的斑马线,具体点，要交通法规定的

qq用什么名字好