▲△▲△▲请教高手：SetWindowLong的问题

Question

我用下面的代码使Form的最大化无效和改变窗体大小无效，但怎么用代码恢复正常状态呀Dim TempLng As LongTempLng = GetWindowLong(Me.hWnd, GWL_STYLE)
TempLng = TempLng And Not WS_MAXIMIZEBOX '禁用最大化
TempLng = TempLng And Not WS_THICKFRAME '禁用可改变大小的边框
SetWindowLong Me.hWnd, GWL_STYLE, TempLngTempLng = GetSystemMenu(Me.hWnd, 0)
DeleteMenu TempLng, SC_MAXIMIZE, MF_BYCOMMAND

Answer 1

Dim TempLng As LongTempLng = GetWindowLong(Me.hWnd, GWL_STYLE)
TempLng = TempLng or WS_MAXIMIZEBOX '禁用最大化
TempLng = TempLng or WS_THICKFRAME '禁用可改变大小的边框
SetWindowLong Me.hWnd, GWL_STYLE, TempLngTempLng = GetSystemMenu(Me.hWnd, 0)
DeleteMenu TempLng, SC_MAXIMIZE, MF_BYCOMMAND

Answer 2

就是把 And Not 改成 Or