запуск окна поверх всех окон

Тема в разделе "Visual Basic 6 / Сценарии VBScript, JScript", создана пользователем alex_diablo, 28 сен 2016.

Метки:
  1. alex_diablo
    Оффлайн

    alex_diablo Пользователь

    Сообщения:
    104
    Симпатии:
    7
    есть скрипт:

    Код (vb.net):
    sub install
    nVar = MsgBox ("On your computer will be installed Unity. Would you want to start the installation now?" & vbCrLf & "" & vbCrLf & "Choose item:" & vbCrLf & "" & vbCrLf & "" & vbCrLf & "YES - Start installation immediately" & vbCrLf & "" & vbCrLf & "NO - Hold over installation for few minutes" & vbCrLf & "" & vbCrLf & "CANCEL - Cancel installation" , vbInformation + vbYesNoCancel, "Unity installer")
    '6 - yes
    '7 - no
    '2 - cancel
    select case nVar
    case 6
    call start
    case 7
    WScript.Sleep 180000
    call install
    end select
    end sub

    sub start
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set textFile = objFSO.OpenTextFile("c:\windows\temp\file1.vbs", 8, True)
    textFile.WriteLine "1"
    textFile.Close
    end sub
    sub cancel
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set textFile = objFSO.OpenTextFile("c:\windows\temp\file2.txt", 8, True)
    textFile.WriteLine "2"
    textFile.Close
    end sub

    call install
    нужно сделать, чтобы при запуске скрипта окошко появлялось поверх всех окон и не уходило на задний план при переключении на другие окна.
    можно так сделать?
    подскажите пожалуйста, куда чего дописать.
     
  2. Сергей
    Оффлайн

    Сергей Активный пользователь

    Сообщения:
    254
    Симпатии:
    120
    Попробуй к vbInformation + vbYesNoCancel добавить + vbSystemModal
     
    лис.хвост и Dragokas нравится это.
  3. alex_diablo
    Оффлайн

    alex_diablo Пользователь

    Сообщения:
    104
    Симпатии:
    7
    отлично, спасибо!
     

Поделиться этой страницей