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

@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

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

Новые блоги и статьи Все статьи Все блоги /
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .

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

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