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

vb6 编写无标题栏窗体（窗体使用自造标题栏），showintaskbar 属性设定为 true 却保存不了

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

vb6 编写无标题栏窗体（窗体使用自造标题栏），showintaskbar 属性设定为 true 却保存不了[已结贴,结贴人:sxshao]

发表于：2007-02-13 17:59:56 楼主

vb6 编写无标题栏窗体（窗体使用自造标题栏），showintaskbar 属性设定为 true 却保存不了

怎么办？

发表于：2007-02-13 18:11:501楼得分:0

偷偷向 frmmain.frm 中写入
showintaskbar = 1 'true
也哄骗不了vb6+sp6。

发表于：2007-02-13 18:13:262楼得分:0

version 5.00
object = "{6b7e6392-850a-101b-afc0-4210102a8da7}#1.3#0 "; "comctl32.ocx "
object = "{6fba474e-43ac-11ce-9a0e-00aa0062bb4c}#1.0#0 "; "sysinfo.ocx "
object = "{74238af8-8108-44a9-b3de-d652f61ab8dc}#2.3#0 "; "yfdetmenu.ocx "
object = "{f9043c88-f6f2-101a-a3c9-08002b2f49fb}#1.2#0 "; "comdlg32.ocx "
begin vb.form frmmain
backcolor = &h00004000&
borderstyle = 0 'none
caption = "系统 "
clientheight = 10695
clientleft = 60
clienttop = 345
clientwidth = 15225
controlbox = 0 'false
icon = "frmmain.frx ":0000
linktopic = "form1 "
maxbutton = 0 'false
minbutton = 0 'false
moveable = 0 'false
negotiatemenus = 0 'false
palettemode = 1 'usezorder
scaleheight = 10695
scalewidth = 15225

以下略。。。

发表于：2007-02-13 18:16:293楼得分:3

请参考http://community.csdn.net/expert/topic/5350/5350991.xml?temp=.4787561下
我的2007-2-11 11:57:45 时的答复,将其中可用鼠标移动窗体的代码删除,可做的无标题栏特殊窗体,窗体可使用自造标题栏.仅供参考.

发表于：2007-02-13 18:22:434楼得分:0

to zdingyun（) （ )
我的问题是 showintaskbar 属性，
其他问题解决了。

发表于：2007-02-13 18:39:035楼得分:0

吃饭去了。

发表于：2007-02-13 19:41:286楼得分:4

加入一个form2用来在taskbar显示图标然后在你原来的窗口中加入2句
private sub form_load（)
form2.show 0, me
form2.windowstate = vbminimized
end sub

'在form2中加入
private sub form_paint（)
me.windowstate = vbminimized
form1.setfocus
end sub
这样可以欺骗一下

发表于：2007-02-13 19:42:417楼得分:5

form2的
borderstyle随便别是0就可以
showintaskbar属性设定为true

发表于：2007-02-13 20:47:158楼得分:0

to: xx22nn（)

这样是绕着走。明天我 test...

有点直接的解决方法吗？

发表于：2007-02-13 20:47:349楼得分:0

睡觉去了。

发表于：2007-02-13 20:56:3510楼得分:8

你能想出好的办法来就发来看看，临时还没想出其他办法

发表于：2007-02-13 21:59:0111楼得分:0

怪哉！

frmmain 中找不到 showintaskbar ，
vb6 显示 showintaskbar = false，
但是在vb6环境下运行和生成的exe运行时，
showintaskbar = true ？？？！！！

是不是我的计算机环境恶化，
需要重新安装系统了？

发表于：2007-02-14 10:35:3012楼得分:0

重新安装系统,问题依旧.

发表于：2007-02-14 10:50:1713楼得分:0

好玩，
showintaskbar 属性设定为 true 却保存不了，
但是vb6却记住了 showintaskbar = true。
可能是vb6的问题。
结账。

发表于：2007-02-14 10:54:5614楼得分:0

连续的回复不能超过3次

http://community.csdn.net/expert/topic/5355/5355203.xml?temp=.7326166

有窗口可以
borderstyle = 0 'none
showintaskbar = true
有的就不可以，
why ?

连续的回复不能超过3次

发表于：2007-02-14 19:27:2315楼得分:0

没遇到不可以的

发表于：2007-02-15 09:20:4416楼得分:0

option explicit

'from : http://blog.csdn.net/yinweihong/archive/2004/09/26/117419.aspx

private const sw_hide = 0 ':（? 'chr$（160)!!as 16-bit integer ?
private const sw_show = 5 ':（? 'chr$（160)!!as 16-bit integer ?
private const gwl_exstyle = -20 ':（? 'chr$（160)!!as 16-bit integer ?
private const ws_ex_toolwindow = 1 ':（? 'chr$（160)!!as 16-bit integer ?

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 declare function showwindow lib "user32 " （byval hwnd as long, byval ncmdshow as long) as long

private m_num as long

private sub setshowintaskbar（visible as boolean, hwnd as long)

dim l as long

l = showwindow（hwnd, sw_hide)
doevents
'l = setwindowlong（hwnd, gwl_exstyle, iif（visible, m_num, 1))
l = setwindowlong（hwnd, gwl_exstyle, iif（visible, 262144, 1))
doevents
l = showwindow（hwnd, sw_show)

end sub

private sub command1_click（)

setshowintaskbar false, me.hwnd

end sub

private sub command2_click（)

setshowintaskbar true, me.hwnd

end sub

private sub command3_click（)

unload me

end sub

private sub form_load（)

me.caption = "标题showintaskbar= " & showintaskbar

m_num = getwindowlong（me.hwnd, gwl_exstyle) 'm_num 结果为 262144

end sub

':) ulli 's vb code formatter v2.17.8 （2007-feb-15 09:19) decl: 14 code: 42 total: 56 lines
':) commentonly: 2 （3.6%) commented: 1 （1.8%) empty: 21 （37.5%) max logic depth: 1

其他资讯