Public Class Form1
Private Creator As New Parsing.DocumentationCreator
Private Sub AddExtensionImage
(ByVal File As String) Dim Img
As Icon
= Drawing.
Icon.
ExtractAssociatedIcon(File) imgImages.
Images.
Add(IO.
Path.
GetExtension(File), Img.
ToBitmap) End Sub
Private Sub strAddSources_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles strAddSources.Click
If ofdSource.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim L As ListViewItem
Dim Ext As String
For Each File As String In ofdSource.
FileNames Ext
= IO.
Path.
GetExtension(File) L
= New ListViewItem
(IO.
Path.
GetFileName(File))
If imgImages.Images.Count = 0 Then
End If
L.ImageKey = Ext
lstCodes.Items.Add(L)
Next
End If
End Sub
Private Sub cmbFormat_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbFormat.SelectedIndexChanged
Creator.Options.Format = cmbFormat.SelectedIndex
End Sub
Private Sub chbOneSourceOneDoc_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chbOneSourceOneDoc.CheckedChanged
Creator.Options.OneSourceOneDoc = chbOneSourceOneDoc.Checked
End Sub
Private Sub chbPrivateMembers_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chbPrivateMembers.CheckedChanged
Creator.Options.IncludePrivates = chbPrivateMembers.Checked
End Sub
Private Sub chbShowUndocumented_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chbShowUndocumented.CheckedChanged
Creator.Options.ShowUndocumented = chbShowUndocumented.Checked
End Sub
Private Sub btnCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreate.Click
If fbdOutput.ShowDialog = Windows.Forms.DialogResult.OK Then
Creator.Sources.Clear()
For Each L As ListViewItem In lstCodes.Items
Creator.Sources.Add(L.Tag)
Next
Creator.DocumentTitle = txtTitle.Text
Try
Creator.Create(fbdOutput.SelectedPath)
MessageBox.Show("Documentazione creata con successo!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch Ex As Exception
MessageBox.Show("Si è verifica un errore di tipo " & Ex.GetType.FullName & " durante il parsing dei sorgenti. Contattare lo sviluppatore.", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cmbFormat.SelectedIndex = 0
End Sub
Private Sub btnAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbout.Click
My.Forms.The_Lair_AboutBox1.ShowDialog()
End Sub
Private Sub strRemoveSources_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles strRemoveSources.Click
Dim ToDel As New List(Of ListViewItem)
For Each L As ListViewItem In lstCodes.SelectedItems
ToDel.Add(L)
Next
For Each L As ListViewItem In ToDel
lstCodes.Items.Remove(L)
Next
End Sub
Private Sub strDelAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles strDelAll.Click
lstCodes.Items.Clear()
End Sub
End Class
