|
درود . همراه اون OCX یه مثال هم هست میتونین روش کار رو ببینید (امکان پخش فایل صوتی توش هست) . این هم همون بخش از کد اون مثال هست . Private Sub PlayFile(FilePath As String)
If FileExict(FilePath) = False Then Exit Sub
tt.PlayFile FilePath
PlayEnd = False
While PlayEnd = False
DoEvents
Wend
tt.StopRecToFile
End Sub البته کلا این OCX بیشتر جنبه آموزشی داره بهتره برای کارهای حرفه ای و تجاری از کامپوننتهایی مثل KdTele یا Tapiex استفاده کنید .
_______________________________________________________________________
پروژه های حرفه ای الکترونیک و کامپیوتر در www.khazama.com
مجموعه متن باز نامهای اصیل ایرانی
وبلاگ نوشته های شخصی من
|
