通过如下语句更改无标题栏窗口得大小是为什么只能更改横向大小？解决方案

2012-01-29

通过如下语句更改无标题栏窗口得大小是为什么只能更改横向大小？VB codePublic Declare Function ClientToS

通过如下语句更改无标题栏窗口得大小是为什么只能更改横向大小？

VB code

Public Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long'释放程序鼠标捕获Public Declare Function ReleaseCapture Lib "user32" _( _    ) As Long'发送一条消息Public Declare Function SendMessage Lib "user32" _Alias "SendMessageA" _( _    ByVal hwnd As Long, ByVal wMsg As Long, _    ByVal wParam As Long, lParam As Any _) As LongPublic Const WM_SYSCOMMAND = &H112Public Const HTCAPTION = 2Public Const SC_SIZE = &HF000&private Sub SetSize()  If Button = 1 Then      X1 = ReleaseCapture()      ReturnVal1 = SendMessage(Me.hwnd, WM_SYSCOMMAND, _                               SC_SIZE + HTCAPTION, 0)  End IfEnd If

请各位走过路过，不要错过，看一看，瞧一瞧，实在不会的帮顶，会的请帮忙啊~

[解决办法]
测试以下语句：

VB code

      ReturnVal1 = SendMessage(Me.hwnd, WM_SYSCOMMAND, _                               SC_SIZE Or 6 + HTCAPTION, 0)
[解决办法]
VB codePrivate Declare Function ReleaseCapture Lib "user32" _( _    ) As Long'发送一条消息Private Declare Function SendMessage Lib "user32" _Alias "SendMessageA" _( _    ByVal hwnd As Long, ByVal wMsg As Long, _    ByVal wParam As Long, lParam As Any _) As LongPrivate Const WM_SYSCOMMAND = &H112Private Const HTCAPTION = 2Private Const HTHSCROLL = 6Private Const SC_SIZE = &HF000&Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)     If Button = 1 Then      X1 = ReleaseCapture()      ReturnVal1 = SendMessage(Me.hwnd, WM_SYSCOMMAND, _                               SC_SIZE + HTHSCROLL + HTCAPTION, 0)  End IfEnd Sub

热点排行