PageRenderTime 42ms CodeModel.GetById 19ms RepoModel.GetById 0ms app.codeStats 0ms

/Source Code/SingleScreen/frmMain.vb

#
Visual Basic | 41 lines | 27 code | 14 blank | 0 comment | 0 complexity | c39307c6d22dd4a58bc00a60be9033e4 MD5 | raw file
  1. Imports PowerSong.SongDatabase.Items
  2. Imports PowerSong.SongDatabase
  3. Public Class frmMain
  4. Private _Database As Database = Nothing
  5. Private _SelectedSong As SongItem = Nothing
  6. Private _ActiveVerseIndex As Integer = -1
  7. Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
  8. Me.Close()
  9. End Sub
  10. Private Sub frmMain_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
  11. Try
  12. If dlgSelectDatabase.ShowDialog = Windows.Forms.DialogResult.OK Then
  13. _Database = Database.Load(dlgSelectDatabase.SelectedPath)
  14. End If
  15. Catch ex As Exception
  16. MsgBox("Could not load the database:" + Environment.NewLine + ex.Message, MsgBoxStyle.Critical)
  17. End Try
  18. End Sub
  19. Private Sub txtSearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.TextChanged
  20. lstSearchResults.Visible = False
  21. For Each SongID As Guid In _Database.SongIndex.FindSongs(txtSearch.Text)
  22. Dim SongTitle As String = _Database.Songs.GetSongTitle(SongID)
  23. lstSearchResults.Items.Add(SongTitle)
  24. Next
  25. lstSearchResults.Visible = True
  26. End Sub
  27. End Class