| Вопрос: Как менять размер формы? | Добавлено: 27.04.10 16:32 |
Автор вопроса:  BooBLe
|
|
Есть форма с BorderStyle = None. На форме есть Label4. Подскажите как сделать, чтобы менялся размер формы, если тянешь за этот Label4.
Делал так, но работает как-то заторможено в модуль Public a As Integer
в форму Private Sub Label4_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label4.MouseDown ' Ширина окна a = MousePosition.X End Sub Private Sub Label4_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label4.MouseMove ' Ширина окна If MouseButtons = MouseButtons.Left Then Width = Width - a + MousePosition.X a = MousePosition.X End If End Sub |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  BooBLe Вопросов: 4 Ответов: 15 |
Профиль | | #1 | Добавлено: 27.04.10 18:30 |
|
всё, разобрался. Все просто оказывается
Width = MousePosition.X - Location.X |
||
Страница: 1 |