• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

nram

[VB6] Botao

10 mensagens neste tópico

Estou a fazer um trabalho que irá ter várias forms, como fazer com que o botão "FECHAR" (na barra de titulo das janelas do windows) fique desabilitado??

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

assim à primeira vista acho que isso n da para ser feito sem recorreres a recursos externos :hmm:

uma coisa que podes fazer é tratar um evento para que quando uma pessoa clique no botão ele não faça nada  ;)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

oi. vê se é isto que queres.... ;)

Option Explicit

Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Const MF_BYPOSITION = &H400&

Private ReadyToClose As Boolean

Private Sub RemoveMenus(frm As Form, _

    remove_restore As Boolean, _

    remove_move As Boolean, _

    remove_size As Boolean, _

    remove_minimize As Boolean, _

    remove_maximize As Boolean, _

    remove_seperator As Boolean, _

    remove_close As Boolean)

Dim hMenu As Long

   

    ' Get the form's system menu handle.

    hMenu = GetSystemMenu(hwnd, False)

   

    If remove_close Then DeleteMenu hMenu, 6, MF_BYPOSITION

    If remove_seperator Then DeleteMenu hMenu, 5, MF_BYPOSITION

    If remove_maximize Then DeleteMenu hMenu, 4, MF_BYPOSITION

    If remove_minimize Then DeleteMenu hMenu, 3, MF_BYPOSITION

    If remove_size Then DeleteMenu hMenu, 2, MF_BYPOSITION

    If remove_move Then DeleteMenu hMenu, 1, MF_BYPOSITION

    If remove_restore Then DeleteMenu hMenu, 0, MF_BYPOSITION

End Sub

Private Sub cmdClose_Click()

    ReadyToClose = True

    Unload Me

End Sub

Private Sub Form_Load()

    ' Remove the Close system menu item and the

    ' menu separator.

    RemoveMenus Me, False, False, _

        False, False, False, True, True

End Sub

' Cancel if ReadyToClose is false.

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    Cancel = Not ReadyToClose

End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

:S...

não percebi o código...

mas tentei testa-lo e não deu... :S..

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

boas...

porque  nao tiras a barra de titulo e tá o assunto arrumado??

tipo nas propriedades do form (borderstyle = 0 - none)

cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

:S...

não percebi o código...

mas tentei testa-lo e não deu... :S..

Tão.... +e pra desabilitar o botão fechar, n era isso que querias?

é só copiares e colares

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

:S...

não percebi o código...

mas tentei testa-lo e não deu... :S..

é só copiares e colares

mas eu copiei e colei e deu erro...!!! nem abriu a pagina... :X... (nao te posso dizer qual foi o erro pk nao estou no pc correcto para isso... (mas logo já te digo quel é)....

Tão.... +e pra desabilitar o botão fechar, n era isso que querias?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas

olha n sei s ja resolves-t o teu problema mas se fores as propriedades do teu form e mete a propriedade  CONTROLBOX em FALSE e saka-t os boteos do form...

Cumprimentos,

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora