Как отключить фокус на объекты

[Khachkara]

Как отключить фокус на объекты так чтобы на экране не было видно, что на данном объекте есть фокус.

[Duxoвник]

А как же тогда быть с текстовыми полями или полями ввода данных...?

[Хакер]

Какого черта может понадобиться отключать отображение фокус-ректа? Цель: навредить пользователю?

[iGrok]

А как же тогда быть с текстовыми полями или полями ввода данных...?

А какая ему разница? Ему главное "отключить фокус на объекты", а как на это будет реагировать пользователь или система...

[Хакер]

[offtopic]Наверное этому пользователю мы дадим звание «Выключитель». Ибо ему то фокус надо отключить, то мышь и клавиатуру.[/offtopic]

[Khachkara]

А как же тогда быть с текстовыми полями или полями ввода данных...?

Может же быть, так что в приложении нет никаких полей для ввода и текстовых полей.

Какого черта может понадобиться отключать отображение фокус-ректа? Цель: навредить пользователю?

Как вы догадались?
А вы что из отдела по защите прав потребителя?

А какая ему разница? Ему главное "отключить фокус на объекты", а как на это будет реагировать пользователь или система...

Давайте, пожалуйста, по конструктивней господа, если знаете ответ, будьте добры поделитесь им, пожалуйста, если вам жалко делиться своим опытом и знаниями можете этого не делать, но и не надо ничего писать и критиковать и отвлекать всех. Тут люди обращаются за помощью, а не за критикой, не все должны писать программы как это делаете вы. Знаете ответ – отвечайте, не знаете не надо лирикой заниматься. Лирикой это еще мягко сказано.
Такое ощущение что вы пишете всё это ради того чтобы увеличить количество сообщений и повысить свой рейтинг.

[Khachkara]

Наверное этому пользователю мы дадим звание «Выключитель». Ибо ему то фокус надо отключить, то мышь и клавиатуру.

За звание спасибо господа критики.
Зато я сейчас знаю, как выключить мышь и клавиатуру, а как этим пользоваться, это уже другой вопрос.
Давайте сразу договариваться, я еще много чего буду отключать и включать на этом форуме и я готов принять любую критику после того как дадите решение на мой вопрос.

[Хакер]

А вы что из отдела по защите прав потребителя?

Нет, я из отдела по борьбе с бредом и созданием плохих программ.

не все должны писать программы как это делаете вы.

Все должны писать программы так, как это указано в guidlines.

и не надо ничего писать и критиковать и отвлекать всех.

Вообще-то, каждый имеет право писать всё, что он хочет. Лишь бы это не противоречило правилам. Каждый имеет право отвечать, не отвечать, отвечать ровно в той степени, в какой посчитает нужным, давать не обязательно правильные ответы.
Вообще-то, я бы советовал тебе сменить тон, и не вести себя так, как будто тебе тут все должны. Тебе здесь, во-первых, никто ничего не должен. Во-вторых, в данном случае «отвлекать всех» (под «всеми» ты же имеешь в виду остальных быдлокодеров, людей, разделяющих твои взгляды) полезно.

[Khachkara]

Вообще-то, каждый имеет право писать всё, что он хочет. Лишь бы это не противоречило правилам. Каждый имеет право отвечать, не отвечать, отвечать ровно в той степени, в какой посчитает нужным, давать не обязательно правильные ответы.
Вообще-то, я бы советовал тебе сменить тон, и не вести себя так, как будто тебе тут все должны. Тебе здесь, во-первых, никто ничего не должен. Во-вторых, в данном случае «отвлекать всех» (под «всеми» ты же имеешь в виду остальных быдлокодеров, людей, разделяющих твои взгляды) полезно.

С вами все ясно.
Быдлокодеры как раз именно те кто надули своё самомнение и считают себя богом в программировании и не несут никакого конструкива в своих сообщениях.
Будь другом не читай мои сообщения и не отвечай на них я тебе очень прошу, только одно твоё фото раздражает меня.
Я не хочу чтобы ты меня учил и помогал.

[MIT]

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

[Хакер]

Будь другом не читай мои сообщения и не отвечай на них я тебе очень прошу, только одно твоё фото раздражает меня.
Я не хочу чтобы ты меня учил и помогал.

Советю почитать правила. Там написано:

Форумы предоставляются по принципу "AS IS" ("как есть"), администрация не гарантирует, что форумы не содержат ошибок, а также не несет никакой ответственности за прямые или косвенные последствия использования форумов, в том числе возникшие из-за возможных ошибок или опечаток в форуме.

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

Иными словами: Не нравится — тебя здесь никто не держит.

[Khachkara]

Подскажите пожалуйста, как отключить фокус на объекты так чтобы на экране не было видно, что на данном объекте есть фокус.
Просьба писать по сути, болтовни не надо.

[Хакер]

Никак, ё-моё.

[Khachkara]

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

Вспоминай пожалуйста

[arvitaly]

А если передавать фокус другому объекту за пределами видимости?

[Хакер]

Угу. И все клавиатурные сообщения будут идти ему...

[arvitaly]

Может же быть, так что в приложении нет никаких полей для ввода и текстовых полей.

Исходил из этого, и потом что страшного в этом (text1 -невидимый контрол)

Private Sub text1_Change()
text2.Text = text1.Text
End Sub

