اريد اخفاء الاطار واريد ازرار ميديا

[غزوان خليل]

السلام عليكم
اريد اخفاء اطار النموزج االون الازرق



لقد بحثت كثيرا لكن لم اجد طريقة لاخفاء الاطار وايضا طريقة اخفاء البرنامج الى جوار الساعة الا في vb6

واريد ازرار ميديا

تشغيل- ايقاف- ايقاف مؤقت -قائمة - راديو -تلفزيون -ازرار صوت -تصغير -اغلاق -تكبير

لانني حاولت تصميمها بالفوتوشوب لكن لم استطيع فرجاءا ساعدوني

[Abu Ehab]

السلام عليكم ورحمة الله وبركـــــاته
الموضوع تقريبا جاهز في الدوت نت وأسهل مليون مرة من بيسك 6

أليك مثــــــال في المرفقــــــات
ومثــــــال أخـــــــــر هنـــــــــــــــا

أخفــــــاء الأطار من خاصية :
FormBorderStyle = None

تأخرت في الرد لأنقطـــــاع التيار لمدة 21 ساعه .

[Abu Ehab]

في المرفقــات بعض الأيقـونات التى ممكن تحتاجها .

[غزوان خليل]

شكرا لك أستاذي ومدربي الفاضل على مساعدتك لي
لك مني كل الاحترام والتقدير

[غزوان خليل]

طلب اخر لي وهو
كيف ساعمل مثل الوينرار



بالنسبة للفروم فا عندما يون بالوضوع الطبيعي يكون هكدا

وعندما اكبره يصبح بهذا الشكل


فهل هناك كود او اداة لتناسق الفروم بحثت في المنتدى لم اجد

[Abu Ehab]

هـــــدية منى لكل الأعضــــاء هنـــــــــــــا .
وأكيــــــد لك أخي الكريم .

في الدوت نت ممكن تعملها بطريقتين :
1_ بأستخدام Dock
2_ بالكود ,, ولو عايز الكود أبلغني .

[غزوان خليل]

أستاذي الفاضل المثال لم يفتح معي لانني اعمل على vb2010 وهو vb6

بأستخدام Dock

هذا الاداء لم اجدها في فروم

2

_ بالكود ,, ولو عايز الكود أبلغني

انكان كود اوشرح افضل اكون لك شاكرا



ومن اجل اخفاء الفروم بجانب الساعة استخدمت هذا المثال
[h=1]تصغير البرنامج إلى شريط المهام بجوار الساعة باستخدام
الNotifyIcon[/h] ظهر جوار الساعة مع التصغير وام تختفي وايضا لم تظهر القائمة اليمنى فارجو ان توضح لي كيفة اظهارها

[Abu Ehab]

[Abu Ehab]

المثـــــال اللى رفعه الدكتور أسامه يعمل جيدا .
وأليك صورة للتأكيـــــــــد

[غزوان خليل]

استاذي الفاضل ارجوا ان تشاهد المشروع
وتوضح لي ماهي الأخطاء التي ارتكتبها
لكي اصحححها
انا اعمل على vb2010
http://www.vba4a.com/upload//view.php?file=4105367abf

[غزوان خليل]

اولاً اشكرك على المساعدة
وبالنسبة للكود قمت بوضع كود يحتوي على بعض الصيغ ولكن ظهرت اخطاء كثيرة اقتباس:

private sub فتحtoolstripmenuitem_click(byval sender as system.object, byval e as system.eventargs) handles فتحtoolstripmenuitem.click try opd.initialdirectory = "my music" opd.filter = "media files" (*.wav;*.mp3;*.mp4;*.mpeg;*.dat;*.wma;*.wmv;*.rm;* .ram;*.avi;*.asf;*. 3gp;*.mov;*.divx;*.swf;*.flv)|*.wav;*. Mp3;*.mp4;*.mpeg;*.dat;*.wma;*.wmv;*.rm;*.ram;*.av i;*.asf;*.3gp;*.mov ;*.divx;*.swf;*.flv|all files(*.*)|*.*" if opd.showdialog() = windows.forms.dialogresult.ok then player.url = opd.filename player.ctlcontrols.play() end if catch ex as exception messagebox.show("some error occur so can't play media", "error", messageboxbuttons.ok, messageboxicon.error) end try end sub

