VPF::Перемещение формы - Форум программистов

korob2001

Дата 23.11.2004, 21:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: нет
Всего: 61

Привет!
У меня такой вопрос:
Есть форма ( Form1 ), параметр BorderStyle = 0-None. Скажите, как перемещать такую форму?
Пробовал заюзать обработчик события MouseMove. Таким образом:

Код


Private Sub Form_MouseMove(Button As Integer, _
                                                Shift As Integer, _
                                                X As Single, _
                                                Y As Single)
            If Button = vbLeftButton Then
               Move X, Y
            End If
End Sub

Результат просто ужасный. Вроде работает, но при движении форма как бы раздваивается, да и шлейф после неё остается. smile

((
Затем попробовал изменить код этой процедуры на такой:

Код


If Button = vbLeftButton Then
               Move X - ( X - Form1.Left ), Y - ( Y - Form1.Top )
End If

Но с таким вариантом, форма вообще остается как вкопанная. smile

Подскажите, как добиться нормального перемещения такой формы?

Зарананее спасибо,
Денис

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Vach

Дата 23.11.2004, 23:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 304
Регистрация: 17.10.2003
Где: Санкт-Петербург

Репутация: 8
Всего: 18

Код

Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
 (ByVal hWnd As Long, ByVal wMsg As Long, _
  ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call ReleaseCapture
    Call SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End Sub

Удачи.

cardinal

Дата 24.11.2004, 01:48 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

FAQ читать надо smile

http://forum.vingrad.ru/index.php?showtopic=22274

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

korob2001

Дата 24.11.2004, 11:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: нет
Всего: 61

Большое спасибо.
Cardinal - извини, не досмотрел. ;))))))

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »