--((الموسوعة الضخمة لأكواد وأفكار الفيجويل))---

أحمد خميس راشد · 26 فبراير 2005، 21:23

بسم الله الرحمن الرحيم
أكواد رائعة ونرجوا اضافة اكواد اخرى

الريامي · 27 فبراير 2005، 0:33

مشكور أخي أحمد خميس راشد على التشجيع وان شاء الله سيتم وضع المزيد

أحمد خميس راشد · 5 مارس 2005، 19:38

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

ولكم جزيل الشكر

anas_ad · 17 أبريل 2005، 13:53

يسلمو على هالاكواد

وننتظر جديدك

soohil · 18 أبريل 2005، 13:45

شكر جزيل
نفعتنا بهذه الأكواد

جنرال تك · 3 مايو 2005، 23:24

اخي الفاضل الريامي
موضوع جميل جدا جدا جدا كنت ابحث عنه كثيرا ونرجو منك المزيد
ملحوظه ارجو منك ان تتقبلها بصدر رحب
نرجو منك كتابت وظيفت كل كود بشرح تفصلي اكثر
ومرة اخري اشكرك علي هذا الموضوع الجميل

خلود محمد · 7 مايو 2005، 19:42

ما فهمت شي ؟؟
ممكن تشرح المقصود من هذا الكود
وشكل الفورم كيف بيكون لوسمحت

خلود محمد · 7 مايو 2005، 20:02

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

دكتور البرمجة؟؟! · 8 مايو 2005، 16:38

يا أخوان وش الموضوع؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

soso82 · 10 مايو 2005، 22:31

السلام عليكم ورحمة الله وبركاته.. هذا الكود لتشغيل الصوت بm m control
Private Sub Form_Load()
MMControl1.DeviceType = "sequencer"
MMControl1.FileName = "هنا يكتب مسار الصوت "
MMControl1.Command = "open"
MMControl1.Command = "play"
MMControl1.Command = "prev"
End Sub

smora · 16 مايو 2005، 23:19

الريامي
مشرف ساحة الفيجوال بيسك والله أنا منا عارفه كيف اشكرك على هذا المجهود الضخم والرائع فى اضافة وجلب هذه الاكواد الرائعة والساحرة وهذا لأول مرة أرى موقع وأول شخص يقدم هذا الكم الضخم من تلك الأكواد وبهذا التوسع وهذا وان دل فإنه يدل على كرم زائد منكم يا أخ الريامى فى سبيل خدمة أعضاء الساحة والزوار للموقع ولابد أن تستحق الاشادة بالفعل على هذا المجهود الضخم ووفقك الله على ما تفعل ولك جزيل الشكر والعرفان

أختكم
smora

الريامي · 29 مايو 2005، 20:33

نشكر الجميع على هذي الردود الرائعة ، وآسف على الغياب الطويل عن الساحة بسبب بعض الظروف ، بالنسبه لشرح الأكواد فهذا لا أظن أنها تحتاج للشرح لانها بمجرد إضافة الأدوات وكتابة الكود ستجدها شغالة .

محبة حيدر · 18 يونيو 2005، 0:52

السلام عليكم أخوتي الاعزاء

تسلمون على تلك الاكواد بس اتمنى ارفاق الشرح لها حتى تعم الفائدة

قد كتبت موضوع ارجو الاطلاع عليه بخصوص الفيجوال بيسك و لكم كل الشكر ان قدرتو عليه

اختكم حاسوبية خبيرة بدون خبرة

الريامي · 19 يونيو 2005، 11:07

اسمحولي لأخواني لاني سأنقطع لفترة

مع السلامة

AhmedAltaher · 22 يونيو 2005، 18:27

شكرا جزيلا
ما قصرت أبدا

الماس2005 · 6 يوليو 2005، 3:52

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

ويعطيك العافيه على الأكوادالحلوة

الريامي · 30 يوليو 2005، 14:54

الماس2005 كتب:

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

ويعطيك العافيه على الأكوادالحلوة

تسلم أخي على الرد

الريامي · 30 يوليو 2005، 15:00

AhmedAltaher كتب:

شكرا جزيلا
ما قصرت أبدا

والشكر موصول لك على هذا التواصل

الريامي · 7 أغسطس 2005، 14:06

كود المصدر

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Form_Click()
Dim Ret As Long, A$, x As Integer, y As Integer
x = 10
y = 10
A$ = "c:\Filename.avi"
Ret = mciSendString("stop movie", 0&, 128, 0)
Ret = mciSendString("close movie", 0&, 128, 0)
Ret = mciSendString("open AVIvideo!" & A$ & " alias movie parent " & Form1.hWnd & " style child", 0&, 128, 0)
Ret = mciSendString("put movie window client at " & x & " " & y & " 0 0", 0&, 128, 0)
Ret = mciSendString("play movie", 0&, 128, 0)
End Sub
Private Sub Form_DblClick()
End
End Sub
Private Sub Form_Terminate()
Dim Ret As Long
Ret = mciSendString("close all", 0&, 128, 0)
End Sub

