/Source Code/SingleScreen/frmMain.vb
Visual Basic | 41 lines | 27 code | 14 blank | 0 comment | 0 complexity | c39307c6d22dd4a58bc00a60be9033e4 MD5 | raw file
- Imports PowerSong.SongDatabase.Items
- Imports PowerSong.SongDatabase
-
- Public Class frmMain
-
- Private _Database As Database = Nothing
-
- Private _SelectedSong As SongItem = Nothing
-
- Private _ActiveVerseIndex As Integer = -1
-
- Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
- Me.Close()
- End Sub
-
- Private Sub frmMain_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
-
- Try
-
- If dlgSelectDatabase.ShowDialog = Windows.Forms.DialogResult.OK Then
- _Database = Database.Load(dlgSelectDatabase.SelectedPath)
- End If
-
- Catch ex As Exception
- MsgBox("Could not load the database:" + Environment.NewLine + ex.Message, MsgBoxStyle.Critical)
- End Try
-
- End Sub
-
- Private Sub txtSearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.TextChanged
-
- lstSearchResults.Visible = False
- For Each SongID As Guid In _Database.SongIndex.FindSongs(txtSearch.Text)
- Dim SongTitle As String = _Database.Songs.GetSongTitle(SongID)
- lstSearchResults.Items.Add(SongTitle)
- Next
- lstSearchResults.Visible = True
-
- End Sub
-
- End Class