Мой Kbyte.Ru
Рассылка Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Евгений Ипатов -

Visual Basic 5.0/6.0 - Окна и формы

Все примеры / Интерфейс / Окна и формы

Перетаскивание формы

Автор: Евгений Ипатов | добавлено: 06.03.2010, 12:13 | просмотров: 1503 (3+) | комментариев: 0 | рейтинг: *x0
Пример демонстрирует форму, которую можно перетаскивать за любое место.

Код

'В модуль

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Sub Peretaskivanie(TheForm As Form)
If TheForm.WindowState <> vbMaximized Then
ReleaseCapture
SendMessage TheForm.hwnd, &HA1, 2, 0&
End If
End Sub

'На форму

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Peretaskivanie Me
End Sub
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Евгений Ипатов

Нет информации об авторе...

См. также:
Профиль автора
Евгений Ипатов
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики