مساعده فى اداه Windows Media Player اول مشاركه لى

#120 يناير 2009 في 06:45 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه

2005انا استخدم لغه برمجه فيجوال استوديو دوت نت

ارجو المساعده لان هذا مشروع تخرجى برنامج لعرض التلفزيون

انظرو الصوره

اريد اظهار ليبول لعرض حاله الاتصال بالنك القناه بدلا من اظهار هذا الشريط

لان اريد حذف هذا الكنترولز واستخدام ازرار اخرى

وعند حذف الكنترولز لا يظهر هذا الشريط

مثل هذه الصوره

او لو يوجد حل اخر لعرض هذا الشريط بعد اخفاء الكنترولز يكتبه لى

تم تعديل هذه المشاركة بواسطة Mohamed glal في 20 يناير 2009 في 06:53

#220 يناير 2009 في 07:26

أهلاً ومرحباً بك أخي الكريم في منتديات الفريق العربي للبرمجة .

أخي الكريم, هل تريد الإستغناء عن هذا الشريط, أي استخدام Label عوضاً عنه لعرض حالة الـ Windows Media Player ? إذا كان هذا ماتريد ( جرب الملف المرفق ) .

بالتوفيق .

LBLWindowsMediaPlayer.zip

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#320 يناير 2009 في 07:41

الف الف شكر على سرعه الرد

هذا بالفعل ما اريده

معلش عندى استفسار اخر بعد اذنك

ما الخطأ فى هذا الكود

if me.show then

ShowToolStripMenuItem.Text = ("Hide")

end if

الخطأ ياتى فى كلمه

ME.SHOW

مع العلم جربت

Form1.show

انا الذى اريدو عندما يكون الفورم ظاهر واظغط كلك يمسن على ايقونه البرنامج التى بجانب الساعه يظهر كلمه hide

بدلا من كلمه show

والعكس

عندما يكون الفورم هيد تظهر كلمه شو

TabControl معVScrollBar وكيف ربط

تم تعديل هذه المشاركة بواسطة Mohamed glal في 20 يناير 2009 في 07:44

#420 يناير 2009 في 07:59

مرحباً أخي الكريم .

جرب التالي :

انسخ الكود

 