هذه هي الأخطاء اقتباس:

error 1 syntax error. G:\sham player\sham player\form1.vb 50 1 sham player error 2 labels that are numbers must be followed by colons. G:\sham player\sham player\form1.vb 51 1 sham player error 3 'gp' is not declared. It may be inaccessible due to its protection level. G:\sham player\sham player\form1.vb 51 2 sham player error 4 character is not valid. G:\sham player\sham player\form1.vb 51 4 sham player error 5 'mp3' is not declared. It may be inaccessible due to its protection level. G:\sham player\sham player\form1.vb 52 1 sham player error 6 character is not valid. G:\sham player\sham player\form1.vb 52 4 sham player error 7 character is not valid. G:\sham player\sham player\form1.vb 53 1 sham player error 8 'files' is not declared. It may be inaccessible due to its protection level. G:\sham player\sham player\form1.vb 54 1 sham player error 9 expression expected. G:\sham player\sham player\form1.vb 54 7 sham player error 10 leading '.' or '!' can only appear inside a 'with' statement. G:\sham player\sham player\form1.vb 54 8 sham player error 11 'player' is not declared. It may be inaccessible due to its protection level. G:\sham player\sham player\form1.vb 56 17 sham player error 12 'player' is not declared. It may be inaccessible due to its protection level. G:\sham player\sham player\form1.vb 57 17 sham player

وكود التشغيل
اقتباس:

private sub picturebox1_click(byval sender as system.object, byval e as system.eventargs) handles picturebox1.click player.ctlcontrols.play() end sub end class

هذا الخطأ
اقتباس:

error 13 'player' is not declared. It may be inaccessible due to its protection level. G:\sham player\sham player\form1.vb 73 9 sham player

فماهو الحل ارجو منك ان توضح لي ماهي الأخطاء التي ارتكتبها
لكي اصحححهاواعتذر مرة اخرى لكن بحثت وكل كود اجربه يظهر فيه اخطاء

[Abu Ehab]

error 1 syntax error. G:\sham player\sham player\form1.vb 50 1 sham player

أخي أنا لاحظت أنك تتعامل مع القرص G وهو في الأغلب CD Room
تأكد من وجود البرنامج على الأسطوانه أو حتى وجودها .
أما الكود ما في أي مشكلة خالص .

[غزوان خليل]

استاذي عندي G قرص محلي على اي حال نقلت البرنامج علىc ثم على D ولكن نفس المشكلة مع بعض الحل
اللون الزرق هو المشكلة

Private Sub فتحToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles فتحToolStripMenuItem.Click

