|
Option Explicit Private Sub cboAggiornamento_Click() cmdOk.Enabled = True End Sub Private Sub chkDisattiva_Click() cmdOk.Enabled = True End Sub Private Sub cmdIndietro_Click() Unload Me End Sub Private Sub cmdOK_Click() Dim a As Integer a = FreeFile 'Memorizzo in questo file la scelta effettuata dall'utente Open App.Path & "\Update.dat" For Random As a If cboAggiornamento.ListIndex = 0 Then Put a, 1, "month" ElseIf cboAggiornamento.ListIndex = 1 Then Put a, 1, "week" ElseIf chkDisattiva.Value = vbChecked Then Put a, 1, "never" End If Close a cmdOk.Enabled = False End Sub Private Sub cmdVai_Click() Unload Me End Sub Private Sub Form_Load() cboAggiornamento.AddItem "Ogni mese", 0 cboAggiornamento.AddItem "Ogni settimana", 1 cmdOk.Enabled = False End Sub
|
|