عرض الكل

Dr_7zN · 16 أغسطس 2005، 4:43

طيب كيف استخدم هالاكواد لازم يكوم عندي البرنامج نفسه ؟

على علمي البرنامج حجمه كبير جدااا ومستحيل احمله من النت ؟

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

الريامي · 16 أغسطس 2005، 7:10

Dr_7zN كتب:

طيب كيف استخدم هالاكواد لازم يكوم عندي البرنامج نفسه ؟

على علمي البرنامج حجمه كبير جدااا ومستحيل احمله من النت ؟

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

مشكور أخي على الرد
طبعاً ستحتاج إلى Microsoft Visual Basic 6.0 لتشغيل الأكواد

ahmeddriss · 23 أكتوبر 2005، 2:52

السلام عليكم ورحمة الله
اود كود يمكني من تحريك ellipseعلى الفورم بزاوية 45درجة
شكرا لكم$$-e

سيفو1 · 23 أكتوبر 2005، 21:48

السلام عليكم ورحمة الله وبركاته
لا داعي ان يتكلم اي احد ااااااااااااااااااااااااخر فالريامي يتحدث vb
انا نفسي اشعر بالخجل $$-e

امام هذا العملاق

خبير البرمجة · 26 يناير 2006، 12:40

الريامي كتب:

ضع هذا الكود في المفكرة

كود المصدر

Private Sub Command1_Click()

Shell "notepad.exe", vbNormalNoFocus

AppActivate ("المفكرة")

SendKeys ("منتديات ساحة العرب")

End Sub[/align]

اخي كتير هنا من الغلظات معاك ليس كل الاكواد في الفورم بعضهه في زر الاوامر

خبير البرمجة · 26 يناير 2006، 12:40

الريامي كتب:

ضع هذا الكود في المفكرة

كود المصدر

Private Sub Command1_Click()

Shell "notepad.exe", vbNormalNoFocus

AppActivate ("المفكرة")

SendKeys ("منتديات ساحة العرب")

End Sub[/align]

اخي كتير هنا من الغلظات معاك ليس كل الاكواد في الفورم بعضهه في زر الاوامر

الريامي · 13 فبراير 2006، 14:58

خبير البرمجة كتب:

اخي كتير هنا من الغلظات معاك ليس كل الاكواد في الفورم بعضهه في زر الاوامر

مشكور أخي على الرد
بس أخي لو ركزة زين في الكود اتلقاه إنه موضوع في زر الأوامر وما مذكور في الكود كلمة Form .

سحايب نجد · 27 مارس 2006، 0:02

بصراحه كفيتوا وفيتوا ما قصرتم جزاكم الله ألف خير
الاكواد كثير حلوه وكثير مفيده وساعدتني كثير في مشروع الفيجوال
بس ياليت من بعد أذنكم وما عليكم أمر تعلمون كل كود وين نكتبه في أي اذاه يعني البعض كاتب في الفورم هذي مفهومه والبعض يقول أسم أداه ما سمعت بها اذا ما فيه ثقل حطو لنا من وين نأخذها
وأنا مهما شكرنكم ما أوفيكم حقكم جهودكم واضحه
هذا ولكم مني فائق الاحترام والتقدير

الريامي · 1 يوليو 2006، 21:52

سحايب نجد كتب:

بصراحه كفيتوا وفيتوا ما قصرتم جزاكم الله ألف خير

الاكواد كثير حلوه وكثير مفيده وساعدتني كثير في مشروع الفيجوال
بس ياليت من بعد أذنكم وما عليكم أمر تعلمون كل كود وين نكتبه في أي اذاه يعني البعض كاتب في الفورم هذي مفهومه والبعض يقول أسم أداه ما سمعت بها اذا ما فيه ثقل حطو لنا من وين نأخذها
وأنا مهما شكرنكم ما أوفيكم حقكم جهودكم واضحه

هذا ولكم مني فائق الاحترام والتقدير

تسلمي على الرد:)
الأدوات الإضافية إما أنها تكون موجودة في الفيجويل بيسك نفسه أو أنها تقوم بإدخالها ، وهي منتشرة بكثرة إذا أحتجت إلي أي أداه اكتب اسمها وابحثلك عنها

hitotam · 21 أكتوبر 2006، 16:47

أريد كود الفجوال بسيك لعارض الصور أرجوكم|a

hitotam · 21 أكتوبر 2006، 22:33

أرجوكم بدي كود الفجوال بسيك لمتصفح الصور أرجوكم

--((الموسوعة الضخمة لأكواد وأفكار الفيجويل))---

الماس2005 كتب:

AhmedAltaher كتب:

تشغيل ملف من نوع AVI دون الحاجة إلى أي أدوات

كود المصدر

Dr_7zN كتب:

الريامي كتب:

كود المصدر

مشاركة

الريامي كتب:

كود المصدر

خبير البرمجة كتب:

سحايب نجد كتب:

مشاركة