Stalker Riddick
Početnik
- Poruka
- 10
Kako da pustim pesmu ako sam je stavio kao resource da bude u exe fajlu kako da je pustim odatle da se cuje hvala unapred sto pomazete novajliji
Donji video pokazuje kako da instalirate aplikaciju na početni ekran svog uređaja.
Napomena: This feature may not be available in some browsers.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As System.Reflection.Assembly
a = System.Reflection.Assembly.GetExecutingAssembly()
Dim r As System.IO.Stream
r = a.GetManifestResourceStream("My.Resources.Sound1.mp3")
Dim buf(r.Length) As Byte
r.Read(buf, 0, r.Length)
r.Close()
Dim f As String
f = System.IO.Path.GetTempFileName + ".mp3"
Dim w As System.IO.FileStream
w = System.IO.File.Create(f)
w.Write(buf, 0, buf.Length)
w.Close()
System.Diagnostics.Process.Start(f)
End Sub