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

@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

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

Новые блоги и статьи Все статьи Все блоги /
Море в объективе kumehtar 06.07.2026 Хотел написать много проникновенных слов, но передумал. Оно само - говорит. Кто слышит тот слышит.	Оказывается, Unreal Engine позволяет качество на порядки выше, чем было в Lineedge Etyuhibosecyu 05.07.2026 Жаль, конечно, что я не узнал об этом, пока Lineedge существовала, а то бы Noname2331 написал, что волки превращаются в пиксельную кашу, а я бы его попросил скачать какую-нибудь бриллиантовую или Pro. . .	Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii. dcc0 05.07.2026 Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .	Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .
Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .	В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .

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

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