VPF::Как сделать чтобы мышь не таскала за заголовок

transparent

Дата 10.7.2011, 23:09 (ссылка)

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

Загрузка ...

Бывалый

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

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

Нужно чтобы нельзя было перетащить форму за заголовок..
Вроде это все делается через переопределиние метода WndProc
Но там срабатывают кажется все ключи за исключением ключа (константы) MOVE
Код:

Const SC_MOVE = &HF010

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
If m.Msg = &H7B Then Return
If m.Msg = &H112 Then
Select Case m.WParam
SC_MOVE
Return
End Select
End If
MyBase.WndProc(m)
End Sub

Окошко все равно двигается...СОри если в методе где лишнее, я побыстрому скопировал, для сути так сказать понимания..

Можно конечно сделать как то так
Код:

Function DeleteMenu и Function GetSystemMenu.........
Dim hMenu As IntPtr = GetSystemMenu(Me.Handle, False)
If hMenu <> IntPtr.Zero Then
'Пункт "Перемест."
DeleteMenu(hMenu, SC_MOVE, MF_BYCOMMAND)

Все получается..Но хотелось бы именно первым способом...
Может я не то значение константы подставляю? или вовсе не то делаю, подскажите

krewin

Дата 11.7.2011, 12:18 (ссылка)

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

Загрузка ...

Шустрый

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

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

Тебе проще создать форму без заголовка formBorderStyle=none
Но если тебе нужно название используй label кнопки закрыть и свернуть можно сделать самому

transparent

Дата 11.7.2011, 14:09 (ссылка)

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

Загрузка ...

Бывалый

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

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

нашел выход...Но что самое странное, если закомментировать строчку с Мув то все работает..

Код


Protected Overrides Sub WndProc(ByRef m As Message)
        Const WM_NCLBUTTONDOWN As Integer = 161
        Const WM_SYSCOMMAND As Integer = 274
        Const HTCAPTION As Integer = 2
        Const SC_MOVE As Integer = 61456
        'If m.Msg = WM_SYSCOMMAND And m.WParam.ToInt32() = SC_MOVE Then Return
        If m.Msg = WM_NCLBUTTONDOWN And m.WParam.ToInt32() = HTCAPTION Then Return
        MyBase.WndProc(m)
    End Sub

Добавлено через 12 минут и 10 секунд
я понял, здесьConst SC_MOVE As Integer = 61456 того чтобы нельзя было переместить окно через сисменю

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