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

为什么用setwindowlong设置控件风格没有反应？

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

为什么用setwindowlong设置控件风格没有反应？

发表于：2007-02-26 09:10:55 楼主

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 gwl_style = （-16)

private const ws_ex_toolwindow = &h80
private const ws_caption = &hc00000

private sub form_load（)
dim hwnd as long

hwnd = picture1.hwnd
style = getwindowlong（hwnd, gwl_exstyle)
setwindowlong hwnd, gwl_exstyle, （style or ws_ex_toolwindow)
style = getwindowlong（hwnd, gwl_style)
setwindowlong hwnd, gwl_style, （style or ws_caption)
end sub

发表于：2007-02-26 10:02:511楼得分:0

我这里正常啊，要什么反映？picturebox风格有变化啊

发表于：2007-02-26 10:04:402楼得分:0

private const gwl_exstyle = （-20)

发表于：2007-02-26 11:00:363楼得分:0

可是没有立即完善显示改变后的风格啊。

下一篇：为什么提示保存成功，在数据库中却没有数据？乖乖的！
上一篇：求救:导出到excel时如何设置列宽

其他资讯