إخواني الاعزاء عندي سؤال بسيط ولا يتطلب جهد كبير وهو:
إذا كان عندي اداة "كوماند ديالونغ" عندما اكبس الزر يكون show open كوده
كيف يمكن ان افتح اكثر من ملف اي تحديد اكثر من ملف في مرة واحدة
ويضعهم في list box
سؤال صغير ثاني
عندما أمره بفتح ملفات ووضعها في list box
وتكون الملفات اغاني بمساعدة ويندوز ميديا بلير
و السؤال هو كيف يمكن عند انتهاء الغنية الاولة يفتح الأوخره بدها اي يقرأ
ال list boxالتي حددتها من قبل بدون توقف حتى انتهاء الاغاني التي حددتها انا و
ولكوم جزيل الشكر
THE ART MAN
:) :) :)
أدرج كومن دايالوج وسميها com
com.Filter = "mp3file( *.mp3)|*.mp3|wav files ( *.wav)|*.wav|mid file (*.mid)|*.mid|All files(*.* )|**.*|" com.Action = 1 End If
مشكور اخي YASERSTARS
على الكود جزيل الشكر لكن سؤالي هو انه يمكن فتح اكثرمن ملف لا من لاحقة :blink: اي عندما اكبس OPEN استطيع ان افتح اكثر من ملف
ومشكر مرة اخرى
وشكرا الى الاخ اسكند وجاري التجريب
وبل النسبة الى انا متاسف على العنوان
وشكرل
THE ART MAN*********** :lol: :lol:
بسم الله الرحمن الرحيم
الأخوة الكرام
السلام عليكم ورحمة الله وبركاته
الأخTHE ART MAN
يمكنك بالطبع تحديد اكثر من ملف ويجب ان تعرف ان قوة الأداة Comman Dialog تمكن فى الخاصية Flags
جرب هذا الكود
Private Sub Command1_Click() Dim StrLongPath As String Dim VarTemp As Variant Dim i As Integer Cdg.Flags = cdlOFNAllowMultiselect + cdlOFNCreatePrompt Cdg.Filter = "All files(*.* )|**.*|" Cdg.ShowOpen If Cdg.FileName <> "" Then VarTemp = Split(Cdg.FileName, vbNullChar, , vbTextCompare) If UBound(VarTemp) > 0 Then StrLongPath = VarTemp(LBound(VarTemp)) For i = LBound(VarTemp) + 1 To UBound(VarTemp) List1.AddItem StrLongPath & "\" & VarTemp(i) Next End If End If End Sub
لاحظ ان اهم ثابت هو cdlOFNAllowMultiselect حيث انه هو المسئؤل عن تحديد اكثر من ملف
وايضا إستخدام الثابت cdlOFNExplorer يقوم بعرض مربع الحوار على الشكل المعتاد وعدم إستخدام
يظهر مربع الحوار على هذا الشكل
اسف ... على هذه الأجابة المختصرة
فاقسم بالله انى كنت كتبت حالا شرحا وافياً ولكنى وانا احاول ان ارفع الصورة إلى المنتدى وعندما عملت Back
لم اجد الشرح الذى كتبته مما اصابنى بالأحباط :angry:
والسلام عليكم ورحمة الله وبركاته
هذا الموضوع مغلق.