| |
Ограничить перемещение одной формы в пределах другой |
|
| |
'Начните новый проект, добавьте в события формы1
(Form1) следующий код
Private Sub Form_Load()
Load Form2
Form2.Show
End Sub
'добавьте еще одну форму (под именем Form2). Вставьте
на форму2 следующий код:
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal
hWndNewParent As Long) As Long
Private Sub Form_Load()
r = SetParent(Me.hWnd, Form1.hWnd)
End Sub
'Запустите проект на выполнение. Данный код
ограничит передвижение второй формы
относительно первой формы.
|
|
| |
|
|
|
|