Try
OpenFileDialog1.InitialDirectory = "my music"
OpenFileDialog1.Filter = "media files"
(*.wav;*.mp3;*.mp4;*.mpeg;*.dat;*.wma;*.wmv;*.rm;* .ram;*.avi;*.asf;*.
3gp;*.mov;*.divx;*.swf;*.flv)|*.wav;*.
Mp3;*.mp4;*.mpeg;*.dat;*.wma;*.wmv;*.rm;*.ram;*.av i;*.asf;*.3gp;*.mov
;*.divx;*.swf;*.flv|all
files()
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
player.url = OpenFileDialog1.FileName
player.ctlcontrols.play()
End If
Catch ex As Exception
MessageBox.Show("some error occur so can't play media",
"error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

الاخطاء

Error 3 'gp' is not declared. It may be inaccessible due to its protection level. D:\sham player\sham player\Form1.vb 51 2 sham player
Error 5 'Mp3' is not declared. It may be inaccessible due to its protection level. D:\sham player\sham player\Form1.vb 52 1 sham player
Error 4 Character is not valid. D:\sham player\sham player\Form1.vb 51 4 sham player
Error 6 Character is not valid. D:\sham player\sham player\Form1.vb 52 4 sham player
Error 7 Character is not valid. D:\sham player\sham player\Form1.vb 53 1 sham player
Error 2 Labels that are numbers must be followed by colons. D:\sham player\sham player\Form1.vb 51 1 sham player
Error 1 Syntax error. D:\sham player\sham player\Form1.vb 50 1 sham player

بالنسبة ل

files()
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
player.url = OpenFileDialog1.FileName
player.ctlcontrols.play()

اعتقد اني وجدت الحل وهو

Private Function player() As Object
Throw New NotImplementedException
End Function

Private Sub files(ByVal p1 As Object)
Throw New NotImplementedException
End Sub

Private Sub files()
Throw New NotImplementedException
End Sub

مع اني قرات في احد الكتب ان هذاليس حلا

[Abu Ehab]

يبدو أنه مش متعرف على الملفات المذكورة والله أعلم ..
طيب جرب أحذفها من الفلتر ...

[غزوان خليل]

استاذي جربت الحذف لكن عندما احذفها ينتقل الاخطأ الى الصيغة التي بعدها
وهذ ا ما فعلته لكن لااعرف ان كان صحيحا ام لا

OpenFileDialog1.InitialDirectory = "my music"
OpenFileDialog1.Filter = "media files"
(*.wav;*.mp3;*.mp4;*.mpeg;*.dat;*.wma;*.wmv;*.rm;* .ram;*.avi;*.asf;*.
3:gp;*.mov;*.divx;*.swf;*.flv)|*.wav;*.
Mp3;*.mp4;*.mpeg;*.dat;*.wma;*.wmv;*.rm;*.ram;*.av i;*.asf;*.3gp;*.mov
;*.divx;*.swf;*.flv|all
files()
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
player.url = OpenFileDialog1.FileName
player.ctlcontrols.play()
End If
Catch ex As Exception

End Try
MessageBox.Show("some error occur so can't play media",
"error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Sub

Private Function player() As Object
Throw New NotImplementedException
End Function

Private Sub files()
Throw New NotImplementedException
End Sub

Private Sub Mp3()
Throw New NotImplementedException
End Sub

Private Sub gp()
Throw New NotImplementedException
End Sub

End Class

لكن ايضا يوجد اخطاء

Error 2 Character is not valid. D:\sham player\sham player\Form1.vb 50 5 sham player
Error 3 Character is not valid. D:\sham player\sham player\Form1.vb 51 4 sham player
Error 4 Character is not valid. D:\sham player\sham player\Form1.vb 52 1 sham player
Error 1 Syntax error. D:\sham player\sham player\Form1.vb 49 1 sham player

[Abu Ehab]

طيب أســـــــمع :
حول مشــــروعك الى أصـدار 2008 بأي طريقة وأرفعه لى ... وأنا أن شاء الله راح اتفــاهم مع المشـــــروع بطريقتى الخـــــــاصة

[غزوان خليل]

استاذي الفاضل اعتذر عن التأخير
لقد حولته الى 2008 وفتح مع علىvb2008
http://www.vba4a.com/upload//view.php?file=c67edde792

واعتذر منك مرة اخرى

[Abu Ehab]

هنــــــــــــا التعــــــــديل .

[غزوان خليل]

شكرا لك على التعديل لكن ظهرات الاخطاء التالية

Error 1 Type 'AxWMPLib.AxWindowsMediaPlayer' is not defined. C:\Users\sham\Documents\Visual Studio 2008\sham player\Form1.Designer.vb 80 27 sham player
Error 2 Type 'AxWMPLib.AxWindowsMediaPlayer' is not defined. C:\Users\sham\Documents\Visual Studio 2008\sham player\Form1.Designer.vb 620 35 sham player
Warning 3 Cannot load type library for reference "AxWMPLib". ‏‏المكتبة غير مسجّلة. (Exception from HRESULT: 0x8002801D (TYPE_E_LIBNOTREGISTERED)) sham player
Warning 4 Cannot load type library for reference "WMPLib". ‏‏المكتبة غير مسجّلة. (Exception from HRESULT: 0x8002801D (TYPE_E_LIBNOTREGISTERED)) sham player
Warning 5 The referenced component 'AxWMPLib' could not be found.
Warning 6 The referenced component 'WMPLib' could not be found.

المشلكة في الفروم الاول فقط