لو سمحتو كود لعرض محتويات ملف txt في التكست بوكس

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

تفضل يا اخي الكود التالي يقوم بالمطلوب ان شاء الله

Open "C:\mando.txt" For Input As #1
Dim M As String
1
If EOF(1) Then Close: Exit Sub
Input #1, M
Text1 = Text1 & M & vbCrLf
GoTo 1
Close

=================

الى اللقاء

السلام عليكم

أخي بارك الله فيه و التجربة

كان هدا ماأريده وقد وجدته و لا يسعني إلا أن أقول جزاك الله خيرا

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

و السلام عليكم

بس في طلب ياريت كود لتشغيل ملف ....فيديومن نوع rm ......

====فيديوا==== و ليس صوت

و السلام عليكم

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

اخي الموضوع سهل ان شاء الله

فكرة تشغيل ملفات الـ RM كلها تعتمد على وجود برنامج الـ Real Player

قم بعمل الخطوات التالية

بعد فتح الفيجوال بيزك اضغط على CTRL + T

وابحث عن الاداة

Real Player ActiveX Control Library

ثم قم بسحبها ووضعها على الفورم واظبطها بالحجم الذي تريده

اما في شاشة الكود اكتب الاتي

RealAudio1.Source = "file://C:\MR_King.rm"

وهو لاعطاء مسار الملف المراد تشغيله

كما انه يمكنك عمل ذلك والتحكم في الخصائص عن طريق شاشة الخصائص في الفيجوال بيزك

أرجو اني اكون قد أفدتك :)

=================

الى اللقاء

السلام عليكم

عفوا أخي الكريم فهده الأداة فقط لتشغيل ملف صوتي من نوع ram

وليس فيديو كما أريد

والسلام عليكم

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

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

عموما يمكن تكون المشكلة في نسخة الريل بلاير اللي عندك

انا عندي النسخة رقم 10 من الريل بلاير

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

واخبرنا بالنتيجة