[color= #000000; font-weight: bold;]Private Sub ShowToolStripMenuItem_T_Click[color= #009900;]( Byval Sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], [color= #990000;]_

Byval E [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs [color= #009900;]) Handles ShowToolStripMenuItem[color= #339933;].Click

Me[color= #339933;].Visible [color= #339933;]= Not [color= #009900;]( Me[color= #339933;].Visible [color= #009900;])

ShowToolStripMenuItem[color= #339933;].Text [color= #339933;]= [color= #0000ff;]"Hide"

[color= #b1b100;]If Me[color= #339933;].Visible [color= #339933;]= [color= #000000; font-weight: bold;]False Then ShowToolStripMenuItem[color= #339933;].Text [color= #339933;]= [color= #0000ff;]"Show"

[color= #990000;]End Sub

بالنسبة للـ Show هي عملية لإظهار صحابها, ولا يمكنك استخدامها كمرجع, لهذا السبب يظهر لك خطأ .

بالتوفيق .

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 20 يناير 2009 في 08:20

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#520 يناير 2009 في 08:34

والله معارف اقولك ايه ظبط معى الف شكررررر

طيب معلش حتقل عليك بالنسبه لربط

VScrollBar

مع

TabControl

#620 يناير 2009 في 08:39

مرحباً أخي الكريم .

لاشكر على واجب :) .

رجاءً حاول الشرح بشكل أدق, هل تريد جعل إحدا Pages يظهر الـ Vertical Scroll Bar, إذا كان هذا تريده اضبط الخاصية AutoScroll للـ Page أو الـ Pages اللواتي تريد جعلهم يعرضون الـ VScrollBar عند تخطي الـ Control(s) حجم تلك الـ Page الى True :S, تأخرت بذكرها :P اضبط الخاصية AutoScroll الى True :D .

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#720 يناير 2009 في 08:57

والله كمان مره مش عارف اقولك ايه

عضو مجتهد

اسم على مسمى بجد

انت المفروض تكون مدير مجتهد

انت حلتلى اغلب مشاكلى فى البرنامج

اصل انا منتقل من الفيجوال بيسيك 6 فا بحسب الدوت نت مثله ولكن اتضح انو اكثر سهوله بكثير

ومشكوووووووووووور مره ثانيه

#820 يناير 2009 في 09:00

Mohamed glal كتب:
اصل انا منتقل من الفيجوال بيسيك 6 فا بحسب الدوت نت مثله ولكن اتضح انو اكثر سهوله بكثير

ما تقوله حاجة ياعم, كل ده من خير ربنا :P, ربنا يهدينا أجمعين :D .

من VB6 الى .Net ياعم دلوقتي أنت مش عايز تتعب نفسك في أي حاجة ( كل شيء جاهز :P (

إذا أردت معرفة أي شيء أخر, لاتتردد بسؤال عنه .

بالتوفيق .

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#920 يناير 2009 في 09:06

بس عيب الدوت نت لازم يكون على الجهاز نت فرم ورك يعنى عشان اعمل برنامج حجمو 1 ميجا حيحتاج برنامج مساحتو 22 ميجا

هو مينفعش اخد الملفات اللى بيحتجها البرنامج من النت فرم ورك واحزم البرنامج

وياريت تقولى طريقه تحزيم مثل الفجوال بيسيك برنامجى يكون عباره عن ملفات دلل مش سورس كود

عشان محدش يعرف الاكواد اللى مبرمجها بيه

ياريت الطريقه ؟؟؟؟؟؟؟؟؟؟

#1020 يناير 2009 في 09:18

بالنسبة للـ :mad: Net Framework عليك تثبيته ليقوم بعددة أمور كـ( نسخ الملفات, تسجيل المراجع ( المكتبات ) في الـ Registry, الخ .. ) .

بالنسبة للتحزيم, فيكمنك ذلك عن طريق ( من القائمة الرئيسية انقر على Build ) ثم انقر على Publish بعد ذلك سيظهر لك مربع حوار يسألك عدة أسئلة كـ( مكان التصدير, هل لهذا البرنامج تحديث يجب أن يتم تحميله من موقع ما ) عند الضغط على Finish سيقوم الـ VB, VS بتحزيم المشروع وبعدها سيفتح لك المجلد الحاوي للملفات التابعة لملف الـ Setup .

إذا كنت تريد تصدير Class الى ملف Dll ( Dynamic Link Library ) فعليك تغير نوع المشروع الى Class Library ويتم ذلك من خصائص المشروع ( نقرة مزدوجة على MyProject من مسعرض الحلول ( Solution Explorer ) ستجد ComboBox يفوقه Label مكتوب فيه Application Type عليك اختيار المذكور ( Class Library ) .

إذا أردت معرفة التفاصيل ابحث في المنتدى عنه, أو انتظر بضعة ثواني بينما أقوم بالبحث عنه .

________________________________

ها هو /index.php?showtopic=151048

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 20 يناير 2009 في 09:24

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#1120 يناير 2009 في 09:40

اريد تقيمك لشكل البرنامج

مشكلتى لما بكتب سؤال وحد يرد عليه افتكر سؤال تانى :D

#1220 يناير 2009 في 09:48

جميل !!, أحسنت صنعاً !

يمكنك أيضاً استخدام ميزة التسريع والتبطيء في قراءة الملف :P .

خمس دقائق وبإذن الله أكون قد انتهيت من تعديل المشروع المرفق .

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#1320 يناير 2009 في 10:50

أسف على التأخير ( مشاكل في الإتصال, كالعادة :S )

اليك المشروع .

__________________

إضافة أخرى تجعل من برنامج ( مشروعك ) كامل مكمل ( MenuStrip ) و استخدم ( StatusBar ) عوضاً عن الـ Label المستخدم لعرض الحالة :P .

LBLWindowsMediaPlayer.zip

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 20 يناير 2009 في 10:53

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#1420 يناير 2009 في 11:02

مشكووووووووووووور

ازاى اعرض الوقت للاغنيه

واريد عند ضغط زر ينتقل الى التاب بيدج التانيه مثلا

وكيف اعمل سحب وافلات فى الست بوكس

تم تعديل هذه المشاركة بواسطة Mohamed glal في 20 يناير 2009 في 11:08

#1520 يناير 2009 في 11:12

إذا كان قصدك بشكل تكراري, اي بدون حاجة المستخدم للإختيار, فعليك تصريح متغيّر في Class الـ Form1 ويجب أن يكون من نوع Integer, واستخدام Timer لمتابعة الحالة كالتالي :

هذا الـ Code عوضاً عن Code الـ Form1 :

انسخ الكود

 

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form1

    [color= #000000; font-weight: bold;]Private PlayList [color= #b1b100;]As [color= #000000; font-weight: bold;]New [color= #990000;]List[color= #009900;](Of String[color= #009900;])

    [color= #000000; font-weight: bold;]Private WithEvents Tmr [color= #b1b100;]As [color= #000000; font-weight: bold;]New Timer

    [color= #000000; font-weight: bold;]Private CurrentIndex [color= #b1b100;]As Integer [color= #339933;]= [color= #cc66cc;]0

 

    [color= #000000; font-weight: bold;]Private Sub AxWindowsMediaPlayer1_StatusChange[color= #009900;](ByVal sender [color= #b1b100;]As Object[color= #339933;], [color= #990000;]_

    ByVal e [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handles AxWindowsMediaPlayer1[color= #339933;].StatusChange

        Label1[color= #339933;].Text [color= #339933;]= AxWindowsMediaPlayer1[color= #339933;].status

    [color= #990000;]End Sub

 

    [color= #000000; font-weight: bold;]Private Sub BtnBro_Click[color= #009900;](ByVal sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], [color= #990000;]_

    ByVal e [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handles BtnBro[color= #339933;].Click

        Dim OP [color= #b1b100;]As [color= #000000; font-weight: bold;]New OpenFileDialog [color= #339933;]: OP[color= #339933;].Multiselect [color= #339933;]= [color= #000000; font-weight: bold;]True

        [color= #b1b100;]If OP[color= #339933;].ShowDialog [color= #339933;]= [color= #cc66cc;]1 Then

            CurrentIndex [color= #339933;]= [color= #cc66cc;]0

            ListBox1[color= #339933;].Items[color= #339933;].Clear[color= #009900;]([color= #009900;])

            PlayList[color= #339933;].Clear[color= #009900;]([color= #009900;])

            [color= #b1b100;]For [color= #990000;]Each FileName [color= #b1b100;]As String In OP[color= #339933;].FileNames

                PlayList[color= #339933;].Add[color= #009900;](FileName[color= #009900;])

                ListBox1[color= #339933;].Items[color= #339933;].Add[color= #009900;](IO[color= #339933;].Path[color= #339933;].GetFileNameWithoutExtension[color= #009900;](FileName[color= #009900;])[color= #009900;])

            [color= #990000;]Next

            TextBox1[color= #339933;].Text [color= #339933;]= PlayList[color= #009900;](CurrentIndex[color= #009900;])

            AxWindowsMediaPlayer1[color= #339933;].URL [color= #339933;]= PlayList[color= #009900;](CurrentIndex[color= #009900;])

            Tmr[color= #339933;].Enabled [color= #339933;]= [color= #000000; font-weight: bold;]True

        [color= #990000;]End [color= #b1b100;]If

    [color= #990000;]End Sub

 

    [color= #000000; font-weight: bold;]Private Sub ListBox1_SelectedIndexChanged[color= #009900;](ByVal sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], [color= #990000;]_

    ByVal e [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handles ListBox1[color= #339933;].SelectedIndexChanged

        [color= #b1b100;]If Not ListBox1[color= #339933;].SelectedItem Is Nothing Then

            CurrentIndex [color= #339933;]= ListBox1[color= #339933;].SelectedIndex [color= #339933;]: AxWindowsMediaPlayer1[color= #339933;].URL [color= #339933;]= PlayList[color= #009900;](Curren
tIndex[color= #009900;])

        [color= #990000;]End [color= #b1b100;]If

        TextBox1[color= #339933;].Text [color= #339933;]= AxWindowsMediaPlayer1[color= #339933;].URL

    [color= #990000;]End Sub

 

    [color= #000000; font-weight: bold;]Private Sub TBVolumen_Scroll[color= #009900;](ByVal sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], [color= #990000;]_

    ByVal e [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handles TBVolume[color= #339933;].Scroll[color= #339933;], TBBalance[color= #339933;].ValueChanged[color= #339933;], TBPitch[color= #339933;].Scrol
l

        AxWindowsMediaPlayer1[color= #339933;].settings[color= #339933;].volume [color= #339933;]= TBVolume[color= #339933;].Value

        AxWindowsMediaPlayer1[color= #339933;].settings[color= #339933;].balance [color= #339933;]= TBBalance[color= #339933;].Value

        AxWindowsMediaPlayer1[color= #339933;].settings[color= #339933;].rate [color= #339933;]= TBPitch[color= #339933;].Value

    [color= #990000;]End Sub

 

    [color= #000000; font-weight: bold;]Private Sub TBSeek_Scroll[color= #009900;](ByVal sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], [color= #990000;]_

    ByVal e [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handles TBSeek[color= #339933;].Scroll

        AxWindowsMediaPlayer1[color= #339933;].Ctlcontrols[color= #339933;].currentPosition [color= #339933;]= [color= #009900;](AxWindowsMediaPlayer1[color= #339933;].currentMedia
[color= #339933;].duration [color= #339933;]* TBSeek[color= #339933;].Value [color= #339933;]/ [color= #cc66cc;]100[color= #009900;])

    [color= #990000;]End Sub

 

    [color= #000000; font-weight: bold;]Private Sub Tmr_Tick[color= #009900;](ByVal sender [color= #b1b100;]As Object[color= #339933;], [color= #990000;]_

    ByVal e [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handles Tmr[color= #339933;].Tick

        TBSeek[color= #339933;].Value [color= #339933;]= CInt[color= #009900;]([color= #cc66cc;]100 [color= #339933;]* AxWindowsMediaPlayer1[color= #339933;].Ctlcontrols[color= #339933;].currentPosition [color= #339933;]/ AxWindows
MediaPlayer1[color= #339933;].currentMedia[color= #339933;].duration[color= #009900;])

        [color= #b1b100;]If TBSeek[color= #339933;].Value [color= #339933;]>= [color= #cc66cc;]99 Then

            PlayNext[color= #009900;]([color= #009900;])

        [color= #990000;]End [color= #b1b100;]If

    [color= #990000;]End Sub

 

    [color= #000000; font-weight: bold;]Private Sub PlayNext[color= #009900;]([color= #009900;])

        CurrentIndex [color= #339933;]+= [color= #cc66cc;]1

        [color= #b1b100;]If Not CurrentIndex [color= #339933;]>= [color= #009900;](PlayList[color= #339933;].[color= #990000;]Count [color= #339933;]- [color= #cc66cc;]1[color= #009900;]) Then

            AxWindowsMediaPlayer1[color= #339933;].URL [color= #339933;]= PlayList[color= #009900;](CurrentIndex[color= #009900;])

        [color= #b1b100;]Else

            Tmr[color= #339933;].Enabled [color= #339933;]= [color= #000000; font-weight: bold;]False

            CurrentIndex [color= #339933;]= [color= #cc66cc;]0

        [color= #990000;]End [color= #b1b100;]If

    [color= #990000;]End Sub

 

    [color= #000000; font-weight: bold;]Private Sub Form1_Load[color= #009900;](ByVal sender [color= #b1b100;]As Object[color= #339933;], [color= #990000;]_

    ByVal e [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handles Me[color= #339933;].Load

        Tmr[color= #339933;].Interval [color= #339933;]= [color= #cc66cc;]500

    [color= #990000;]End Sub

[color= #990000;]End [color= #000000; font-weight: bold;]Class

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 20 يناير 2009 في 11:14

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#1620 يناير 2009 في 11:30

مشكووووووووووور يا نجم انا عارف انى تعبتك معايه

#1721 يناير 2009 في 06:53

السلام عليكــم ورحمـة الله وبركاتــه

معلش فى حاجه صغيره

بليز محتاج لنكات لقنوات او اذاعات الراديو

#1821 يناير 2009 في 07:08

مرحباً أخي الكريم :) .

هل تقصدك أنك تريد تشغيل مايطلب تشغيله من الـ Form1 في الـ Form2 ؟

أم تقصد أن هنالك مشكلة في عمل كل من الاثنين, والذي أقصده أنه عند تشغيل شيء ما في الـ Windows Media Player الموجود في الـ Form1, يقوم الـ Windows Media Player الموجود في الـ Form2 بعمله أيضاً ؟

بالنسبة لـ Links for radio channels فصدقني ليس لدي :(, لكن يمكنك البحث عنه في Google,

سأساعدك في هذا البحث, حاول إجابة الأسئلة ^^^ .

بالتوفيق .

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#1921 يناير 2009 في 07:13

اريد عند تشغيل شى ما فى

Windows Media Player

الموجود فى From1 يقومWindows Media Player الموجود فى Form2 بتشغلها ايضا

#2021 يناير 2009 في 07:24

لا اعتقد أنها فكرة حسنة, سوف تقوم على شكل غير إجابي وبالتالي سوف يقوم كل من الـ Windows Media Players بالقراءة من مكان معين والذي اقصده بالمكان المعين هو مكان القراءة بالنسبة للتشغيل وليس مكان الملف المشغل, فكر بالأمر وقل لي ماهو مبتغاك من هذه الفكرة .

بالمناسبة جرب هذا المثال : A1VBCode\\\\MultiMedia\\\\SAT Onliner Radio

وّرد في العبارة السابقة ثلاثة Link كل واحد يصطحبك لموقع أو صفحة من الوصلة ( Link ) الأولى, استعرض الـ MultiMedia لترى عدة مشاربع تساعدك في مشروعك, حمّل المشروع SAT Onliner Radio لترى كيفية الوصل, لم أجربه أو أرى كيف يعمل لذلك سأنتظر ردك :P .

بالتوفيق .

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 21 يناير 2009 في 07:25

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#2121 يناير 2009 في 07:32

#2221 يناير 2009 في 07:43

يعني : تقصد أنك تستخدم الـ Windows Media Player لعرض مايقرأ فقط ؟

ثواني ,اعود اليك مع تعديل المشروع .

ملاحظة : راجع قيمة الـ TBPitch والحدث Scroll التابع له, تمت تعديلهم أيضاً .

:)

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#2321 يناير 2009 في 07:47

نعم هذا ما اقصده

#2421 يناير 2009 في 08:02

حسناً, جربه وأسأل ماتريد الإستفسار عنه .

بالمناسبة مالبرنامج الذي تستخدمه لعمل هذا الشكل من التعليقات ؟, التعليقات التي تضعها على الصور :P

بالتوفيق .

LBLWindowsMediaPlayer.zip

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#2521 يناير 2009 في 08:12

لم تفهم قصدى

انا اريد مثل ويندوز فيستا فى برنامج المديا بلير عندما يكون فى التاسك بار وبمرور الماوس يظهر الفيديو الى شغاله

انا اريد نفس الشئ ولا كن عند مرور الماوس فوق الايقونه اللى بجانب الساعه

تظهر الفيديو الى شغال او القناه

مساعده فى اداه Windows Media Player اول مشاركه لى

مواضيع مشابهة