Printable View
سلام دوست عزیز یه کمی توضیح میدین .برای 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
متشكرم