Imports System.Windows.Forms
Public Class PaginaIniziale
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
Private Sub Azione_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nuovo.CheckedChanged, ApriAltro.Click, ApriRecente.Click
SitiRecenti.Enabled = ApriRecente.Checked
OK_Button.Enabled = True
End Sub
Private Sub PaginaIniziale_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
SitiRecenti.Items.Clear()
For Each Sito As String In My.Settings.SitiRecenti
If My.Computer.FileSystem.DirectoryExists(Sito) Then
SitiRecenti.Items.Add(Sito)
End If
Next
Catch ex As Exception
ApriRecente.Enabled = False
End Try
End Sub
End Class