Как отключить правую кнопку мыши?

@winuser74 · Регистрация: 29.05.2021

Студворк — интернет-сервис помощи студентам

Доброго дня. Подскажите плиз, как отключить правую клавишу мыши, чтобы по нажатию ничего не происходило и не вылазило контекстное меню? Есть форма (VB 6.0), у нее два текстбокса, но полагаю, что отключить нужно для всей формы - клавиша как таковая не нужна и использоваться не будет. Я в программировании новичок. Думал, что там просто делается, но оказалось, что это гораздо сложнее, чем просто программировать поведение клавиатуры, типа If KeyCode и поехали..

@winuser74 · 31.05.2021, 20:29 **[ТС]**

Пример посмотрел. В принципе понятно. Просто я хочу все-таки сделать свой массив объектов, чтобы можно было
не Text(i).hWnd, а Box(i).HWnd. Но у меня пока не получается, говорит Invalid qualifier. Самое забавное, что когда я смотрю
инфу на майкрософте там все время какая-то лажа с дебильными примерами, которые вообще не работают и пишут ошибку
в синтаксисе, при том, что в шапке указано VB. Вероятно это какое-то другое неизвестное нормальным людям VB.))

@Argus19 · 31.05.2021, 20:37

Сообщение от winuser74

при том, что в шапке указано VB

Приведите пример. Будем посмотреть.
Ссылки на "Некрософт" не возбраняются.

@winuser74 · 31.05.2021, 20:51 **[ТС]**

Вот так вроде работает:

Visual Basic
1
2
3
4
Dim box(1) As Object
 
Set box(0) = Me.Text1
Set box(1) = Me.Text2

Но я хочу в одну строку через список.

Я кажется понял это был дотнет - это только по адресу видно:
https://docs.microsoft.com/ru-... es/arrays/

Вот эта ерунда "Dim numbers = New Integer() {1, 2, 4, 8}" - не знаю о чем это они? не работает это. ну или это не VB.

Добавлено через 7 минут
И хотелось конечно массив сначала делать динамическим. Да наверное это VBA был - там через Array() списком делаешь и все.

@Argus19 · 31.05.2021, 20:52

Сообщение от winuser74

не знаю о чем это они?

Это .Net

VB.NET
1
2
3
4
5
' Declare a single-dimension array of 5 numbers.
Dim numbers(4) As Integer
 
' Declare a single-dimension array and set its 4 values.
Dim numbers = New Integer() {1, 2, 4, 8}

А это VB:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
      ' Declare an array with 7 elements.
      Dim students(6) As Integer
 
      ' Assign values to each element.
      students(0) = 23
      students(1) = 19
      students(2) = 21
      students(3) = 17
      students(4) = 19
      students(5) = 20
      students(6) = 22

Маленькая путаница

@winuser74 · 31.05.2021, 21:01 **[ТС]**

А в VB через список массив нельзя что-ли создать? Только статический? Может попробовать код с Array() разместить в модуле,
.bas мне показалось совместимо с VBA - хотя это я наверное уже фантазирую.))

@Argus19 · 31.05.2021, 21:16

Сообщение от winuser74

хотя это я наверное уже фантазирую

Ага.

@winuser74 · 01.06.2021, 04:31 **[ТС]**

Работает вот так еще:

Visual Basic
1
Dim box(): box = Array(Me.Text1, Me.Text2)

Но с типом Variant только..
это конечно форменное безобразие, но я так и не вижу вменяемого варианта создания массива или коллекции
с нужным типом и через список.. печаль.((

Добавлено через 4 часа 49 минут
Пытаюсь я тот код разгадать для VB, ну который WM_NCHITTEST + HTTRANSPARENT.. обычно все сразу висло и приходилось
диспетчером снимать, а потом вообще прикольная шляпа получилась..)) Запускаю форму, а окно на котором тестил
стало дыркой, через которую винду видно или что там под.)) Не получаеццаа..

@winuser74 · 03.06.2021, 16:54 **[ТС]**

Думаю тему можно закрывать или как у вас тут заведено - статус "решено".

@Argus19 · 04.06.2021, 12:05

Я уже помочь не могу. Знаний маловато.

Новые блоги и статьи Все статьи Все блоги /
Транслитерация текста с кириллицы на латиницу (вариант №2) Maks 13.11.2026 Обновленная версия ранее созданной обработки. Добавлено: - Проверка исходного текста на кириллицу, через обращение к стандартной функции "ТолькоКириллицаВСтроке" из общего модуля. . .	Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .
Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .	Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .

@winuser74 0 / 0 / 0 Регистрация: 29.05.2021 Сообщений: 28

	Как отключить правую кнопку мыши? 29.05.2021, 20:30. Показов 4381. Ответов 28 Метки vb 6.0 (Все метки) Доброго дня. Подскажите плиз, как отключить правую клавишу мыши, чтобы по нажатию ничего не происходило и не вылазило контекстное меню? Есть форма (VB 6.0), у нее два текстбокса, но полагаю, что отключить нужно для всей формы - клавиша как таковая не нужна и использоваться не будет. Я в программировании новичок. Думал, что там просто делается, но оказалось, что это гораздо сложнее, чем просто программировать поведение клавиатуры, типа If KeyCode и поехали.. 0

@winuser74 0 / 0 / 0 Регистрация: 29.05.2021 Сообщений: 28
	31.05.2021, 20:29 [ТС]
	Пример посмотрел. В принципе понятно. Просто я хочу все-таки сделать свой массив объектов, чтобы можно было не Text(i).hWnd, а Box(i).HWnd. Но у меня пока не получается, говорит Invalid qualifier. Самое забавное, что когда я смотрю инфу на майкрософте там все время какая-то лажа с дебильными примерами, которые вообще не работают и пишут ошибку в синтаксисе, при том, что в шапке указано VB. Вероятно это какое-то другое неизвестное нормальным людям VB.)) 0

@winuser74 0 / 0 / 0 Регистрация: 29.05.2021 Сообщений: 28
	31.05.2021, 21:01 [ТС]
	А в VB через список массив нельзя что-ли создать? Только статический? Может попробовать код с Array() разместить в модуле, .bas мне показалось совместимо с VBA - хотя это я наверное уже фантазирую.)) 0

@winuser74 0 / 0 / 0 Регистрация: 29.05.2021 Сообщений: 28
	03.06.2021, 16:54 [ТС]
	Думаю тему можно закрывать или как у вас тут заведено - статус "решено". 0

@Argus19 1732 / 476 / 78 Регистрация: 24.09.2017 Сообщений: 2,573 Записей в блоге: 27
	04.06.2021, 12:05
	Я уже помочь не могу. Знаний маловато. 0