Abboodd

جزاك الله خيراً برنامج فعلاً جميل، ومميز، ويبدو أنك اعتنيت به جيداً، فهو منظم بشكل جميل. لي ملاحظة صغيرة مضحكة، نوع الإنسان Male أم جنسه؟ :) بدل النوع Male أو Female اجعله الجنس Male أو Female. وأيضاً بعض الكلمات عربية، وأخرى إنكليزية، حاول توحيد لغة الواجهة، …

وبالنسبة للنقطة الثانية فضع الكود في حدث MouseMove للزر.

فعلاً معلومة جميلة، جزاك الله خيراً. لكن هذا لا يعني أن تتوقف عن تعلم المصفوفات يا شادي ;)

لماذا لا تجرب بنفسك؟ :) انظر إلى هذا الموضوع: مثال على Split طبعاً لا، ابحث في المنتدى أو في Google عن "المصفوفات في فيجوال بيسك"، وهو موضوع مهم جداً يجب أن تعرفه وتتقنه بإذن الله، فالاسم MyArray هو اسم مجموعة متغيرات، يمكنك استبدالها بـShadi مثلاً. حاول البحث…

أو يمكنك طرح الموضوع في قسم Visual Basic.Net فالفيجوال 2008 يندرج معهم. وفقك الله

ما رأيك بالدالة Split التي تفصل نصاً معيناً، انظر معي: Dim MyArray() As String MyArray = Split(Text1.Text, "/") Text2 = MyArray(0) Text3 = MyArray(1) Text4 = MyArray(2) فهنا عبأنا المصفوفة بالأرقام المكتوبة في Text1 بعد فصلها بعلامة /.

ربما يفيدك هذا الموضوع، وخصوصاً رد الأستاذ omani : /index.php?showtopic=186809

جزاك الله خيراً على هذا المثال بالنسبة لحل المشكلة، في زر Open Table ضع: rs.CursorLocation = adUseClient قبل: rs.Open "Select * from tblTicker", db وبهذا يعمل إن شاء الله وفقك الله

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

هناك أكثر من طريقة، يمكنك أن تقوم بجعل خاصية TabIndex لكل من الـText1 و Text2 و Text3 متتالية، مثلاً: 0 و 1 و 2، ثم اكتب في الأول والثاني في الحدث KeyPress: If KeyAscii = 13 Then SendKeys "{TAB}" End If أو يمكنك أن تكتب في كل واحد في حدث KeyPress أيضاً: If Key…

تحتاج إلى رخصة لاستعمال هذه الأداة، أليس لديك ملف تنصيب Setup ؟

في الوصلة كتاب صغير استفدت منه في هذه اللغة: /index.php?showtopic=109751

السلام عليكم ورحمة الله ستضحك من نفسك بعد هذا الحل :) : انسخ الكود Dim Letter As String Dim TriangleLength As Integer Dim i As Integer , j As Integer Letter = Text2 . Text TriangleLength = Text1 . Text Text3 . Text = "" For i = 1 To TriangleLength For j = 1 To…

أخي أولاً جزاك الله خيراً على هذا المجهود للأسف خبرتي ليست في البرامج الإدارية (قروض - موظفون -سلف) لذلك لن تكون تعليقاتي على هذه الأمور، ولكن هناك بعض التعليقات على الأمور الأخرى: 1-واجهة البرنامج (User Interface) تحتاج إلى بعض العمل عليها، فهي في البداية ممت…

السلام عليكم بعد البحث، هذا ما وجدته، لكنها لم تعمل معي! لا أدري ما السبب افتح Test.vbg لتجربها، كما أنها معقدة كثيراً http://www.planet-source-code.com/vb/scrip...txtCodeId=66529 آسف يا أخي، ولكن هذا ما توصلت له، سأحاول تحليل شفرة هذا البرنامج ، ولكن للأسف عن…

السلام عليكم ورحمة الله خوارزمية رسم مثلث قائم بحرف ما: خوارزميتنا اليوم شبيهة بسابقتها، كما رأيتم في المثال في المرفقات السابقة، عند تحديد رقم معين كطول لضلع المثلث القائم، وحرف معين ليرسم به، مثلاً الطول 7 والحرف @ فستكون النتيجة بعد ضغط الزر كالتالي: @ @@ @…

أرجو وضع السطر الذي فيه الخطأ، إن كان شكله هكذا: A=B فاجعله: Set A= New B ما هو السطر الذي فيه الخطأ؟

من جهتي إذا تركت Visual Basic 6 فسيكون انتقالي إلى C++ وليس إلا .Net ، أما السبب .... لا أدري ولكن الدوت نيت لم يدخل إلى قلبي :) ، كما أن C++ تمنح قوة وسرعة هائلتين، ناهيك عن أن Visual Basic 6 و Visual Basic.Net محدودتان بـWindows ولا يمكن استعمالهما خارجه، عل…

عفواً يا أخي، ولكن على الأقل هل يمكن تحديد موقع الخطأ....

إذاً ما رأيك بصنع دالة للتحقق من البيانات في الـFlexGrid فإن كان أحدها غير فارغ (فيه نص) فهذا يعني أن المستخدم قد أدخل مادة ما، وبهذا تنجح الدالة، وإلا فإنها ستفشل: انسخ الكود Private Function CheckFlexGrid ( ) As Boolean Dim i As Integer , j As Integer For i …