[Marwan9990]

(31-01-17, 07:33 PM)مساعدة كتب : كان طلبك من الأول على نافذة الصلاحيات وليس نافذة الدخول.

فالبداية وربي اني مستحي فيك ي اخوي اعرف طولت كثير بس شسوي ..

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

انته تعرف بيكون في الف مستخدم مثال محفوظ في هذا القاعده مش معقوله ابحث عنهم كلهم عشان اعرف تواريخ انتائهم عشان كذا انا ابي الكود اول من ادخل على فورم صلاحيات يشيك لي قاعدة البيانات لو في اي مستخدم انتهاء او قارب مثل ما انته عامل الكود  يعطيني تنبيه على طول من نفسه او تلقائي بدون اي تدخل مني ..

اذا فكره مو واضحه عادي بحاول اشرحها مره ثانيه

[أسامة السالمي]

(31-01-17, 07:49 PM)Marwan9990 كتب :

(31-01-17, 07:33 PM)مساعدة كتب : كان طلبك من الأول على نافذة الصلاحيات وليس نافذة الدخول.

فالبداية وربي اني مستحي فيك ي اخوي اعرف طولت كثير بس شسوي ..

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

انته تعرف بيكون في الف مستخدم مثال محفوظ في هذا القاعده مش معقوله ابحث عنهم كلهم عشان اعرف تواريخ انتائهم عشان كذا انا ابي الكود اول من ادخل على فورم صلاحيات يشيك لي قاعدة البيانات لو في اي مستخدم انتهاء او قارب مثل ما انته عامل الكود  يعطيني تنبيه على طول من نفسه او تلقائي بدون اي تدخل مني ..

اذا فكره مو واضحه عادي بحاول اشرحها مره ثانيه

آسف على التأخير،
لكن جرب هذا الكود :
في حدث (Form_Load)

PHP كود :

Dim o As Integer = 0
        ListBox1.SelectedIndex = 0
        For i = 0 To ListBox1.Items.Count - 1
            ListBox1.SelectedIndex = o
            o = Val(o + 1)
            ShowData()
        Next 


---

PHP كود :

 Private Sub FRm_mang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1_Click(sender, e)

        Dim o As Integer = 0
        ListBox1.SelectedIndex = 0
        For i = 0 To ListBox1.Items.Count - 1
            ListBox1.SelectedIndex = o
            o = Val(o + 1)
            ShowData()
        Next

    End Sub