На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Правила раздела Visual Basic: Общие вопросы
Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image FAQ Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google

Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
  
> Выбить полноэкранное приложение. , VB 6.0.
    Нужно программно, с помощью кода VB6, выбить (свернуть) текущее полноэкранное приложение пользователя - и сделать фокус на своей программе.
      Цитата Сергей85 @
      выбить

      >:(

      Но если совсем сильно надо, пробуй.
        ExpandedWrap disabled
          Private Function vFullScreen_Brake()
          1 On Error GoTo ErrorHandler
           
          2 Dim lWindowHandle As Long
           
          3 lWindowHandle = FindWindow(vbNullString, Trim(App.Title))
           
          4 If lWindowHandle <> 0 Then SetForegroundWindow (lWindowHandle)
           
          1000000 Exit Function
          ErrorHandler:
          1000001 MsgBox ("Ошибка функции vFullScreen_Brake №" & Err.Number & ", '" & Err.Description & "', строка " & Erl())
          End Function



        'Сворачивание полноэкранного приложения.
        Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
        Private Declare Function SetForegroundWindow& Lib "user32" (ByVal hwnd As Long)
          Ты смотрел мою ссылку? Где RegisterHotKey? Сама по себе SetForegroundWindow не свернёт полноэкранное приложение.
            Цитата B.V. @

            Все успешно работает. На разных ОС.

            "RegisterHotKey" в исходном коде отсутствует.
            0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
            0 пользователей:


            Рейтинг@Mail.ru
            [ Script execution time: 0,0290 ]   [ 17 queries used ]   [ Generated: 28.03.24, 18:28 GMT ]