سلام من با این کد یه اهنگ رو میگیرم ولی نامش رو نیتونم در بیارم
Sub Button1_Click
sondp.Initialize("sondp")
sondp.Show("audio/*","انتخاب صدا")
End Sub
Sub sondp_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
Msgbox(Dir,FileName)
End If
End Sub
سوال
berayan 90
سلام من با این کد یه اهنگ رو میگیرم ولی نامش رو نیتونم در بیارم
Sub Button1_Click sondp.Initialize("sondp") sondp.Show("audio/*","انتخاب صدا") End Sub Sub sondp_Result (Success As Boolean, Dir As String, FileName As String) If Success Then Msgbox(Dir,FileName) End If End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.