Imports Songs_Collector.frmSong
Public Class frmNewSong
Public Sub New(ByVal FileName As String, ByVal Mode As String, Optional ByVal SongIndex As Int32 = 0)
InitializeComponent()
That.Path = FileName
That.Nome = IO.Path.GetFileNameWithoutExtension(FileName)
OMode = Mode
MainIndex = SongIndex
If MultimediaType(FileName) = MultimediaFile.VideoFile Then
Label5.Enabled = False
Label3.Text = "Regista:"
txtGroup.Enabled = False
End If
End Sub
Public That As Song
Public OMode As String
Public MainIndex As Int32
Private Sub frmNewSong_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txtName.Text = frmSong.lstSongs.Items(MainIndex)
txtPath.Text = That.Path
Select Case OMode
Case "ADD"
Me.Text = "Aggiungi un brano"
Case "MOD"
Me.Text = "Modifica un brano"
txtAuthor.Text = MainDB(MainIndex).Autore
txtType.Text = MainDB(MainIndex).Genere
txtGroup.Text = MainDB(MainIndex).Gruppo
txtYear.Text = MainDB(MainIndex).Anno
txtNotes.Text = MainDB(MainIndex).Note
nudVal.Value = MainDB(MainIndex).Valutazione
End Select
End Sub
Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click
Dim C As Song = Nothing
C.Nome = txtName.Text
C.Path = txtPath.Text
C.Anno = txtYear.Text
C.Autore = txtAuthor.Text
C.Genere = txtType.Text
C.Gruppo = txtGroup.Text
C.Note = txtNotes.Text
C.Valutazione = nudVal.Value
Select Case OMode
Case "ADD"
MainDB.Add(C)
frmSong.lstSongs.Items.Add(C.Nome)
Case "MOD"
MainDB(MainIndex) = C
frmSong.lstSongs.Items(MainIndex) = C.Nome
End Select
If frmSong.strAutoSave.Checked Then
Save()
End If
Me.Close()
End Sub
End Class