Blokiranje X tastera

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Jedno kratko pitanje. Zanima me kako u da u vb na formi taster X ucinim ne dostupnim tako da korisnik mora da klikne na dugme izlaz koje ja napravim.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Const MF_BYPOSITION = &H400&
Private Const MF_DISABLED = &H2&
Public Sub DisableX(Frm As Form)
Dim hMenu As Long
Dim nCount As Long
hMenu = GetSystemMenu(Frm.hwnd, 0)
nCount = GetMenuItemCount(hMenu)
Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION)
DrawMenuBar Frm.hwnd
End Sub

Private Sub Command1_Click()
DisableX Me
End Sub


ovo ce resiti problem

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

tnx it works

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

naravno da radi

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

A kako sa minimize i maximize?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

imas sa strane u properties-u stranice i stavis da je minButton i maxButton = False

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

E Hvala!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

a mozes i kompletan toolbox da skines.
kao i kompletnu naslovnu liniju...