已有23人关注
boardstyle属性中的问题
发表在VB答疑区 2011-02-22
是否精华
版块置顶:
boardstyle中属性值为0的时候是不显示标题栏,我做了几个界面,发现其中一个界面的boardstyle属性不能把标题栏弄没有,就是边框样式效果是1或者3的效果,别的界面都是可以的,请问这个是什么原因造成的?怎么解决?谢谢!!!
请看附件有张图片。
分享到:
精彩评论 4
vb_music
学分:0 LV1
2011-02-22
沙发
你好:
    这个程序是你自己亲手做的么,里边的边框好像是一个图片呢,不是窗体的内容吧。
zhuli
学分:0 LV1
TA的每日心情
签到
2022-02-13 21:48:52
2011-02-23
板凳
[FIELDSET][LEGEND]引自:1楼[/LEGEND]
你好:
    这个程序是你自己亲手做的么,里边的边框好像是一个图片呢,不是窗体的内容吧。
[/FIELDSET]

回复:
  是我自己做的,页面比较多,我是了在创建一个窗体就好的,不知道这个窗体里面怎么会出现这样的情况。。
蜡笔小新
学分:0 LV1
TA的每日心情
无聊
2023-02-13 19:27:34
2011-02-23
地板
读者您好:
本论坛只是我们为明日图书用户解决书本中问题服务的,如果是我们图书的读者,请您将你的问题是哪本书哪个实例的问题描述清楚,这样我们会很快的为您解答。如果是您自己修改的程序,很抱歉,为了保障读者的权益,我们不能为您解答。
vbsoldier
学分:0 LV1
2011-02-23
4L
那个窗体中是不是有菜单项存在,如果存在菜单,无法通过设置boardstyle隐藏标题栏。

隐藏请参考以下代码:
窗体声明的API函数及其常数:
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const WS_SIZEBOX = &H40000
Private Const WS_BORDER = &H800000
Private Const GWL_STYLE = (-16)

在窗体加载事件中添加以下代码
    Dim hMenu As Long
    hMenu = GetWindowLong(Me.hWnd, GWL_STYLE)
    hMenu = hMenu And Not WS_BORDER And Not WS_SIZEBOX '隐藏标题栏
    SetWindowLong Me.hWnd, GWL_STYLE, hMenu '将style赋予窗体
首页上一页 1 下一页尾页 4 条记录 1/1页
手机同步功能介绍
友情提示:以下图书配套资源能够实现手机同步功能
明日微信公众号
明日之星 明日之星编程特训营
客服热线(每日9:00-17:00)
400 675 1066
mingrisoft@mingrisoft.com
吉林省明日科技有限公司Copyright ©2007-2022,mingrisoft.com, All Rights Reserved长春市北湖科技开发区盛北大街3333号长春北湖科技园项目一期A10号楼四、五层
吉ICP备10002740号-2吉公网安备22010202000132经营性网站备案信息 营业执照