nournabhan

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

الوضع عندي صار ممتاز :D بارك الله فيك أخي فيصل

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

كأنه بدأت تلوح في الافق أشعة برنامج جديد أسمه arabteam2000 Word 2007 كود الحفظ Private Sub Command1_Click() adoWord.Save App.Path & "\WordView.doc", True End Sub في المرفقات مثال بسيط حول التعامل مع ملفات RTF ألقاكم الاسبوع المقبل بالتوفيق Source.rar

المواضيع 1 برنامج القرأن الكريم أين ذهب :blink: HnHn : السهم 100 نقطة 2 برنامج العيادات HnHn : السهم 100 نقطة 3 برنامج المساعد نور HnHn : السهم 200 نقطة 4 برنامج ترجمة ونطق HnHn : السهم 200 نقطة 5 برنامج مراقبة الاتصال بالانترنيت HnHn : السهم 100 نقطة 6 برنامج…

تمام هذا مثال بسيط بالتوفيق..... NOUR_sounds.rar

السلام عليكم بحبشت في الجهاز و لقيت هالمثال ـمنى أن ينفعك المشكلة أنو وقتي ديق :D بالتوفيق Phone1.rar

المحاولات الفاشلة :wacko: حاولت البحث في الريجستري ولم أجد شي وعلى الأغلب العملية لا تخزن في الريجستري حاولت نسخ ملفات الاكسبلور وإزالة الإشارة ثم استعادة الملفات فلم يطالبني بالسؤال فالعملية لا تخزن في البرنامج آو ملفاته التي معه أي في مساره حاولت التعامل مع …

السلام عليكم لا تنسي وضع الكود MMControl1.Command = "Close" ليصبح MMControl1.Command = "Close" 'play sound MMControl1.DeviceType = "waveaudio" MMControl1.FileName = App.path & ("\sounds\general\duck.wav") MMControl1.Command = "stop" MMControl1.Command = "open"…

السلام عليكم طبعاً كجمالية للبرنامج أفضل شيء استخدام الويب WebBrowser أما بالنسبة لاستخدام الورد حصراً بواسطة RichTextBox يحل بعض المشاكل لكن كما ذكرت رح يلخبط بعض الأمور . بواسطة WebBrowser حاولي التخلص من الرسالة أي بما أنها تذهب بإزالة إشارة صح فهي قد تكون …

السلام عليكم تسلم إيديك أخ عمرو عماد على هذه الاداة الجميلة منتظرين مزيد من الابداع بالتوفيق و السلام عليكم

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

السلام عليكم وهذا كود إذا كنت تقصد التكرار بعد الانتهاء من الملف Private Sub Form_Load() 'تشغيل الملف mm.FileName = App.Path & "\nabhan.mid" mm.Command = "open" mm.Command = "play" End Sub Private Sub mm_StatusUpdate() 'التكرار عند الوصول للنهاية 'هنا حسب الرغ…

Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal DestAddr$, ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long Public Sub CallPhone(Number As String, Name As String) Dim lRes As Long Dim result As Long ' …

جزاك الله خيراً على هذا المثال وهو سيصبح برنامج جميل جداً و تعبت عليه كمان شوي -waf

الحمد لله الأوضاع بعد التجربة لمدة يوم تمام تمام !!!

تسلم أخي sih وأنت عزيز وغالي عليّ صحيح إلى متى؟؟؟؟ يالله نحلها الحمد لله الذي بنعمته تتم الصالحات ،، انحلت المشكلة يقول مهندس الصيانة قبل ما يفك الجهاز أن المشكلة سبق أن مرت عليه الحمد لله ميييييييين مهندس الصيانة !!!!!!!!!!! والمشكلة ليست معجزة ولكن تحتاج (((…

الحمد لله لقيتو :D تفضل.... NOUR_moon.rar

أداة مستعرض الويب WebBrowser1.Navigate App.Path & "\www.htm" وهي تظهر لك الرسوم و الالوان أداة RichTextBox1 RichTextBox1.FileName = App.Path & "\ www.RTF" وهي تظهر لك النصوص بالتلوين ولا تظهر الخطوط و الاسهم و الرسوم لذلك يفضل استعمال اداة الويب انا استخدمها و…