- Added import Snap Movie and Boxart menu

Speedvicio · May 5, 2024 · 959599c · 959599c
1 parent 0f76e20
commit 959599c
Show file tree

Hide file tree

Showing 3 changed files with 77 additions and 6 deletions.
diff --git a/MetroMed/MetroMed.Designer.vb b/MetroMed/MetroMed.Designer.vb
diff --git a/MetroMed/MetroMed.vb b/MetroMed/MetroMed.vb
@@ -605,10 +605,14 @@ Public Class MetroMed
         Status.Add(".avi", 2)
         Status.Add(".webm", 3)
 
+        If Directory.Exists(Path.Combine(MedExtra & "Media\Movie\", TagSplit(5))) = False Then
+            Directory.CreateDirectory(Path.Combine(MedExtra & "Media\Movie\", TagSplit(5)))
+        End If
+
         Dim movie As String
         For Each pair As KeyValuePair(Of String, Integer) In Status
-            If File.Exists((MedExtra & "Media\Movie\" & TagSplit(0) & pair.Key).ToLower) Then
-                movie = Path.Combine(MedExtra & "Media\Movie\", TagSplit(0) & pair.Key)
+            If File.Exists((MedExtra & "Media\Movie\" & TagSplit(5) & "\" & TagSplit(0) & pair.Key).ToLower) Then
+                movie = Path.Combine(MedExtra & "Media\Movie\", TagSplit(5) & "\" & TagSplit(0) & pair.Key)
                 PlayMedia(movie, PictureBox2)
                 'Exit For
                 Exit Sub
@@ -1110,6 +1114,44 @@ Public Class MetroMed
         End If
     End Sub
 
+    Private Sub BoxartToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BoxartToolStripMenuItem.Click
+        Dim fdlg As OpenFileDialog = New OpenFileDialog()
+        Dim pathimage As String = Path.Combine(MedExtra & "BoxArt\", TagSplit(5))
+        fdlg.Title = "Select an image"
+        fdlg.Filter = "All supported format (*.png,*.jpg)|*.png;*.jpg"
+        fdlg.FilterIndex = 1
+        fdlg.RestoreDirectory = True
+        If fdlg.ShowDialog() = DialogResult.OK Then
+            If Directory.Exists(pathimage) = False Then
+                Directory.CreateDirectory(pathimage)
+            End If
+            pathimage = Path.Combine(pathimage, TagSplit(0) & Path.GetExtension(fdlg.FileName))
+            File.Copy(fdlg.FileName, pathimage, True)
+            If CheckBox4.Checked = True Then
+                extractAnitag()
+            Else
+                AniCover = pathimage
+            End If
+        End If
+    End Sub
+
+    Private Sub SnapMovieToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SnapMovieToolStripMenuItem.Click
+        Dim fdlg As OpenFileDialog = New OpenFileDialog()
+        Dim pathimage As String = Path.Combine(MedExtra & "Media\Movie\", TagSplit(5))
+        fdlg.Title = "Select an Snap Movie"
+        fdlg.Filter = "All supported format (*.mov,*.avi,*.mp4,*.webm)|*.mov;*.avi;*.mp4;*.webm"
+        fdlg.FilterIndex = 1
+        fdlg.RestoreDirectory = True
+        If fdlg.ShowDialog() = DialogResult.OK Then
+            If Directory.Exists(pathimage) = False Then
+                Directory.CreateDirectory(pathimage)
+            End If
+            pathimage = Path.Combine(pathimage, TagSplit(0) & Path.GetExtension(fdlg.FileName))
+            File.Copy(fdlg.FileName, pathimage, True)
+            PlayMedia(pathimage, PictureBox2)
+        End If
+    End Sub
+
     Private Sub extractAnitag()
         Dim Singletag() As String
         For Each sLine In allItems

diff --git a/MetroMed/Preload.vb b/MetroMed/Preload.vb
@@ -37,8 +37,11 @@ Module Preload
         MetroMed.mGuiMode.Image = (New Bitmap(MedExtra & "Resource\Gui\MedGuiR.png"))
         MetroMed.mServer.Image = (New Bitmap(MedExtra & "Resource\Gui\net.png"))
         MetroMed.mOnlinePlay.Image = (New Bitmap(MedExtra & "Resource\Gui\net.png"))
-        MetroMed.mGuiTheme.Image = (New Bitmap(MedExtra & "Resource\Gui\palette.png"))
+        MetroMed.mGuiTheme.Image = (New Bitmap(MedExtra & "Resource\Gui\theme.png"))
         MetroMed.mInput.Image = (New Bitmap(MedExtra & "Resource\Gui\medpad.ico"))
+        MetroMed.mImport.Image = (New Bitmap(MedExtra & "Resource\Gui\palette.png"))
+        MetroMed.BoxartToolStripMenuItem.Image = (New Bitmap(MedExtra & "Resource\Gui\add.png"))
+        MetroMed.SnapMovieToolStripMenuItem.Image = (New Bitmap(MedExtra & "Resource\Gui\mrecord.png"))
         MetroMed.MetroTile1.TileImage = (New Bitmap(MedExtra & "Resource\Gui\play.png"))
         MetroMed.MetroTile1.TileImage.RotateFlip(RotateFlipType.Rotate180FlipNone)
         MetroMed.MetroTile2.TileImage = (New Bitmap(MedExtra & "Resource\Gui\play.png"))