Конференция VBStreets

**Алексей_87** » 21.01.2005 (Пт) 19:35

Как сделать кнопку выхода на стандартной панели в форме недоступной, как например это сделано в Nero Birning Rom?

**Alexanbar** » 21.01.2005 (Пт) 19:46

**Александр80** » 22.01.2005 (Сб) 0:01

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

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, _
ByVal wFlags As Long) As Long

Const MF_BYPOSITION = &H400&
Public Sub RemoveCloseMenu(frm As Form)
Dim hSysMenu As Long
hSysMenu = GetSystemMenu(frm.hwnd, 0)
Call RemoveMenu(hSysMenu, 6, MF_BYPOSITION)
Call RemoveMenu(hSysMenu, 5, MF_BYPOSITION)
End Sub

Private Sub Form_Load()
RemoveCloseMenu Me
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Попробуй... :lol:

**tyomitch** » 22.01.2005 (Сб) 8:20

Некрасиво из-за того, что пункт "Закрыть" из системного меню удаляется совсем... Хотелось бы оставить его задизабленным.

**Алексей_87** » 22.01.2005 (Сб) 8:54

Нечего не работает(даже с сайта)! Я пишу на VB.NET и вместо frm у меня пространство имён system.windows.forms.form, там нет свойства hwnd или как его там.

**Александр80** » 22.01.2005 (Сб) 15:06

Алексей_87 писал(а):Нечего не работает(даже с сайта)! Я пишу на VB.NET и вместо frm у меня пространство имён system.windows.forms.form, там нет свойства hwnd или как его там.

Я давал для VB6, а не для NET... :cry:

А VB6 работать должно... :wink:

**Алексей_87** » 22.01.2005 (Сб) 15:29

Александр80 писал(а):
Алексей_87 писал(а):Нечего не работает(даже с сайта)! Я пишу на VB.NET и вместо frm у меня пространство имён system.windows.forms.form, там нет свойства hwnd или как его там.

Я давал для VB6, а не для NET...
А VB6 работать должно...

Я понимаю что в VB6.0 оно будет работать, а в .NET чаво делать то?

**A.A.Z.** » 22.01.2005 (Сб) 22:24

Код: Выделить всё: Private Declare Auto Function DeleteMenu Lib "user32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer Private Declare Auto Function GetSystemMenu Lib "user32" (ByVal hwnd As Integer, ByVal bRevert As Integer) As Integer Private Sub DisableX() DeleteMenu(GetSystemMenu(CInt(Me.Handle.ToInt32), False), 6, 1024) End Sub

А вообще это надо в форум Visual Basic .NET писать :roll: