Question

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

Answer 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