Программирование
Веб программирование

Делаем объекты не активными через API

 
 

Разместите на форму одну кнопку.

Private Declare Function EnableWindow Lib "user32" _
                (ByVal hwnd As Long, ByVal fEnable As Long) As Long

Private Sub Form_Load()
Dim lngEnable& 'Переменная типа Long
    lngEnable& = EnableWindow(Me.Command1.hwnd, 0) '0 Объект становится не активным, 1 активный
End Sub

Есть вопросы? Спроси на нашем форуме!!
Нет комментариев

Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.