انتخاب یک اهنگ از موسیقی

[alimo 138]

با کد زیر می ریم از قسمت گالری گوشی یک عکس انتخاب می کنیم برای انتخاب اهنگ باید چیکارکنیم.

'Sub Label4_Click
'
'    Dim PicChooser As ContentChooser
'    PicChooser.Initialize("PicChooser")
'    PicChooser.Show("image/*", "یک عکس برای اسلاید شو انتخاب کنید.")
'End Sub
'Sub PicChooser_Result(Success As Boolean, Dir As String, FileName As String)
'	Dim outp As OutputStream
'				Dim andd As Int
'    If Success = True Then
'        Dim inp As InputStream
'        inp = File.OpenInput(Dir, FileName)
'			
'				andd = Rnd(111,9999999)
'outp = File.OpenOutput(File.DirRootExternal ,"SLID/img"& andd & ".png",False)
'File.Copy2(inp,outp)
'outp.Close
'inp.Close
'    Else
'        ToastMessageShow("انجام نشد، دوباره تلاش کنید", True)
'    End If
'End Sub