|
|
|
|
|
|
|
|
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
|
|
|
|
|
