Определить вкладку под курсором

15.08.2006, 21:14. **Показов** 7243. **Ответов** 22

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

Привет всем.

Мне нужно вывести попуп меню при правом клике на вкладке tabstrip.

С этим проблем нет, но нужно показывать разные меню в зависимости от вкладки.

Вопрос в том, как в событии MouseDown определить на какой именно вкладке находиться указатель мыши.

Подобная ситуация была с тулбаром, но там ширина кнопок одинакова, и они, в отличии от вкладок, не сдвигаются вправо-влево.

Одним словом: ХЕЛП

@Labuda · 22.08.2006, 23:52

2 Irokez
дык, пожалуйста. покупай контрол и пользуй его, а ты о чем подумал? ))) кстати там в наборе много интересных контролов есть.
кстати, а VB ты покупал?

13.09.2007, 16:00

2Labuda

ты меня подловил )))))))

Вопрос о несовпадении типа так и остался открытым.

Может кто-то сможет прояснить ситуацию.

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'нормальное объявление
 
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
 
'попытка подогнать объявление под себя
 
Public Declare Function SendMessagebyTest Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As TCHITTESTINFO) As Long
 
 
 
Private Sub ttt_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
 
  Dim nn As TCHITTESTINFO
 
  num = SendMessage(ttt.hwnd, TCM_HITTEST, 0&, nn)
 
'ошибка - несовпадение типов
 
  num = SendMessageByTest(ttt.hwnd, TCM_HITTEST, 0&, nn)
 
'ошибка - User-defined type may not be passed ByVal
 
End Sub

Может как-то преобразовать TCHITTESTINFO в Long? или что?..

Бейсик у меня железно шестой. версия 8464 VBA-6.0.8495

13.09.2007, 17:14

На странице

http://doc.trecom.tomsk.su/HTML/InetSDK/Help/inet0213.htm#Tab_0404001304041000

нашел функцию TabCtrl_HitTest, но в vb она не реализована

как бы к ней добратся...

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .

Irokez

	Определить вкладку под курсором 15.08.2006, 21:14. Показов 7243. Ответов 22 Метки нет (Все метки) Привет всем. Мне нужно вывести попуп меню при правом клике на вкладке tabstrip. С этим проблем нет, но нужно показывать разные меню в зависимости от вкладки. Вопрос в том, как в событии MouseDown определить на какой именно вкладке находиться указатель мыши. Подобная ситуация была с тулбаром, но там ширина кнопок одинакова, и они, в отличии от вкладок, не сдвигаются вправо-влево. Одним словом: ХЕЛП

@Labuda 0 / 0 / 0 Регистрация: 21.05.2009 Сообщений: 101
	22.08.2006, 23:52
	2 Irokez дык, пожалуйста. покупай контрол и пользуй его, а ты о чем подумал? ))) кстати там в наборе много интересных контролов есть. кстати, а VB ты покупал? 0

Irokez
	13.09.2007, 17:14
	На странице http://doc.trecom.tomsk.su/HTML/InetSDK/Help/inet0213.htm#Tab_0404001304041000 нашел функцию TabCtrl_HitTest, но в vb она не реализована как бы к ней добратся...