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

@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

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

Новые блоги и статьи Все статьи Все блоги /
Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .
Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .

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

	Как отключить правую кнопку мыши? 29.05.2021, 20:30. Показов 4204. Ответов 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 1442 / 459 / 78 Регистрация: 24.09.2017 Сообщений: 2,541 Записей в блоге: 24
	04.06.2021, 12:05
	Я уже помочь не могу. Знаний маловато. 0

Опции темы