yaseralshikh

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

بارك الله فيك ، يا أبو اليسر ، ويسر لك طريقا إلى الجنة ..

ابحث في المنتدى وستجد الكثير من المواضيع فيها ما تريد .. ويمكنك الاستفاده من الدرس الذي كتبته بعنوان درس في الإجراءات الفرعية ( في توقيعي ) ويوجد به ما تريد ..

هذا الإجراء يقوم بتوسيط النافذة الممررة له على سطح المكتب ، وحصلت عليه من الأخ فواز الشمري ، في الدرس الذي قدمه بعنوان السلسلة الذهبية في تعلم البرمجة, شرح عن بناء Classes و الإجراءات والدوال .. Public Sub CenterForm(frm As Form) Dim H As Long, W As Long H = (…

في الكود التالي مثال على طلبك .. rpt.RecordSelectionFormula = (" {MyTable.FirstName} = " & txtFirstName.Text.Trim & "" And "{MyTable.LastName} = " & txtLastName.Text.Trim & "")

طلبك موجود في ملف مضغوط حجمة أكثر من 2 جيجا بايت ، فلا تتوقع أن يجبك أحد ، لأنه شبه مستحيل .. كما أنه موجود في النت جرب أبحث وانصحك تستخدم برنامج خاص بملفات المشاركة مثل eMule أو Azureus وإذا أنت بدون DSL الله يعينك على طول الإنتظار والفواتير ..

طلبك موجود في ملف مضغوط حجمة أكثر من 2 جيجا بايت ، فلا تتوقع أن يجبك أحد ، لأنه شبه مستحيل .. كما أنه موجود في النت جرب أبحث وانصحك تستخدم برنامج خاص بملفات المشاركة مثل eMule أو Azureus وإذا أنت بدون DSL الله يعينك على طول الإنتظار والفواتير ..

في الحقيقة أريد أن أعتذر وألفت إنتباه السادة المبرمجين إلى شيئ مهم ، وهو أنني بعد مراجعة الدرس اكتشفت أنني أرتكبت خطأ ، وهو موجود في الإقتباس التالي : والصحيح أن الإجراء الفرعي EnableButton لإعادة تشغيل أدوات التحكم ، والإجراء الفرعي DisableButton لإيقاف تشغيل…

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

هذا الإجراء يقوم بإجبار المستخدم على كتابة أرقام فقط ، حصلت عليه من مشاركة للأخ aswany .. Public Function PressOnlyNumeric(ByVal intKeyValue As System.Windows.Forms.KeyPressEventArgs) ' Integer Dim chKiy As Char chKiy = intKeyValue.KeyChar If Not (Char.IsDigit…

الف شكر يا أخي aswany

مشرفنا الغالي الغملاسي لم يترك مجال للكلام ، حيث أنه وضح لك الطريقة بإصدارين من ado.net . ولكني أدعوك لزيارة الدرس الموجود في توقيعي .. ربما يفيدك قليلاً ..

أكثر من رائع أخي samerselo . والله يكثر من أمثالك .. ويكثر من هذه الدروس .

هذا الإجراء من أجل تغيير مؤشر اللغه من اللغة العربية إلى اللغة الإنجليزية ، ولقد حصلت علية من مشروع للأخ أحمد المصري .. Public Sub SetNewCurrentLanguage(ByVal Culture As String) ' Sets the current languages. Dim CInfo As CultureInfo : Dim I As Integer : Dim F …

هذا الإجراء من أجل تشغيل أي ملف صوتي من نوع WAV ويكون مخزن في مسار مجلد البرنامج .. Private Sub PlaySound(ByVal SoundName As String) Dim Player As New SoundPlayer() Player.SoundLocation = Application.StartupPath & "\" & SoundName & ".wav" Try Player.Load() Pla…

هذا الإجراء من أجل إغلاق جميع النوافذ الأبناء التابعة لنافذة من نوع MDIParent .. Private Sub CloseAllChildrenForm() 'إغلاق كل النوافذ الأبناء Dim AllChildrenForm As Form For Each AllChildrenForm In Me.MdiChildren AllChildrenForm.Close() Next AllChildrenForm En…

إجراء فرعي يحتوي على دالة التحويل من تاريخ هجري إلى تاريخ ميلادي .. Public Function HijriToGregorian(ByVal Year As Integer, _ ByVal Month As Integer, ByVal Day As Integer) As DateTime Try Dim Ar As Globalization.CultureInfo = New Globalization.CultureInfo("ar-…

بسم الله الرحمن الرحيم كل عام والأمة الإسلامية بألف خير وعافية ونصر وتمكين من رب العالمين .. كل عام وانتم بخير ، وجعلنا الله وإياكم من المقبولين الفائزين بجنات النعيم ورضوان رب العالمين .. اللهم يا جبار أجبر كسر نفوسنا على فراق شهر رمضان وصلاة التراويح بجنة ال…

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

طريقة مشابهة .. في 2005 اكتب الكود التالي في حدث KyePress .. If e.KeyChar.Equals(Chr(Keys.F2)) Then MsgBox("Fine")