form的borderstyle=0的时候,如何改变窗口的大小？

[laisiwei]

要求：当鼠标移到窗口边缘的时候，鼠标的光标变成箭头的样子，然后，可以拖动可以改变大小

[bu_wen]

用 SetWindowPos 重新设定
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

private sub Chang()
setwindowpos me.hnd , HWND_NOTOPMOST,0,0,CX,CY,SWP_NOMOVE
end sub

cx ,cy 为 新设定的 长 宽

[programart_life]

用API可以做到。但是有这必要吗？除非你真的喜欢折腾自己

[qqqdong]

哎，你真辛苦

[kjah]

可以用用代码实现
比如：
dim DragWest as boolean
窗体mousedown事件
If X <= 15 Then
DragWest = True
End If
mousemove事件
If DragWest Then
Me.Left = Me.Left + X
Me.Width = Me.Width - X
elseIf x<=15 then
Me.MousePointer = 9'改变鼠标图标
end if
mouseup事件
DragWest=False

应该可以改变左边的边界，临时写的没有容错 width不能<0
可能还有别的问题，见笑了
只是提供一个思路

[zyl910]

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_THICKFRAME = &H40000


Private Sub Form_Load()
Dim TempLng As Long

TempLng = GetWindowLong(Me.hWnd, GWL_STYLE)
TempLng = TempLng Or WS_THICKFRAME '用可改变大小的边框
SetWindowLong Me.hWnd, GWL_STYLE, TempLng

End Sub