الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

طلب بعض الأكواد

مغلق
بدأه XShadow في 16 أغسطس 2006 · 3 رد · 552 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

إخواني أعضاء منتدى البرمجة

لدي بعض الأسئلة بعد إذنكم

أولاً:... أعرف كيف استطيع تشغيل ملف فيديو وذلك بعد وضع أيقونات dir, drive, file, media player...،

لكني أريد أن أجعل البرنامج يفتح الفيديو كما هو الحال في جميع البرنامج، أي من خلال الضغط على file ثم open video ثم تختار الفيديو من الجهاز

ملاحظة: أنا أعرف كيف أصنع القائمة، لكن ما هو الأمر الذي أضعه في open video ؟!

ثانياً: هناك أمر يشبه الأمر التالي كتيبته في click في زر الأوامر command

label1 = "jashf" & text1.text *1000 & "jsadf".........................

المشكلة هو أن الأمر طويييييا جداً، وبالتالي يرفضه برنامج الفيجوال بيسك، ويظهر الخطأ line is too long...

هل هناك طريقة أستطيع من خلالهاكتابة أمر واحد في سطرين؟!

ثالثاً وأخيراً: كيف أستطيع أن أجعل (صورة مثلاً أو زر أمر أو...) عند الضغط عليه يفتح المتصفح ويذهب إلى موقع معين؟! أو يفتح nternet explorer ويبعث إيميلاً إلى إيميل محدد؟!

ما هو الكود؟!

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

#2

السلام عليكم

تفضل اخي

لتشغيل اقراص الفيديو ذات الامتداد dat

MMControl1.FileName = ("G:\MPEGAV\AVSEQ01.dat")
MMControl1.Command = "open"
MMControl1.hWndDisplay = Picture1.hwnd

ملفات ram ,rm

لاتنسى اضافة اداة ريل بلاير

CommonDialog1.ShowOpen
RealAudio1.Source = CommonDialog1.FileName
RealAudio1.DoPlay

لتشغيل ملفات mid

MMControl1.Visible = False
MMControl1.DeviceType = "sequencer"
MMControl1.FileName = ("c:\FileName.mid")
MMControl1.Command = "open"
MMControl1.Command = "play"

ملفات avi و wave

اضف اداة comondialog1 اول ثلاثة اسطر في هذا الكود هي لفتح الملف 

comondialog1.filter="AllFiles(*.*)/*.*/wav file(*.wav)/*.avi/"
comondialog1.FilterIndex=z
comondialog1.showOpen
MMControl1.FileName=comondialog1.FileName
MMControl1.Command="Open

ساقوم باضافة كود تشغيل اسطوانات الاوديو لاحقا فانا اعمل الان على نظام لينكس

واحتاج لبعض الوقت لكتابتها :wacko:

تحياتي لك وللجميع

تم تعديل هذه المشاركة بواسطة EZ.ELDEEN في 16 أغسطس 2006 في 12:46

Unix is user friendly. It's just selective about who its friends are .

#3

شكراً جزيلاً لك، سأجربها حالاً...

لكن ماذا عن الأكواد البقية الخاصة بالسؤالين الثاني والثالث؟!

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

#4

سؤال آخر لو سمحتم يا أعضاء منتديات الفريق العربي للبرمجة

قمت بوضع flatScroll bar بحيث تظهر عند تشغيل الفورم، لكن المشكلة هي أنه عند الضغط على المربع للنزول إلى الأسفل (أو العكس) فإنه لا يحدث شيء، مع أنه يوجد بعض الأيكونات في أسفل الفورم غير ظاهرة

ما هو الكود اللازم لتفعيل الشريط؟!

وأخيراً...

إذا كان هناك label1 على سبيل المثال، ووضعت أمراً بحيث يقوم بكتابة الثانية الحالية لملف فيديو.... المشكلة هي أن الرقم الذي يتم كتابته يحتوي على حوالي ست أو سبع خانات بعد الفاصلة، مثل هذا 4.248661486

كيف أستطيع أن أحدد الرقم إلى خانتين فقط؟!

وشكراً

تم تعديل هذه المشاركة بواسطة XShadow في 17 أغسطس 2006 في 10:04

هذا الموضوع مغلق.

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