Как сделать так, чтобы пользователь мог изменять размер элемента управления во время выполнения [.NET Winforms]? - PullRequest
Новая
       18

Как сделать так, чтобы пользователь мог изменять размер элемента управления во время выполнения [.NET Winforms]?

0 голосов
/ 27 ноября 2009

Это в Winforms.

У меня есть UserControl с привязкой TOP, BOTTOM и LEFT. Я бы хотел, чтобы пользователь как-то перетянул правую границу и изменил ее размер по горизонтали.

Элемент управления помещается прямо в форму, без панели или групповой рамки для размещения «Splitter».

Есть ли у вас идеи, как изменить размер элемента управления во время выполнения пользователем?

1 Ответ

1 голос
/ 02 июля 2010 
Private Declare Function GetWindowLongA Lib "User32" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Long
Private Declare Function SetWindowLongA Lib "User32" (ByVal hWnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Long) As Long
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal CX As Integer, ByVal CY As Integer, ByVal wFlags As Integer)
Const SWP_NOSIZE = &H1
Const SWP_NOZORDER = &H4
Const SWP_NOMOVE = &H2
Const SWP_DRAWFRAME = &H20
Const GWL_STYLE = (-16)
Const WS_THICKFRAME = &H40000

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    ResizeControl(TextBox1, Me)
End Sub

Sub ResizeControl(ByVal ControlName As Control, ByVal FormName As Form)
    Dim NewStyle As Long
    NewStyle = GetWindowLongA(ControlName.Handle, GWL_STYLE)
    NewStyle = NewStyle Or WS_THICKFRAME
    NewStyle = SetWindowLongA(ControlName.Handle, GWL_STYLE, NewStyle)
    SetWindowPos(ControlName.Handle, FormName.Handle, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME)
End Sub
...