با سلام
مي خوام براي Media Player يه PlayLisyt درست كنم. از چه عناصري بايد استفاده كنم.
لطفا منو راهنمايي كنيد.
Printable View
با سلام
مي خوام براي Media Player يه PlayLisyt درست كنم. از چه عناصري بايد استفاده كنم.
لطفا منو راهنمايي كنيد.
سلام دوست عزیز شما باید یک opendialog رو فرم بگذارید برای باز کردن و قرار دادن آهنگ ها .
یک trackbar یا progressbar می‌خواهید .یک شی مدیا پلیر .البته اگه اطلاعات دقیقتری می‌خواهید در بخش تمامی مسائل ویبی مطرح کنید .
لطفا در مورد Trackbar و progressbar بيشتر توضيح بده.نقل قول:
نوشته شده توسط Nesta
متشكرم....
سلام دوست عزیز trackbar همونی هست که مثلا شما در winamp or media player میتونین آهنگ یا فیلم رو باهاش عقب جلو کنین و همزمان با فیلم یا آهنگ به جلو میره .
progressbar شما حتما دیدین که موقعی که می‌خواهید برنامه ای رو نصب کنین یک خطی پر می‌شه که دونه دونه هست اینم اسمش اینه که شما مثلا می‌خواهید صدای آهنگ رو کم کنین میتونین وقتی آن رو می‌کشید به این ور این ختها پر بشن امید وار م خوب تونسته باشم متوجه کنم .
من متوجه منظور شما شدم. ولي نمي فهم اين چه ربطي به نياز من داره. خود شي مديا پلير اين امكانات رو داره. من فقط مي خوام بدونم چطوري يه پلي ليست شخصي درست كنم.
فكر من نتونستم منظورمو خوب منتقل كنم.
به هر حال متشكرم
سلام دوست عزیز خوب من تازه متوجه شدم که شما چی میگین یه کمی گنگ بود مساله .
برای پلی لیست شما خیلی راحت میتونین در این قسمت win32 در دلفی که اینجاست .
شما یک directory list بگذارید و خودش دیگه راحت کار میکنه .
اگه می‌خواهید یک پنجره باز بشه که فقط آهنگ توش اضافه کنین اون کمی فرق میکنه .
با توجه به توضيحات دوست عزيزمون بايد بگم
شما ميتوتي عنصر List Box قرار بدي
*بايد باسش تغيير مسير قرار بدي
*بايد باسش يك ----- خاص قرار بدي تا فقط فايل هاي با پسوند خاص رو نشون بده
اميدوارم تو برنامه نويسي موفق باشي :lol:
ببخشيد من توي ويژوال بيسيك مي خوام.
ببخشيد كه همون اول نگفتم.
سلام دوست عزیز دقیقا درست میفرمایند .نقل قول:
نوشته شده توسط Amin ul
و شما باید با فیلتر پسوند فایل ها رو بگین که چی می‌خواهید باشه که حالا wav mp3...
هستش .اگه از کتاب در قسمت media یه نگاهی کنی راحت پیدا می‌شه من حقیقت اسم دقیق رو با ویبی نمیدونم ولی list box در دلفی هست . که زیرش درایو رو انتخاب می‌کنیم.
من مي خوام بدونم چطوري دكمه هاي Next و Previous (مديا)رو به ليست باكس متصل كنم.
سلام دوست عزیز یه کمی توضیح میدین .برای list box دکمه عقب و جلو نمی خواهد .یعنی من که ندیدم .خود مدیا پلیر این کار رو انجام میده در اونجا فقط شما باید نم درایو و آهنگ رو باز کنین تا در list box نشون بده و لیست کنه . 8)نقل قول:
نوشته شده توسط NewTech
سلام
ببینید خوب هر ایتمی در لیست بکس دارای ایندکس با این خاصیت میتونی کارتا انجام بدی
من برنامه کاملش را دارم ولی باید صبر کنید
تا چند روزه دیگه
بای
سلام دوست عزیز من منظور شما رو درست متوجه نشدم .می‌شه بیشتر توضیح بدین .
متشکر.
:arrow:
سلام دوست عزیز یه کمی توضیح میدین .برای list box دکمه عقب و جلو نمی خواهد .یعنی من که ندیدم .خود مدیا پلیر این کار رو انجام میده در اونجا فقط شما باید نم درایو و آهنگ رو باز کنین تا در list box نشون بده و لیست کنه . 8)[/quote]
سلام، ببخشيد دير كردم
منظورم اينه كه وقتي دكمه Next رو زديم ليست باكس به ايتم بعدي اشاره كنه و آهنگ بعدي اجرا بشه.
متشكرم
من به شما توصيه ميكنم كه
تمام متد هاي list box رو امتحان كنيد
در ضمن اگه گزينه انتخاب شده به آخر برسه error ميده
شما بايد از كد زير استفاده كنيد
در اول كليد
On error resume next
اميد وارم تو برنامه نويسي موفق باشي :wink:
سلام
خوب ابتدا من اصلا منظور شما را نفهمیدم
شما می خواهید برای مدیا پلیر درست کنید یا به وسیله ویژوال بیسیک
اگر می خواهید مانند مدیا پلیر لیست برای برنامه مدیا خود درست کنید خوب من شب سورسش را برایتان می گزارم.
اما این را هم باید بدانید.
خوب ابتدا باید بدانید که فقط با گزاشتن فیلتر نمی توانید . مثالا mp3 ... را بخواند بلکه برای هر پسوند مانندmp3
یک سورس کد خواصی دارد.
یک ماژوال که برای برنامه می فهماند mp3 را و در قسمت فورم به وسیله یوزر کنترل فیلتر mp3 را وارد کرده.
که من شب یک سرس می گزارم که هم لیست داره و هم از mp3 پشتیبانی میکنه.
شما فقط باید احتیاج خود را یا همان لسیت را از قسمت برنامه کدش را برداری.
ممنون تا شب
سلام گرفتم منضورت اینه که چجوری رفت و برگشت بگزارید بله.
ماننده این
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد زیر برای جلو است البطه خودت نامهاش رو درست کد چون من نمیدونم که نام لیست چیه؟
کد زیر هم برای عقب استکد:On Error GoTo soo
Dim snext As String
last = last + 1
snext = List1.List(last)
List1.ListIndex = List1.ListIndex + 1
Play.FileName = snext
Play.Play
soo:
last = List1.ListIndex
plays = ""
Slider1.Max = Play.Duration
Songname.Caption = List1.Text
امیدوارم مورد قبولت باشد.کد:Dim spev As String
If last < 1 Then
Exit Sub
End If
last = last - 1
spev = List1.List(last)
List1.ListIndex = List1.ListIndex - 1
Play.FileName = spev
Play.Play
plays = ""
Slider1.Max = Play.Duration
Songname.Caption = List1.Text
ببين تازه من مي تونم كد انتخاب دسته جمعي با موس را بهت بدم
يه زنگي بزن
---------
يعني با موس بتوني همه را انتخاب كني
يا كد انداختن چندين فايل از بيرون به داخل ليست و غيره ...
دوست عزيز "يه زنگي بزن " ديگه چه صيغه ايه اگه دوست داري كمك كني خب اين انجمن برا همينه مگه اينكه منظور ديگه اي داشته باشي كه فكر كنم جاش اينجا نباشه البته اين فقط يه خواهش دوستانه است چون تذكر وظيفه من نيست.نقل قول:
نوشته شده توسط black_storm
متشكرم