USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Crie uma opcao 'Não mostre novamente' em seu programa
Postada em 3/2/2003 por Felipe            
'No form1 adicione um command (Command1)

Private Sub Command1_Click()
    Form2.Check1.Value = Val(GetSetting("MyApp", "General", "DontShow", 0))
    Form2.Show
End Sub

Private Sub Form_Load()
    If GetSetting("MyApp", "General", "DontShow", 0) = 0 Then
        Form2.Check1.Value = Val(GetSetting("MyApp", "General", "DontShow", 0))
        Form2.Show
    End If
End Sub

'Crie outro formulário (Form2) e adicione um CheckBox
Private Sub Check1_Click()
    SaveSetting "MyApp", "General", "DontShow", Check1.Value
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página