去掉窗口标题栏遇到的问题!
Dim TempLng As Long
TempLng = GetWindowLong(Form4.hwnd, GWL_STYLE)
TempLng = TempLng And Not WS_CAPTION (这儿的值应该等于“0”吧?)
SetWindowLong Form4.hwnd, GWL_STYLE, TempLng (此处如果把“templng”直接换成“0”省略掉前面的部分可不可以呢?)
我换了之后边框就不能拉动了,如果不换的话,边框是可以拉动的!这是什么原因?
[解决办法]
楼主的代码格式有点乱,而且也没贴出API声明,不过我试了下只去掉WS_CAPTION是照样可以拉动边框的,原因应是还存在WS_THICKFRAME样式
Option ExplicitPrivate Sub Form_Load() t1End SubSub t1() Dim lngWnd As Long, TempLng As Long lngWnd = Me.hWnd TempLng = GetWindowLong(lngWnd, GWL_STYLE) TempLng = TempLng And Not WS_CAPTION ' (这儿的值应该等于“0”吧?) SetWindowLong lngWnd, GWL_STYLE, TempLngEnd Sub
[解决办法]