DUVIDA

ROBFERREIRAA 30/06/2012 16:14:28
#405254
ola meus camaradas alguem ai sabe como reiniciar o formulario do zero apos salvar os dados ?
e que tenho um form que deixa um botoes desativados apos uma determinada ação, gostaria que apos de por exemplo clicar em excluir dados ele reiniciasse e deixasse todos os botoes ativados
grato
OMAR2011 30/06/2012 18:14:46
#405256
Estranhoooooo? E muito.
ROBFERREIRAA 01/07/2012 22:02:30
#405290
vc teria um exemplo grato ?
OMAR2011 01/07/2012 22:56:12
#405291
Robson Ferreira

Que tipo de programação você faz?
PEGUDO 02/07/2012 09:06:27
#405302
Cara, não sei se é o que realmente você quer mas pode ser assim...
Private Sub ControlaBotoes(Byval QualOpcao As Boolean)
   [txt-color=#0000f0] With [/txt-color]Form1 [txt-color=#007100][ô]Ou Me se esta Sub estiver no Form1[/txt-color]
        For Each Botao As Button In .Controls.OfType(Of Button)
                Botao.Enabled = QualOpcao
        Next
    End [txt-color=#0000f0]With[/txt-color]
End Sub

No Click do botão você coloca:
ControlaBotoes(False) [txt-color=#007100][ô]Para desativar os botões[/txt-color]

ou
ControlaBotoes(True) [txt-color=#007100][ô]Para ativar os botões[/txt-color]
ROBFERREIRAA 06/07/2012 00:09:46
#405637
vou testar mais obrigado e desculpa a demora pra responder
ROBFERREIRAA 07/07/2012 13:56:22
#405696
a minha intenção é recarrgar a pagina com todos os botões habilitados depois da atualização ou do delete quando recarregar o form
FFCOUTO 07/07/2012 19:22:48
#405698 Resposta escolhida
Se ao iniciar o seu form você já deixa as condições para habilitar / desabilitar os comandos, basta ao fim da sua rotina você chamar a sub Form_Load


Private Command1_Click()
   [ô] Seus comandos
  Form_Load
End Sub

Private Sub Form_Load()
   [ô]Desabilita os comandos
   Command1.Enabled = True
   Command2.Enabled = False
   [ô]etc
End Sub
PEGUDO 09/07/2012 09:21:44
#405721
Então...
Pra usar o procedimento que te passei, faça assim...
crie a procedure:

[txt-color=#0000f0]Private Sub [/txt-color]ControlaBotoes([txt-color=#0000f0]Byval[/txt-color] QualOpcao [txt-color=#0000f0]As Boolean[/txt-color])
   With Form1 [ô]Ou Me se esta Sub estiver no Form1
        [txt-color=#0000f0]For Each [/txt-color]Botao [txt-color=#0000f0]As[/txt-color] Button [txt-color=#0000f0]In[/txt-color] .Controls.OfType([txt-color=#0000f0]Of[/txt-color] Button)
                Botao.Enabled = QualOpcao
        [txt-color=#0000f0]Next
    End With
End Sub[/txt-color]

No seu código, chame a prodedure acima assim:

[txt-color=#0000f0]Private Sub[/txt-color] Button1_Click([txt-color=#0000f0]ByVal[/txt-color] sender As System.Object, ByVal e As System.EventArgs) [txt-color=#0000f0]Handles[/txt-color] Button1.Click
    ControlaBotoes([txt-color=#0000f0]False[/txt-color]) [txt-color=#007100][ô]Desabilita os botões para que o usuário não clique enquanto atualiza ou deleta os dados[/txt-color]
    
    [txt-color=#007100][ô]### Seu código para deletar ou atualizar os dados[/txt-color]

   ControlaBotoes([txt-color=#0000f0]True[/txt-color]) [txt-color=#007100][ô]Habilita os botões após o processo de atualização ou deletar os dados[/txt-color]
[txt-color=#0000f0]End Sub[/txt-color]

Você só tem que se lembrar de que, se os botões estiverem dentro de um container (um GroupBox, por exemplo), você tem que indicar na procedure [Ô]ControlaBotoes[Ô] onde estão os botões.
Exemplo: Supnha que meus botões estejam dentro do [Ô]GroupBox1[Ô]

[txt-color=#0000f0]Private Sub [/txt-color]ControlaBotoes([txt-color=#0000f0]Byval[/txt-color] QualOpcao [txt-color=#0000f0]As Boolean[/txt-color])
   With Form1 [ô]Ou Me se esta Sub estiver no Form1
        [txt-color=#0000f0]For Each [/txt-color]Botao [txt-color=#0000f0]As[/txt-color] Button [txt-color=#0000f0]In[/txt-color] .GroupBox1.Controls.OfType([txt-color=#0000f0]Of[/txt-color] Button)
                Botao.Enabled = QualOpcao
        [txt-color=#0000f0]Next
    End With
End Sub[/txt-color]


Espero ter ajudado.
ROBFERREIRAA 09/07/2012 13:12:14
#405727
vou testar muito obrigado pela força
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar