DUVIDASINHA - DESABILITAR BOTOES

USUARIO.EXCLUIDOS 22/11/2006 11:09:02
#185733
queria saber como fasso para que quando meu programa estiver baixando os arquivos ele desabilite os botoes do programa
LUIS.FLAVIO 22/11/2006 11:34:43
#185739
Para chamar:
Travar Me

Public Sub Travar(F as Form)
Dim i as integer
 For i = 1 To F.Controls.Count - 1
  If TypeOf F.Controls(i) Is TextBox Then F.Controls(i).Enable = False
 Next i
End If
End Sub
LUIS.FLAVIO 22/11/2006 11:38:38
#185741
Amigo me desculpe errei é assim:

Public Sub Travar(F As Form)
Dim i As Integer
 For i = 0 To F.Controls.Count - 1
  If TypeOf F.Controls(i) Is CommandButton Then F.Controls(i).Enabled = False
 Next i
End Sub
FELIPEA 22/11/2006 11:44:23
#185743
Como CHAAPOLINN disse, use "ENABLED = FALSE" para desabilitar os botões. Depois do download, vc usa ENABLED = TRUE para reabilitar os botões que foram desabilitados


Mas criar um frame e dessabilita-lo com todos os botões dentro também vale, por ser mais pratico e usar menos linhas


edit: malz ae LUIS FLAVIO, postei depois de vc
LIONHEART 22/11/2006 12:17:51
#185761
só pra deixar uma alternativa mais performante (a do Luiz tá excelente, faz o que vc quer)

Chamada:
---------------------------------------------------------
HabilitarBotoes False
---------------------------------------------------------

Função
---------------------------------------------------------
Private Function HabilitarBotoes(bHabilitar As Boolean)
    Dim oBotao As CommandButton
    For Each oBotao In Form1
        oBotao.Enabled = bHabilitar
    Next
End Function



Então, no começo do download vc usa

HabilitarBotoes FALSE

no fim,

HabilitarBotoes TRUE
LCSD 22/11/2006 12:44:07
#185765
Muito bom o exemplo do Luiz.....

Mas !! e se você quiser cancelar o download ?

Então vc deveria deixar um botão habilitado tipo "CANCELAR". E para isso basta vc adicionar a seguinte linha no código do Luiz Flavio:

 Public Sub Travar(F As Form)
Dim i As Integer
 For i = 0 To F.Controls.Count - 1
  If TypeOf F.Controls(i) Is CommandButton Then F.Controls(i).Enabled = False
  cmdCancelarDownload.Enabled = True ' AQUI VC DEIXARà APENAS ESTE BOTÃO HABILITADO
 Next i
End Sub

LIONHEART 22/11/2006 12:51:16
#185766
ou simplesmente põe um

HabilitarBotoes TRUE

no botão cancelar
Tópico encerrado , respostas não são mais permitidas
Voltar