نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

موضوع: مديا پلير در اكسل - Excel Media Player

  1. #1


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,470
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    مديا پلير در اكسل - Excel Media Player

    دوستان عزيز ميخوام شما رو با قابليتي در اكسل آشنا كنم كه براي خودم خيلي جالب بود

    شما داخل فايل اكسل ميتونين يك مديا پلير قوي داشته باشيد. من براتون يك فايل آماده كردم كه طريقه استفاده از اين قابليت رو نشون ميده

    اميدوارم لذت ببريد
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده


  2.  

  3. #2


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,470
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    كدهاي مربوط به هر قسمت رو هم براتون ميذارم

    كدهاي مربوط به انتخاب پوشه و انتخاب كردن تمام آهنگ ها و فيلم هاي داخل اون پوشه

    کد:
    Sub OpenFolder() 'choose the folder where the music files are stored: Dim fldr As FileDialog Dim folder As String Set fldr = Application.FileDialog(msoFileDialogFolderPicker) With fldr .Title = "Select Your Music Folder" .AllowMultiSelect = False .InitialFileName = strPath If .Show <> -1 Then GoTo NextCode sItem = .SelectedItems(1) End With NextCode: folder = sItem Set fldr = Nothing UserForm2.Label1.Caption = folder 'add the names of the files in the listbox: Dim fso As Object Dim fo As Object Dim fi As Object 'clear list first: UserForm2.ListBox1.Clear 'add items: Set fso = CreateObject("Scripting.FileSystemObject") Set fo = fso.GetFolder(folder & "\") For Each fi In fo.Files ' check if mp3 or not If Right(fi.Name, 3) = "mp3" Or Right(fi.Name, 3) = "wav" Or Right(fi.Name, 3) = "m4a" Then UserForm2.ListBox1.AddItem fi.Name ElseIf Right(fi.Name, 3) = "FLV" Or Right(fi.Name, 3) = "flv" Or Right(fi.Name, 3) = "avi" Or Right(fi.Name, 3) = "wmv" Or Right(fi.Name, 3) = "mp4" Then UserForm2.ListBox1.AddItem fi.Name End If Next Set fi = Nothing Set fo = Nothing Set fso = Nothing If UserForm2.ListBox1.ListCount = 0 Then MsgBox "No Mp3 files were found in this folder, choose another folder." End Sub
    كدهاي مربوط به دكمه انتخاب پوشه:

    کد:
    Private Sub CommandButton3_Click() Call OpenFolder Me.ToggleButton2 = True End Sub
    كدهاي مربوط به نشان دادن و ليست فايل ها:

    کد:
    Private Sub ToggleButton2_Click() If Me.ToggleButton2.Value = False Then Me.Height = 87.75 Me.ToggleButton2.Caption = "More >>" Else Me.Height = 195.75 Me.ToggleButton2.Caption = "Less <<" End If End Sub
    و مهمترين قسمت، يعني كدهاي مربوط به اجراي فايل ها:

    کد:
    Private Sub ListBox1_Click() Dim lItem As Long For lItem = 0 To ListBox1.ListCount - 1 If Me.ListBox1.Selected(lItem) = True Then playMusic ListBox1.List(lItem) End If Next End Sub Function playMusic(lItems As String) UserForm2.WindowsMediaPlayer1.URL = UserForm2.Label1.Caption & "\" & lItems UserForm2.WindowsMediaPlayer1.Controls.Play End Function


  4. #3


    آخرین بازدید
    2023/04/02
    تاریخ عضویت
    July 2018
    نوشته ها
    14
    امتیاز
    11
    سپاس
    0
    سپاس شده
    1 در 1 پست
    سطح اکسل
    20.00 %

    این کد اصلا فایل mp3 را که هست میگه پیدا نکردم


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. OR & EXCEL
    توسط ~M*E*H*D*I~ در انجمن مهندسی صنایع و اکسل
    پاسخ ها: 27
    آخرين نوشته: 2019/03/18, 18:40
  2. [حل شده] باز نشدن VB در Excel
    توسط musicbox1970 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 2013/04/15, 08:08
  3. اجزاء پنجره Excel
    توسط a3man در انجمن آموزش ساير موضوعات در اكسل
    پاسخ ها: 0
    آخرين نوشته: 2011/08/11, 11:24
  4. وارد كردن چند سطر بين سطور ديگر
    توسط ali در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 4
    آخرين نوشته: 2010/09/08, 13:45

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است