Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Sanek
1

Как заблокировать главное меню?

14.05.2007, 01:04. Показов 1223. Ответов 6
Метки нет (Все метки)

Как заблокировать главное меню?
Чтобы его вобще нельзя было использовать
(ни с клавы ни с мыши)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.05.2007, 01:04
Ответы с готовыми решениями:

Как заблокировать контекстное меню?
В стандартном текстовом поле при нажатии ПКМ появляется контекстное меню. Вопрос - как сделать...

Как заблокировать диспетчер
Как заблокировать сочетание Alt-Ctrl-Del и Alt-F4?

Как программно заблокировать клавиатуру?
Как программно заблокировать клавиатуру?

Как заблокировать/разблокировать папку
Известно, что API-функцией... OpenFileReadOnly = CreateFile(StrPtr(FileName), _ ...

__________________
6
VladK
14.05.2007, 02:20 2
Главное Меню чего?
Если формы, то убери галочку в Enable. Или сделай свойство Enabled = False в коде.
Sanek
14.05.2007, 09:05 3
Тоесть я хотел сказать про 'панель задач и
меню Пуск'
1 / 1 / 1
Регистрация: 07.05.2007
Сообщений: 126
14.05.2007, 15:26 4
Это добавляется в Module

Declare Function EnableWindow Lib 'user32' (ByVal hwnd As Long, _
ByVal fEnable As Long) As Long
Declare Function IsWindowEnabled Lib 'user32' (ByVal hwnd As _
Long) As Long
Declare Function GetMenu Lib 'user32' (ByVal hwnd As Long) As Long
Declare Function FindWindow Lib 'user32' Alias 'FindWindowA' _
(ByVal lpClassName As String, ByVal lpWindowName As String) _
As Long
Declare Function SystemParametersInfo Lib 'user32' Alias _
'SystemParametersInfoA' (ByVal uAction As Long, ByVal uParam _
As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Public TaskBarhWnd As Long
Public IsTaskBarEnabled As Integer
Public TaskBarMenuHwnd As Integer

Это в форму

Public Sub DisableTaskBar()

Dim EWindow As Integer
TaskBarhWnd = FindWindow('Shell_traywnd', '')
If TaskBarhWnd <> 0 Then
EWindow = IsWindowEnabled(TaskBarhWnd)
If EWindow = 1 Then
IsTaskBarEnabled = EnableWindow(TaskBarhWnd, 0)
End If
End If

End Sub

Public Sub EnableTaskBar()

If IsTaskBarEnabled = 0 Then
IsTaskBarEnabled = EnableWindow(TaskBarhWnd, 1)
End If

End Sub
Sub FastTaskSwitching(bEnabled As Boolean)
Dim X As Long, bDisabled As Long
bDisabled = Not bEnabled
X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub

Private Sub Command1_Click()
' Set CancelError is True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' Set flags
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.DialogTitle = 'dfdf' ' zagolovok okna
CommonDialog1.Filter = 'All Files (*.*)|*.*|Text Files' & _
'(*.txt)|*.txt|Batch Files (*.bat)|*.bat' ' filtr
CommonDialog1.FilterIndex = 2 ' Specify default filter
CommonDialog1.ShowOpen ' Display the Open dialog box
MsgBox CommonDialog1.FileName ' Display name of selected file
Exit Sub

ErrHandler:
'User pressed the Cancel button
Exit Sub

End Sub
Private Sub Command3_Click()
DisableTaskBar
FastTaskSwitching False
End Sub


Private Sub Command4_Click()

EnableTaskBar
FastTaskSwitching True
End Sub
0
1 / 1 / 1
Регистрация: 07.05.2007
Сообщений: 126
14.05.2007, 15:28 5
Да не забудь в форму поставить 2 кнопки.
0
Sanek
17.05.2007, 14:19 6
Спасибо, следующий раз можеш не расписывать
что в модуль, что в ...
Я сообразительный ...
Sanek
17.05.2007, 14:20 7
Спасибо, следующий раз не трать время на расписывание что в модуль, что в ...
Я сообразительный ...
Спасибо
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.05.2007, 14:20

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Как заблокировать сочетание Alt+f4 ?
Как заблокироватЬ такое сочетание клавиш?

Как заблокировать строку в Listbox1
Как заблокировать строку(ячейку) в Listbox1

Как избавится от меню пуск, или как узнать когда это меню открыли?
Как избавится от меню пуск, или как узнать когда это меню открыли???

Как вернуться в главное меню!
Всем привет!Я сделал простенькую программу,которая записывает что-то в файл и выводит то,что...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.