Fechar o form

[hazzy 0]

Olá a todos! :D

 

 

 

1 - Como é que tiro o "X" no canto superior direito sem tirar o icon do form ??

 

2 - Quando carrego no "X" no canto superior direito da para mostrar uma MsgBox a perguntar se quero fechar ??

 

Obrigado :D

[Claudio Neto 3]

Olá a todos! :D

 

 

 

1 - Como é que tiro o "X" no canto superior direito sem tirar o icon do form ??

 

2 - Quando carrego no "X" no canto superior direito da para mostrar uma MsgBox a perguntar se quero fechar ??

 

Obrigado :D

Hazzy, quanto a sua primeira dúvida, não sei não, acredito que não dê para tirar o x.

 

Quanto a segunda, faça no evento form_unload, independente da forma como for fechado o programa ele vai cair nesse evento e realizar a função que deseja.

 

Abraços.

[hazzy 0]

Hazzy, quanto a sua primeira dúvida, não sei não, acredito que não dê para tirar o x.Quanto a segunda, faça no evento form_unload, independente da forma como for fechado o programa ele vai cair nesse evento e realizar a função que deseja.Abraços.

Claudio Neto Obrigado :DEu perguntei a minha profesora de Bases de Programação e ela disse-me que dava para tirar, mas não sabia como. Com a sua ajudar já da para resolver o que queria. Caso alguem saiba como retirar o "X" (botão para fechar o form) ao form agredecia que responde-se :DObrigado a todos :P

[Mauricio Silva 0]

Hazzy, quanto a sua primeira dúvida, não sei não, acredito que não dê para tirar o x.Quanto a segunda, faça no evento form_unload, independente da forma como for fechado o programa ele vai cair nesse evento e realizar a função que deseja.Abraços.

Claudio Neto Obrigado :DEu perguntei a minha profesora de Bases de Programação e ela disse-me que dava para tirar, mas não sabia como. Com a sua ajudar já da para resolver o que queria. Caso alguem saiba como retirar o "X" (botão para fechar o form) ao form agredecia que responde-se :DObrigado a todos :P

Private Sub Form_Load() vCont = 0 SetTranslucent Me.hwnd, 0 curalpha = 0 TmrAnima.Enabled = True Dim hSysMenu As Long Dim nCnt As Long 'Get handle to our form's system menu '(Restore, Maximize, Move, close etc.) hSysMenu = GetSystemMenu(Me.hwnd, False) If hSysMenu Then ' Get System menu's menu count nCnt = GetMenuItemCount(hSysMenu) If nCnt Then 'Menu count is based on 0 (0, 1, 2, 3...) RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE ' Remove the seperator DrawMenuBar Me.hwnd 'Force caption bar's refresh. Disabling X button End If End IfEnd SubUsa isso q funciona.. é o cod q uso no meu prog....

[hazzy 0]

Private Sub Form_Load() vCont = 0 SetTranslucent Me.hwnd, 0 curalpha = 0 TmrAnima.Enabled = True Dim hSysMenu As Long Dim nCnt As Long 'Get handle to our form's system menu '(Restore, Maximize, Move, close etc.) hSysMenu = GetSystemMenu(Me.hwnd, False) If hSysMenu Then ' Get System menu's menu count nCnt = GetMenuItemCount(hSysMenu) If nCnt Then 'Menu count is based on 0 (0, 1, 2, 3...) RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE ' Remove the seperator DrawMenuBar Me.hwnd 'Force caption bar's refresh. Disabling X button End If End IfEnd SubUsa isso q funciona.. é o cod q uso no meu prog....

Não funciona o codigo : O--x-- Sub or function not defined --x--se alguem pode ajudar ?? : (obrigado