محمدvb

وعليكم السلام ورحمة الله وبركاته 'التاريخ القديم قبل الإضافة Dim day1 As Date = TextBox1.Text TextBox1.Text = Format(day1, "yyyy/MM/dd") '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'المدة المراد إضافتها للتاريخ القديم Dim day2 As Integer = Val(T…

وعليكم السلام ورحمة الله وبركاته الاخ محمد فؤاد تركي جزاك الله كل خير ،،، تحياتي

وعليكم السلام ورحمة الله وبركاته يا أخ مايكل لي صديق مبرمج قديم وله برامج بلغة البيسك وتعمل على نظام التشغيل DOS وحتى الآن شغالة مثل الحلاوة ... سوف أعطيك لمحة بسيطة وأنت راح تفهم انا ايش اقصد الآن البرامج اللي انت عاملها بالفيجوال بيسك 6 تعمل على ويندوز 98 و …

جزاك الله خير,, من قالها فقد أبلغ في الثناء // وتمنى ذلك

السلام عليكم ورحمة الله وبركاته المثال في المرفقات أتمنى الإفادة تحياتي Print-From-Tow-Table.rar

مرحبا rnd1 = صب قمنا بعمله داخل الفورم لحين وقت الحاجة إليه نقوم بمناداته وطريقة مناداة أي صب تكون بهذه الطريقة Call subname والهدف منه هنا في مثالنا توفير جهد ووقت وتقليل أسطر الأكواد لاحضي لو حبينا نستغني عن السطر call rnd1 نضع الكود اللي داخل الصب ليقوم الب…

العفو اخوي كيف أقوم بإيقافه //// هذا يعتمد على الكود ماهو ////// توضيح أكثر لنفرض Private Sub start_play() يحمل كود Timer1.Enabled = True TextBox1.Text = "السلام عليكم" لنقوم بتشغيل الكود هذا كما أوضحنا سابقاً Call start_play طيب لنقوم الآن بإيقاف الصب كيف يتم…

وعليكم السلام ورحمة الله وبركاته المطلوب في المرفقات ... Summ.rar

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

وعليكم السلام ورحمة الله وبركاته أخي الحل جداً بسيط كالتالي : تعمل Sub على مستوى الفورم بالطريقة هذي لنفرض اسم الفورم Form1 ونريد نعمل الصب داخلها فيكون كالتالي الصب المراد عمله لنفرض اسمه rrr مع إمكانية كتابة مسمى مختلف يرمز للحدث المطلوب تنفيذه أو أي رمز الم…

نعم ممكن بعد تحديث الكريستال ريبورت لقبول اكسس 2003 لان الادو يتعامل مع اكسس 2003 وما فوق والكريستال ريبور القديم يتعامل مع اكسس 97 وما تحت فأنا أتمنا انك تطلع لفوق مو تنزل لتحت ..... ايش فيه كريستال ريبورت 10 دام انك تحب التعامل مع الكريستال ريبورت // أو الأد…

وعليكم السلام ورحمة الله وبركاته إستبدال الكود الموجود بالفورم لود بهذا الكود Set DB = OpenDatabase("Access.mdb") Set RS = DB.OpenRecordset("MyTbale", 2) RS.MoveLast بعد فتح الجدول نذهب لآخر سجل Text1.Text = RS(0) + 1 نجعل قيمة التكست تساوي قيمة الحقل + واحد م…

جرب هذا Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If Asc(e.KeyChar) = 13 Then e.Handled = True TextBox2.Focus() End If End Sub

وعليكم السلام ورحمة الله وبركاته ننظر في أول رقم من اليمين ونحدد انه العدد فردي أو زوجي / وهذه محاولتي Dim ss As Integer = Val(Microsoft.VisualBasic.Right(TextBox1.Text, 1)) If ss <> 0 And ss <> 2 And ss <> 4 And ss <> 6 And ss <> 8 Then MsgBox "العدد فردي" El…

وعليكم السلام ورحمة الله وبركاته ننظر في أول رقم من اليمين ونحدد انه العدد فردي أو زوجي / وهذه محاولتي Dim ss As Integer = Val(Microsoft.VisualBasic.Right(TextBox1.Text, 1)) If ss <> 0 And ss <> 2 And ss <> 4 And ss <> 6 And ss <> 8 Then MsgBox "العدد فردي" El…

وعليكم السلام ورحمة الله وبركاته حصلت المشكلة معي هذي قبل كذا وكان يعمل على جهازي بدون مشكلة ولما رفعته على الإستضافة كان نفس الرسالة التالية تظهرلي وحليتها كالتالي "~" بعد العلامة هذي حط // بدل / أتمنى أن أكون أفدتك

العفو اخ ميمون عملتها لك تفضل المرفق ... FilterNew1.rar

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

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

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