mirsad,
me paketim, a po mendon futjen e mp3 si resource ne .exe?
VB6 nuk e kam por ne VB.NET e fut mp3 ne resource, kur Labeli ne Formen1 klikohet mp3 exportohet nga resource e .exe ne vendin ku ekzekutohet aplikacioni perkohesisht dhe kur Form2 mbyllet mp3 fshihet nga kompjuteri.
Per lansimin e mp3 ne kete shembull perdoret komponentja e Windows Media Player:
Form1
Kodi:
Public Class Form1
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
Form2.Show()
End Sub
End Class
Form2
Kodi:
Imports System.IO
Public Class Form2
Private mp3 As String = Application.StartupPath & "\Ella.mp3"
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If File.Exists(mp3) = False Then
'mp3 nga resource byte per byte eksportohet
Dim resMp3() As Byte = My.Resources.Ella
IO.File.WriteAllBytes(mp3, resMp3)
End If
'lansimi i mp3 nga wmp
wmp.URL = mp3
End Sub
Private Sub Form2_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
If File.Exists(mp3) Then
'fshirja e mp3 kur mbyllet Form2
IO.File.Delete(mp3)
End If
End Sub
End Class
Krijoni Kontakt