您的位置:程序门 -> vb -> 基础类



vb窗体操作问题!等线等待


[收藏此页] [打印本页]选择字色:背景色:字体:[][][]


vb窗体操作问题!等线等待
发表于:2007-07-20 11:24:39 楼主
怎样隐藏vb窗体右上角的“x”,或都变为灰色,不可用,
发表于:2007-07-20 11:41:381楼 得分:0
设置borderstyle
发表于:2007-07-20 11:51:042楼 得分:0
borderstyle=0
发表于:2007-07-20 11:55:123楼 得分:0
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   sub   command1_click()
    unload   me
    end   sub
       
    private   sub   form_load()
    dim   r           as   integer
    mymenu   =   getsystemmenu(me.hwnd,   0)
    removemenu   mymenu,   &hf060,   r
    end   sub
发表于:2007-07-20 13:31:024楼 得分:0
vb窗体是mdiform1,请问如何隐藏右上角的“x”,或者是不可用
发表于:2007-07-20 15:27:115楼 得分:0
xiaolei1982(小磊---雄性激素造就了一个男人却毁掉了一名帅哥...)   (   )   信誉:100     2007-07-20   11:55:12     得分:   0    


正解..学习了
发表于:2007-07-20 15:44:036楼 得分:0
用   api   函数       如   小磊的解法
发表于:2007-07-20 16:09:067楼 得分:0
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   sub   command1_click()
unload   me
end   sub

private   sub   form_load()
dim   r   as   integer
mymenu   =   getsystemmenu(me.hwnd,   0)
removemenu   mymenu,   &hf060,   r
end   sub
发表于:2007-07-20 20:05:158楼 得分:0
...................................


快速检索

最新资讯
热门点击