Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
3 / 3 / 0
Регистрация: 27.10.2011
Сообщений: 66

Как при клики мышкой по TabControl1 вывести координаты клика мышки

11.11.2013, 10:37. Показов 1295. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Имеется процедура
'при нажатии на кнопку миши дает ее координаты
VB.NET
1
2
3
4
5
6
7
8
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        If Form5.Mous_activ = 1 Then
            Form5.Label9.Text = e.X
            Form5.Label10.Text = e.Y
            MsgBox(e.X & " X " & e.Y)
            Form5.Show()
        End If
    End Sub
но она работает только если я кликну мишкой по форме, а мне нужно чтобы координаты выводились при клике на TabControl1. Плиз подскажите как это сделать
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
11.11.2013, 10:37
Ответы с готовыми решениями:

Координаты клика мышки
Всем привет.Нужно в программе в поле объекта TImage получить координаты клика мышки.Можно ли это сделать с помощью...

Изменить координаты клика мышки
Есть монитор 19 дюймов, нанего прицепили сверху тачпад но уже 22 дюйма, и когда пытаешся отрыть папку то положения курсора и папки не...

Перемещение элемента в координаты клика мышки
Здравствуйте. Моя задача переместить элемент в координаты клика мышки. Т.е. пользователь кликает и элемент (div, например)...

8
Почетный модератор
 Аватар для Памирыч
23248 / 9160 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
11.11.2013, 11:02
Цитата Сообщение от vceznayka Посмотреть сообщение
Form1_MouseDown
Это будет актуально для формы.
Поэтому как-то так:
VB.NET
1
2
3
    Private Sub TabPage1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TabPage1.MouseClick
        Me.Text = e.X & " X " & e.Y
    End Sub
1
3 / 3 / 0
Регистрация: 27.10.2011
Сообщений: 66
11.11.2013, 11:12  [ТС]
Памирыч, Спасибо огромное,
Но возник еще один вопрос, тут выдаются координаты при нажатии TabPage1
Чтобы не писать процедуру для каждой TabPageN. Необходимо вывести координаты мыши в текущем TabPageN
0
Почетный модератор
 Аватар для Памирыч
23248 / 9160 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
11.11.2013, 11:25
Может тогда подписать все вкладки на событие?
VB.NET
1
2
3
4
5
6
7
8
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each T As TabPage In TabControl1.TabPages
            AddHandler T.MouseClick, AddressOf TP_Click
        Next
    End Sub
    Sub TP_Click(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        Me.Text = e.X & " X " & e.Y
    End Sub
Но тогда если вкладки добавляются в процессе работы, придется это тоже прописывать для каждой новой вкладки.

Может, есть верный способ, если что, местные гуру подскажут
2
3 / 3 / 0
Регистрация: 27.10.2011
Сообщений: 66
11.11.2013, 14:25  [ТС]
Простите за не скромность, возник еще один вопрос: как определить какой TabPage активет, точней если октивен TabPage1 выполнить одно если TabPage2 то выплнить другое
Ну чтото типа этого
VB.NET
1
2
3
4
5
If TabPage1________  = true then
 
Ifelse 
 
End if
0
Почетный модератор
 Аватар для Памирыч
23248 / 9160 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
11.11.2013, 14:53
VB.NET
1
MsgBox("Выделена вкладка под №" & TabControl1.SelectedIndex + 1)
1
3 / 3 / 0
Регистрация: 27.10.2011
Сообщений: 66
11.11.2013, 15:00  [ТС]
VB.NET
1
2
3
4
5
If ???????????? then
 
Ifelse 
 
End if
мне не совсем понятно, мне что вписать после If чтобы определить какой TabPage активет?
0
 Аватар для Nachrichter
649 / 601 / 92
Регистрация: 19.03.2012
Сообщений: 1,128
11.11.2013, 15:04
vceznayka, так Памирыч уже написал:
VB.NET
1
TabControl1.SelectedIndex
Укажите Index:
VB.NET
1
2
3
If TabControl1.SelectedIndex = 0 Then
    MsgBox("1-ая вкладка")
End If
2
835 / 643 / 101
Регистрация: 20.08.2013
Сообщений: 2,524
14.11.2013, 18:06
Цитата Сообщение от vceznayka Посмотреть сообщение
как определить какой TabPage
Sender в обработчике им и будет.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
14.11.2013, 18:06
Помогаю со студенческими работами здесь

Нарисовать линию задав координаты мышкой в 2 клика
Нарисовать линию таким образом: тык мышкой в начальные координаты тык в конечные нарисовать. Как в пеинт. Язык изучаю 2...

Делаю выбор мышкой как в Warcraft3. Но координаты меняются при вращении камеры
Делаю выбор 3д объектов мышкой. Тоесть тяну мышкой и рисуется прямоугольник. Все что поподет в него выберится. Затем перевожу 2д...

Открытие формы при нажатии клавиш и клика мышки
Есть обычная форма, и есть кнопка. При клике на Кнопку открывается другая форма, а как сделать так, чтобы при зажатых клавишах и клике...

Запрет правого клика мышкой при выводе файла в iframe
Доброго всем времени суток! Есть страница, на которой будут выводиться документы, хранящиеся в определенном хранилище. Вывод документа...

Обработка как одинарного, так и двойного клика мышкой
Здравствуйте! Подскажите, есть у кого-нибудь решение как организовать для одного поля обработку и одинарного клика и двойного клика мышкой....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru