nournabhan

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

السلام عليكم سؤالي مجرد استفسار بسيط عندما أنظر إلى قائمة الأعضاء المتواجدين أجدهم من هؤلاء !!! هل هم أعضاء أم مواقع ام ماذا ؟؟ !!!!

السلام عليكم إذا كنت تقصد نفس المثال يلي في المنتدى فأعد تحميله من هنا و جربه اما إذا كنت تقصد مثال أخر فجرب المرفق الثاني أخي afakaz ا نتبه تخير لموضوعك الاسم المناسب حتى لا يتعرض للحذف أو الاغلاق NetUs.rar NOUR_start.rar

ضع هذا الكود في الفورم Option Explicit Private Sub Command2_Click() 'الملف RichTextBox1.FileName = App.Path & "\NOUR.RTF" End Sub Private Sub Command1_Click() ' Print the contents of the RichTextBox with a one inch margin PrintRTF RichTextBox1, 1440, 1440, 144…

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

يا HnHn أنتي عما تضرب على العصب عندي :s أي شغلة بدك تعملها أترك للعطل الرسمية أيام فيها :huh: يعني بالعطل يكونوا الشباب كلهم متفاضيين

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

في زر الخروج غير كوده من Unload meإلى End وهذا الكود لانهاء أداة الصوت MM.Command = "Close" إلى الان لا أملك معلوم حول ذالك لكن شاهدت موضوع للأخ COMFORT على ماhعتقد حول البحث في ملف عشوائي ابحث عنه فقد يفيدك و السلام عليكم

السلام عليكم :( كمان مش أكس بي Sub CreateDb(Path As String) Dim db As Database Dim table As TableDef Dim soru As Field Dim pic As Field Dim zorlukderecesi As Field Dim ders As Field Dim sinif As Field Dim unite As Field 'Create Database Set db = CreateDatabase…

السلام عليكم أفتح الفيجوال بيسك وضع على الفورم Command1 و Command2 و CommonDialog1 هذا كود مشروح أظنه ينفع في تشفير الملفات الصغيرة الحجم التنفيذية أتمنى أن تستفيد من فكرته في مضمار الأفكار كود Option Explicit Private Sub Command1_Click() Dim ContentFile As St…

طيب هو ينفع باستخدام TextBox يعني Private Sub Command1_Click() 'كود الحفظ Dim filenum filenum = FreeFile Open "c:\NOUR" For Output As filenum Write #filenum, Text1.Text Close filenum End Sub

لا أظن ذلك ما هو مسار قاعدة بيانات البرنامج !!!!!

السلام عليكم ورحمة الله وبركاته تفضل اخي المشتاق هذا ما أستطيع المساعدة فيه :huh: NOUR_HLP.rar

السلام عليكم مشكلتك بســـــــــــــــــــــــــــيطة المشكلتان لنفس السبب التالي : المشكلة لديك أخي الكريم أنك في نص TEXTBOX يعني خاصية الTEXT له قد أضفت فراغاً وبالتالي فقد احتسب حرف احذف الفراغ و ستنحل المشكلة بإذن الله يبدو أنك أخطأت في تيكست وبدأت تنسخه وت…

السلام عليكم في المرفقات برنامج صغير يحول أيقونات XP إلى ME و العكس قد يفيدك في استرجاع الايقوانات وعلى فكرة البرنامج مصمم بالفيجوال بيسك يعني كود :D بس صار لي ساعة بدق على المعالج وما عما يطلع منه و لا سندويشة :huh: غريب :lol: xpicn.rar

هذا مثال كود يظهر برنامجك بالضغط على ALT Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Dim M As Integer Private Sub Form_Load() Form1.Visible = False End Sub Private Sub Timer1_Timer() If M <> GetAsyncKeyState(18) Then …

و عليكم السلام لتجعل برنامجك يعمل في الخلفية أذهب إلى خاصية Visible بتاع الفورم و اعملها False وبذلك يصبح برنامجك شغال ومخفي أو ضع الاكواد 'كود الاخفاء Form1.Visible = False 'كود الاظهار Form1.Visible = True وبالنسبة لضربات المفاتيح حاول البحث في المنتدى ستجد …

السلام عليكم ورحمة الله وبركاته أفكار B) قد تفيدك أظن أن عملية العطب غير فعالة أفرض أنه تم تنصيب برنامجك من سواقة ليزيرية كيف سيعطب البرنامج نفسه و هو لا يستطيع التعديل على نفسه حاول تسجيل قيمة في الريجستري أو وضع ملف في النظام وعندها يختبر برنامجك الملف إذا ك…

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

السلام عليكم ورحمة الله وبركاته استخدم هذا الكود Option Explicit Private oldcaption As String Private Sub Command1_Click() oldcaption = Me.Caption OLE1.Action = 7 End Sub مين قال مينفعش :angry: تحتاج زر كومند و OLE1 أضف إليه عرض بوربوينت تقديمي ثم انقر على OLE…