Private Sub text2_GotFocus()
text1.SetFocus
End Sub

[Хакер]

Во-первых, причём тут TextBox? Автор написал, что у него их нет. У него кнопки, например. Во-вторых, если бы у автора были бы текстбоксы, ты бы каждому TB создавал напарника?

[arvitaly]

Код: Выделить всё

'На форме нужно расположить 2 кнопки (command1 и command2) и текстбокс, command1 - за пределы видимости
Dim objSF As Long
Private Const WM_KEYUP = &H101
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Private Sub command1_KeyUp(KeyCode As Integer, Shift As Integer)
    MsgBox "На скрытой кнопке нажали и отпустили " & Chr(KeyCode)
End Sub

Private Sub command2_KeyUP(KeyCode As Integer, Shift As Integer)
Dim kc As Long
    kc = KeyCode
    Call SendMessage(objSF, WM_KEYUP, kc, 0)
End Sub


Private Sub command1_GotFocus()
    objSF = command1.hwnd
    command2.SetFocus
End Sub

Private Sub text1_GotFocus()
    objSF = text1.hwnd
    command2.SetFocus
End Sub

Private Sub text1_KeyDown(KeyCode As Integer, Shift As Integer)

End Sub

Private Sub text1_KeyUp(KeyCode As Integer, Shift As Integer)
    MsgBox "На скрытой кнопке нажали и отпустили " & Chr(KeyCode)
End Sub

Ну и вообще можно делать что угодно

[Хакер]

Наивный ты.

Кнопки не единственная вещь в мире, которая может иметь фокус. Фокус может быть у ListView, TreeView, скроллеров, слайдеров, апдаунов, Option и Check боксов.

Предлагаешь дублировать всё? Предлагаешь писать тонны кода?

[arvitaly]

Во первых я не наивный а реалистичный.

Есть задача - есть решение.

Во вторых где там тонны кода? Если лень тогда можно добавить 6 различных элементов (как то листбокс, комбобокс и т.д.) и 6 строчек кода на каждое событие.

Во вторых. Если не лень число строчек можно сократить в 6 раз, как показано у меня в примере

[SLIM]

Да вы что в самом то деле?
Зачем такое может понадобиться в Win32 приложении?
Сказано русским языком - фокус должен быть при открытии по умолчанию на кнопке "ОК" или подобных.
Давай еще и tab-перемещение отменим нафиг. Пусть пользователь вообще сума сойдет.
А еще лучше чтобы пользователь только видел окно, но ничего не мог с ним сделать - даже закрыть. В том числе через завершение процессов. И чтобы винда не перезагружалась и чтобы свет не вырубался. Пусть будет вечное приложение на экране.

[arvitaly]

SLIM

Я честно целый час думал зачем это может понадобиться, но на ум ничего так и не пришло, АВТОР поведай ЧТО ЗА ЧУДО ЮДО?

[Williams]

Я в начале карьеры тоже убирал фокусректы с кнопок, т.к. они по-моему мнению плохо смотрелись

[dr.MIG]

Конструктивное предложение автору: напиши свой контрол и реализуй в нем любое нужное тебе поведение, в том числе отсутствие rect-a.


Обязательно напиши свой контрол, ибо нереализованные сексуальные фантазии (отключение фокуса, клавиатуры, мыши и т.п.) могут вылиться в реальное соматическое заболевание...

[Khachkara]

Я в начале карьеры тоже убирал фокусректы с кнопок, т.к. они по-моему мнению плохо смотрелись

подскажи пожалуйста как ты это делал

Конструктивное предложение автору: напиши свой контрол и реализуй в нем любое нужное тебе поведение, в том числе отсутствие rect-a.
Обязательно напиши свой контрол, ибо нереализованные сексуальные фантазии (отключение фокуса, клавиатуры, мыши и т.п.) могут вылиться в реальное соматическое заболевание...

Я не волшебник я только учусь и контроли писать не умею

Да вы что в самом то деле?
Зачем такое может понадобиться в Win32 приложении?
Сказано русским языком - фокус должен быть при открытии по умолчанию на кнопке "ОК" или подобных.
Давай еще и tab-перемещение отменим нафиг. Пусть пользователь вообще сума сойдет.
А еще лучше чтобы пользователь только видел окно, но ничего не мог с ним сделать - даже закрыть. В том числе через завершение процессов. И чтобы винда не перезагружалась и чтобы свет не вырубался. Пусть будет вечное приложение на экране.

так надо...

[Khachkara]

Спасибо за слово

фокусректы

с помощью его нашел ссылку
http://msdn.microsoft.com/en-us/library/aa240296(VS.60).aspx
вижу, что можно скрыть фокус, но пока не разобрался в синтаксисе
object.FocusRect [= value]
что подразумевается под словом object?
Это может быть кнопка, TextBox и т.д.
Я пробовал применить на кнопке, не получилось.

[iGrok]

что подразумевается под словом object?
Это может быть кнопка, TextBox и т.д.
Я пробовал применить на кнопке, не получилось.

Это может быть только MSFlexGrid/MSHFlexGrid. Там это написано, если что.

[Khachkara]

Это может быть только MSFlexGrid/MSHFlexGrid. Там это написано, если что.

А что это за тип объектов?
Это Visual Basic или другой язык. Вроде было написано VB

[Хакер]

Это контрол. Причём тут языки?