Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
IgorX95
0 / 0 / 0
Регистрация: 14.10.2013
Сообщений: 101
#1

Как определить активно ли окно программы

26.06.2015, 03:02. Просмотров 904. Ответов 1
Метки нет (Все метки)

Здравствуйте.
vb.net
1
2
3
Private Sub Button1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
          Button1.Text=e.Location.ToString
End Sub
Код просто записывает в Button1.Text координаты мыши на Button1. Проблема в том, что код будет выполняться даже если активно другое окно. Как сделать так, чтоб код выполнялся только если активно окно, на котором находится Button1? Но не просто проверить, сначала определить на каком окне находится Button1, а потом проверить активно ли это окно.

З.Ы. Button1 может находится не непосредственно на окне, а на Panel.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.06.2015, 03:02
Ответы с готовыми решениями:

Как определить нажатие клавиш, даже когда окно не активно
Привет, помогите плиз. Как в VB 2010 считывать нажатие клавиш, даже когда окно...

Проверить, активно ли окно стороннего приложения
Всем привет, опять гугл не помогает) Как проверить, активна ли...

Как вызывать свое окно свойств ярлыка программы
Доброго времени суток. Если щелкнуть правой кнопкой мыши по ярлыку FAR'а и...

Как програмным образом закрыть окно другой программы?
Пишу свою службу Windows, и собственно может быть кто занимался этим подскажите...

Как скрыть процесс из своей программы (окно игры)
Как скрыть процесс из своей программы (окно игры)?

1
k13
164 / 164 / 52
Регистрация: 11.03.2014
Сообщений: 200
26.06.2015, 10:04 #2
Лучший ответ Сообщение было отмечено IgorX95 как решение

Решение

vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Class Form1
    Dim isActive As Boolean = False
    Private Sub Form1_Activated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        isActive = True
    End Sub
 
    Private Sub Form1_Deactivate(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Deactivate
        isActive = False
    End Sub
 
    Private Sub Button1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
        Dim MyForm As Form = Button1.FindForm
        If MyForm.Text = "Form1" And isActive = True Then Button1.Text = e.Location.ToString
    End Sub
End Class
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.06.2015, 10:04

Как определить директорию размещения программы
Подскажите пожайлуста, как определить директорию размещения программы? К...

Не показывать окно программы в Taskbare
Добрый день, Как спрятать окошко запускаемой программы в TaskBar? Dim...

Эмуляция нажатия Enter в окно программы
Нужно написать программу, которая бы при запуске активировала окно указанной...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru