najy_zl

السلام عليكم... المعذرة لأني لا أدخل المنتدى في رمضان إلا ليلاً. استخدم الأكواد التالية. ضع كل كود في الزر الخاص به كما هو مبين: ' تحديد أول بند If ListView1.ListItems.Count = 0 Then Exit Sub Set ListView1.SelectedItem = ListView1.ListItems(1) ListView1.Select…

السلام عليكم... استعمل الكود التالي: Private Sub Command1_Click() Set ListView1.SelectedItem = ListView1.ListItems(ListView1.ListItems.Count) ListView1.SelectedItem.EnsureVisible End Sub نرجو الاستفادة و السلام.

السلام عليكم... المفروض أن السؤال يكون في منتدى VB.NET ، لكن على أية حال، إذا كان الحدث خاصاً بمكون معين (مثلاً TextBox) فاكتب كود كالتالي في الحدث KeyDown الخاص بذلك المكون: Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.…

السلام عليكم... يمكنك إنشاء جدول آخر (باسم آخر طبعاً) مطابق للجدول الأول تماماً من ناحية التصميم أو التركيب باستعمال SQL دون الحاجة لإنشائه يدوياً مسبقاً، مع إمكانية نسخ أو عدم نسخ سجلات من الجدول الأول إلى الجدول الثاني، أي يمكن إنشاء جدول جديد مطابق، و يكون …

السلام عليكم... اجعل كود التحديث كالتالي: Private Sub Command4_Click() If Adodc1.Recordset.EditMode = adEditInProgress Then Adodc1.Recordset.Update End If End Sub كما أرى أنك تستعمل عبارة On Error Resume Next بكثرة، و أنا أعتبرها أسوأ جملة في VB6 و ينبغي عدم ا…

السلام عليكم... استعمل الدالة LowerCase. نرجو الاستفادة و السلام.

السلام عليكم... 1. القصور من الـ Software الخاص بالـ Skin نفسه حيث أنه لا يدعم كافة المكونات. ربما البحث في الإنترنت يقودك إلى الحصول على Skins تدعم المزيد من المكونات. 2 (إظهالا الملاحظات أو تلميحات الشاشة - عند ضغط زر الفأرة على المكون) + 3 (إظهار نافذة بحيث…

السلام عليكم... من المفترض أن يكون الحقل في قاعدة البيانات من النوع Currency لأنه أفضل في العرض حيث يتم إظهار رمز العملة بجانب القيمة (إلا إذا كان لا يهمك ذلك). الرمز الذي يظهر مع القيمة هو رمز العملة حسب إعدادات "الخيارات الإقليمية" (Regional Settings) في "لو…

السلام عليكم... بالنسبة إلى استعمال nn بدل mm للدقائق فهو للتمييز فقط، حيث من المفترض استعمال الحرف m للأشهر و الحرف n للدقائق (حسب تعليمات دلفي)، لكن دلفي تتجاوز عن ذلك فتعرض الدقائق إذا وجدت الحرف m ضمن تنسيق الوقت و تعرض رقم الشهر إذا وجدت الحرف m ضمن تنسيق…

السلام عليكم... فعلاً السبب غير واضح!!!!! لكن أحد الحلول أن تتبع الخطوات التالية: 1. اجعل الخاصية DisplayFormat للحقل (TimeStart مثلاً) بهذا الشكل: hh:nn ampm لاحظ: nn للدقائق، و ampm دون شرطة مائلة. 2. انقر نقراً مزدوجاً على مكون الجدول M لعرض الحقول. 3. حدد …

السلام عليكم... إذا افترضنا أن ناتج ضرب العددين هو X و أن Y هي الناتج بعد التعديل (مضاعفات المائة). إذن: Y = X - (X Mod 100) نرجو الاستفادة و السلام.

السلام عليكم... الكود المرفق به العديد من الأخطاء: 1. لا يصح البحث في قواعد البيانات باستعمال الحلقات. إذا كان لديك عدد كبير من السجلات فإن استعمال الحلقات سيؤدي إلى بطء شديد و استهلاك للوقت مع توقف البرنامج عن الاستجابة. 2. جملة Do While لا تحتاج إلى Then معه…

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

السلام عليكم... الإجراءات المخزنة (Stored Procedures) هي أدوات فعالة في SQL Server حيث يمكنك أن تستعمل فيها جمل لغة SQL بالإضافة إلى مجموعة من الجمل البرمجية مثل IF و WHILE ... إلخ. بالإضافة إلى أنه يمكنك تعريف متغيرات (Variables) داخل الإجراء و استدعاء إجراءا…

السلام عليكم... اكتب الإجراء التالي في القسم العام لكود النافذة الموجود بها الـ Tab control (إذا كنت ستستعمله في أكثر من نافذة فإنه يمكنك وضعه في Module و تغيير Private إلى Public حتى يصبح إجراءً عاماً): Private Sub ShowOneTab(ATabControl As Control, ATabIndex…

السلام عليكم... لتغيير عرض مربع النص (TextBox) تلقائياً ليكون حسب النص الموجود فيه، اضبط الخاصية MultiLine على True (مع أننا سنعرض النص كسطر مفرد)، و ضع الكود التالي في Module (وحدة برمجية): Private Const EM_GETLINECOUNT = &HBA Private Declare Function SendMes…

السلام عليكم... اكتب السطرين التاليين في الحدث Resize التابع للـ Form (النافذة): Private Sub Form_Resize() On Error Resume Next Command1.Move ScaleWidth - Command1.Width - 120, ScaleHeight - Command1.Height - 120 End Sub ضع بدل الـ 120 الأولى المسافة التي تريد…

السلام عليكم... نعم يمكنك ذلك باستعمال العامل LIKE بدل = مع المقارنة بنمط (Pattern). هذا كود البحث بعد التعديل: Private Sub Command1_Click() Dim a As Integer Dim Pattern As String ' ننشئ نمط البحث Pattern = "*" & UCase$(txtSearch.Text) & "*" For a = 1 To TV1.N…

السلام عليكم... توجد الأداة HijriCalendar.ocx من تصميم الأخ محمد بدوي. لم أتمكن من إيجادها في المنتدى، لكني وجدتها على موقع 4shared على هذا الرابط: HijriCalendare.ocx نرجو الاستفادة و السلام.

السلام عليكم... السبب هو أن المقارنة الافتراضية للنصوص في VB هي مقارنة ثنائية (Binary) حيث يكون هناك فرق بين الحروف الكبيرة (Capital) و الحروف الصغيرة (Small). لديك حلان: 1. إما أن تعدل كود البحث باستعمال الدالة UCase (أو LCase) لتحويل النصين إلى حروف كبيرة (أ…