BasharVS

حسناً, اليك هذا المثال : انسخ الكود [color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form1 [color= #000000; font-weight: bold;]Private Sub Button1_Click[color= #009900;](ByVal Sender [color= #b1b100;]As [color= #990000;]Syst…

مرحباً ( أخي, أختي ) الكريم(ـة) . مصفوفة من أي نوع, وهل تقصد الوصول اليها عن طريق اسم فضاء أو تمريرها كـ Param . الوصول عن طريق اسم فضاء - مثال : انسخ الكود [color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form1 Dim Strings[…

( أخي, أختي ) الكريم(ـة) . ما ذكره الأخ ( محمد سامر أبو سلو ) صحيح, فليس هنالك أي طريقة لتغيّر لون خط الـ MessageBox إلا عن طريق تغيّر الألوان الاساسية للـ Windows . لم يتوجب عليّ كتابة المشروع لك, لأنني لاأفيدكم في هذا, يجب عليكم أن تجربوا, تبدعوا !!, ثم إن و…

الا تعلم ( ما النسخة التي تعمل عليها !! ) :P . من القائمة الرئيسية في الـ Visual Basic, Visual Studio انقر على Help ثم اختار على مااعتقد أنه يآتي عادةُ في الأسفل About Microsoft واسم النسخة . ستجد معلومات النسخة التي تعمل عليها, لكن ليس هذا ماقصدته, هل حاولت ف…

( أخي, أختي ) الكريم(ـة) . النقر بالزر اليميني ومن ثم اختيار ( خصائص ) هذا بالنسبة لجهاز الحاسب خاصتك ستجد هناك الـ Service Pack الخاصة بالويندوز . هل جربت تشغيل الـ Visual Studio تحب بيئة الآمان ( Safe Mode ) ؟, لا اعتقد أنك تجهل هذه, لكنني سأخبرك طريقة : 1 -…

مرحباً أخي الكريم . في Code الـ Form الرئيسية يتم التحقق من عدد الأيام المتجاوزة, ويتم ذلك في الجملة الشرطية التالية : If (Days < 0) Or (Days >= (15 * My.Settings.RegKind)) Then My.Settings.OutOfDate = Not (LoginForm1.ShowDialog() = 1) My.Settings.Save() Else …

تصحيح : SkinOb.ClearWnd(Z.Handle, True)

لدي حل أخر : مقابل الدالة ( Chr ) : انسخ الكود [color= #000000; font-weight: bold;]Public Shared [color= #000000; font-weight: bold;]Function ConvertFromUtf32[color= #009900;]( Byval Utf32 [color= #b1b100;]As Integer [color= #009900;]) [color= #b1b100;]As Stri…

حسناً سأحاول بدء كتابة شرح عن Goto وكيفية الإستغناء عن إستخدامها, وعند إنتهائي سأرسل لك ماكتبته ( حاولت شرحه ) لكي تضيف لمسات خبرتك عليه :P . جزيل الشكر والتقدير :) .

مشكور للرد السريع !!! صراحةً, كنت استخدم Goto لإختصار إنشاء Sub خاصة بعمل شيء معين كمثلاً : عملية إدخال في Console Application, لكن بعد كل ما سمعته عن سوء الـ Goto, توقفت عن استخدامها . أردت طرح هذا الموضوع لمساعدة الأعضاء في الإبتعاد قدر الإمكان عن استخدامها …

مرحباً مرة اخرى !, أخي الكريم ( السيد : محمد سامر أبو سلو ) :) . أعرف أن ما اريد سؤالك عنه يحتاج بدء موضوع جديد, لكن هل يمكنك بإختصار التحدث عن استخدام الـ Goto Statement ؟ كان لدينا حديث مطول عن استخدام هذه الدالة ( في الـMSDN ) لكن أغلبية الأفكار متناقضة, وص…

مرحباً ( أخي, أختي) الكريم(ـة) . لقد جربت استخدام Chr(212) وعملت بشكل إجابي ( ش ), لست متأكد من التالي لكن للإحتياط , هل نسخة الـWindows التي تستخدمها تدعم اللغة العربية بشكل كامل ؟

Yeah, It's kinda different, because we always look forward for a better solution :P . If you want to use one of ( If Then, Select Case ) Statements, You'll have to write a long long code :D . Something like the following : If ComboBox1.SelectedItem.ToString = …

مرحباً أخي الكريم . هل حاولت استخدام العملية التي ذكرتها لك, لإعادة ضبط الخصائص ؟ : Private Sub Reset() لاتنسى إضافة خاصية جديدة لخصائص المشروع ( لتعدد الأرقام التسلسلية للـ Nagaty Type ) . اعتقد أنك خرجت عن نطاق عملية تصدير الرقم التسلسلي . كل من التالي سوف ل…

اعتقد أن في الحالات المشابهة = يحبذ استخدام SelectedIndex وتعامل مع بعض القوائم وبعض الصفوفات, طبعاً هذا سيبتر شجرة الـ ( If, Else, ElseIf, Then ) أو شجرة الـ ( Select Case, Case(s) ) > جرب المثال المرفق وشاهد كم سهل وقصير Code الربط بين أسماء البلدان و أسماء …

أخي الكريم . لأعلم أين وصلت في هذا المشروع :S :D . هل يمكنك إرسال Code الـ Form الرئيسية و Code صندوق التسجيل على بريدي الإلكترونيّ ؟ وإذاكان بإمكانك إرسال المشروع لتسهل عليّ وعليك تدقيق خصائصه .

ReturnValue As String ? ReturnValue = Instance.ToUpper.EndsWith( "ABC" ) ------------------> Dim ReturnValue As Boolean = ( Instance.ToUpper.EndsWith( SomeString.ToUpper() ))

( أخي, أختي ) الكريم(ـة) . عند التكلم عن أمور ممائلة للمذكور اي الذي ذكرته, عليك استخدام صيغة منطقية لإيصال الفكرة, لماذا ؟ 1 - ستفهم الفكرة وتفكر أكثر >> ومن الممكن أن تكتشف الحل بنفسك . 2 - اختصار الوقت لنعطيك إجابة سريعة >> سيصعب عليك شرح الفكرة عندما تقرأ …

كتاب يستحق ( الكثير الكثير ) من الشكر والتقدير, بصدق . بارك الله فيك أخي الكريم محمد .

مرحباً أخي الكريم . إذا كنت ستستخدم الجملة الشرطية التي طلبت منك استبدالها بالقديمة, فعليك إعداد القيم الإفتراضية للخاصيتين ( OutOfDate ) الى ( False ) و ( RegKind ) الى 15 . إما إذا كنت ستستخدم تلك الجملة الشرطية بعملية ضرب ( 15 * RegKind ) فعليك إعداد القيمة…