Pharaonic_Guy

فقط قم باستبدال المعامل Output بـ Append مثال : Open "C:\File.txt" For Append As #1 Print #1,,"Some Text" Close #1 وإذا أردت مساعدة ما بالمشروع فقم بإرفاقه لتصبح المساعدة بصورة أفضل ..

علي حسب ما فهمته تكمن المشكلة في أنه عندما تضيف بيانات جديدة في التكست فيتم حذف البيانات القديمة .. يبدو أنك تستخدم المعامل output مع دالة Open .. جرب استخدام المعامل Append ليحفظ البيانات السابقة ويضيف عليها الجديد Open "File Path" For Append As Num لماذا لا …

قم بتمرير قيمة الثواني الي الدالة التالية وستعود لك بالوقت Function GetTime(lngTime As Long) As String Dim dDate As Date dDate = DateAdd("s", lngTime, "0") GetTime = Format(dDate, "hh:mm:ss") End Function

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

مشكلة الحدث cmdsave_Click للمتغير bNull أنه يعود بـ True .. ويخرج من مسار تنفيذ الكود نتيجة لـ If bNull = True Then Exit Sub وهو يعود دائما بـ true لوضعك للكود bNull = True في نهاية الإجراء NullText .. ---------------------- لتتيع الكود خطوة بخطوة .. بدلا من ا…

مرحبا بعودتك أخي أحمد .. لي استفسار حول البرنامج .. حيث أعتقد أنني رأيت نسخته الأولي منذ أكثر من سنة تقريبا .. فهل هذه نسخة جديدة .. ولماذا V1.0 ؟

شكرا علي هذه المشاركة المتميزة أخي هاني .. وبدون شك .. الأخ أسامة يستحقها عن جدارة .. ولو أنني أطمع في ترشيحه للقب خبير ..لأنه خبير فعلا .. ولا يمكن للقسم الاستغناء عنه بعد ذلك ..

لا لا .. أنت رحت بعيد قوي .. Right To Left

شكرا علي التجاوب الحماسي بدون أي مثبطات أو مهبطات .. حيث أننا لسنا بصدد بناء نظام تشغيل بالتأكيد .. وجميع الخبرات متوفرة هنا .. ولن يتردد أحد في تقديم المساعدة حتي من خارج التيم .. وإن شاء الله بريمج Winboost سيكون جزء داخل مشروعنا .. سأبدأ بإذن الله بتصميم وا…

جملة تغيظ فعلا .. كأننا عمال وبناخد آجر نظير خدمة سعادتكم .. وأنت لو مش بتستفيد .. فغيرك بيستفيد .. وبالنظر إلي وقت تسجيلك في المنتدي .. أجد أن الإفادة من جانب واحد لديك .. وعن أسئلة مشاركاتك أجد أنها مكررة مئات المرات .. وهي أسئلة بسيطة والجميع يستطيع الإجابة…

أقصي وقت بأي حال للإنجاز هو 3 شهور .. السعر .. ليس أقل من 2000 .. ويمكن زيادة هذا المبلغ علي حسب نوع الشركة التي تحتاج البرنامج .. وحاول تعملهم البحر طحينة .. واعمل نظام الحضور والانصراف بالـ Finger Print .. وأطلب مبلغ أكثر مما سيدفعوه .. وبما أنهم سيتعاملون م…

نعم الابتعاد عن قواعد البيانات أفضل .. نستطيع وضع أفكار للمشروع .. عن نفسي .. فكرتي هي تصميم برنامج خدمي يجمع العديد من الأشياء مثل : * بحث محترم ومتقدم عن بحث الويندوز .. (مع توفير خدمة أفضل للبحث داخل الملف عن نص معين بصيغة ASCII & Hex) ولنجعله مثل بحث فيستا…

بروس يعتبر أسطورة الفيجوال بيسيك .. http://www.google.com.eg/search?hl=ar&...80%8F&meta= أخي msayed2004 أولا شكرا علي المشروع .. لكن انت بتضحك علينا كده .. احنا منتظرين منك دائما المشاريع الثقيلة .. وانا عارف انها محتاجه وقت وأنت في كلية طب ومش فاضي .. فايه رأ…

Private Sub Text1_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single) On Local Error Resume Next Dim lStart As Long, lEnd As Long, lPos As Long If Button = 1 Then lPos = Text1.SelStart lStart = InStrRev(Text1, " ", lPos) lEnd = InStr(lPos, T…

ليه التغيير إلي ملف PDF دالة ShellExecute كافية لفتح اي ملف .. ويمكنك استخدام مكتبة Word إذا أردت التحكم في الملف أكثر من مجرد فتحه .. أخي أسامة .. أنا أعلم يقينا أنك تعلم الكلام الآتي ..لأنك عضو فعلا بتفهم .. ومن الأعضاء الذين وضعوا بصمة حديثة في القسم هنا ..…

هي F مش C .. هل جربت البحث ؟ وهل أنت متأكد من أنك تريدها بفيجوال بيسيك 6 ؟

يبدو أنه لا يوجد ربط مع مكتبة الـ WORD ..والذي يؤدي لظهور خطأ User is not defined من قائمة Project نختار References ثم علي ما أتذكر نختار Microsoft Word ثم OK ..

مقال رائع .. يوجد مثال إيضا هنا .. http://vb-helper.com/howto_make_standard_dll.html

شكرا اخي علي الموقع الجميل ..

ايوا ممكن من خلال الفيجوال بيسيك.. ولكنها كده كده .. ستعتمد علي الانترنت اكسبلورر .. وبالتالي حاول تغير متصفحك إلي فايرفوكس www.firefox.com وسترتاح من مشاكل الـ IE .. بعد تحميلك لفايرفوكس .. قم بالدخول لإيميلك .. واضغط علي Switch Back في أعلي الصفحة .. وذلك لإ…