Как заблокировать/разблокировать любое окно? - Система - Интересные решения для программистов - Примеры кода

Система → Как заблокировать/разблокировать любое окно? → Visual Basic

Создайте стандартный EXE-проект. На форме (Form) разместите элемент TextBox и два элемента CommandButton. Вставьте ниже следующий код и запустите проект (клавиша F5). В текстовое поле (Text1) введите заголовок любого активного окна и нажмите на первую кнопку (Command1), после чего указанное Вами окно не будет реагировать не на какие действия. Нажатие на вторую кнопку (Command2) разблокирует окно.

disable, enable, vb, visual basic, window

KOS_MOS

unknown

19.10.2008

Меню

Подписка на RSS:

Подпишись на RSS-ленту

Поиск

Облако тегов

	Система → Как заблокировать/разблокировать любое окно? → Visual Basic Создайте стандартный EXE-проект. На форме (Form) разместите элемент TextBox и два элемента CommandButton. Вставьте ниже следующий код и запустите проект (клавиша F5). В текстовое поле (Text1) введите заголовок любого активного окна и нажмите на первую кнопку (Command1), после чего указанное Вами окно не будет реагировать не на какие действия. Нажатие на вторую кнопку (Command2) разблокирует окно. Option Explicit #If Win32 Then Private Declare Function EnableWindow _ Lib "user32" (ByVal hWnd As Long, _ ByVal fEnable As Long) As Long Private Declare Function FindWindow _ Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long #Else Private Declare Function EnableWindow _ Lib "user" (ByVal hWnd As Integer, _ ByVal aBOOL As Integer) As Integer Private Declare Function FindWindow _ Lib "user" (ByVal lpClassName As Any, _ ByVal lpWindowName As Any) As Integer #End If Private Function DisWin(WindowName As String, EnabOrDisab As Long) Dim lFndWnd As Long Dim lDisEnWnd As Long lFndWnd = FindWindow(vbNullString, WindowName) lDisEnWnd = EnableWindow(lFndWnd, ByVal EnabOrDisab) End Function 'Заблокировать окно Private Sub Command1_Click() DisWin Text1, 0 End Sub 'Разблокировать окно Private Sub Command2_Click() DisWin Text1, 1 End Sub disable, enable, vb, visual basic, window KOS_MOS unknown 19.10.2008 Ваше имя Ваш E-mail (если хотите отслеживать комментарии) Дoкажи, что ты не робот Текст комментария	Меню CodeIgniter Алгоритмы Базы данных Дата и Время Интернет Интерфейс Мультимедиа ОС и Железо Работа с текстом Разное Технологии Файлы Подписка на RSS: Подпишись на RSS-ленту Поиск Облако тегов .net array asp bash browser charset check class clean convert count create css curl database date delete directory download element email equivalent extension file find form format function get height html http ie image javascript jquery load mysql number page perl php random scriplet send shell size sql string text time url utf8 variable vb visual basic width window xml xslt