[محمد مسافر]

الاخوة جميعاً :

المشروع عباره عن معادله في الاكسل اريد تطبيقها في الفيجوال دوت نت موضح لكم التفاصيل في المرفقات .

[princelovelorn]

تفضل الكود المطلوب لتنفيذ دالة الأكسل

كود :

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
       If TextBox2.Text = "" Then
           Exit Sub
       End If

       Select Case CDbl(TextBox2.Text)

           Case CDbl(40) To CDbl(50)
               TextBox1.Text = CStr(CDbl(20))

           Case CDbl(70.01) To CDbl(80)
               TextBox1.Text = CStr(CDbl(30))

           Case CDbl(105.01) To CDbl(120)
               TextBox1.Text = CStr(CDbl(40))

           Case CDbl(165.01) To CDbl(180)
               TextBox1.Text = CStr(CDbl(60))

           Case CDbl(200.01) To CDbl(220)
               TextBox1.Text = CStr(CDbl(80))

           Case CDbl(250.01) To CDbl(270)
               TextBox1.Text = CStr(CDbl(100))

           Case CDbl(290.01) To CDbl(320)
               TextBox1.Text = CStr(CDbl(120))

           Case CDbl(360.01) To CDbl(400)
               TextBox1.Text = CStr(CDbl(140))

           Case CDbl(520.01) To CDbl(600)
               TextBox1.Text = CStr(CDbl(180))

           Case Is >= CDbl(1140.01)
               TextBox1.Text = CStr(CDbl(400))

           Case Else
               TextBox1.Text = "plz check Beat Package value again"
       End Select
   End Sub

* ملحوظة أخي بعد إذنك 

في حالة وجود أي إستفسار أو سؤال أو مشكلة لديك

ضع الموضوع في قسم اسئلة VB.NET

وذلك ليسهل على الأخوة معرفة نوعية الموضوع

وذلك سيسرع من الفترة المستغرقة في حل المشكلة

لان من سيرى الموضوع في أي قسم أخر لن يتوقع أنه سؤال

تمنياتي لك بالتوفيق والنجاح

[محمد مسافر]

شكراً اخي
فقط  استفسار اريد بدايه المشروع يكون اداه التحديد الكتابه محدد في التاكس واحد يكون اسهل بحيث اكتب القيمه مباشره تظهر في التاكس 2  موضح توضيخ في الصوره

بخصوص ملاحظتك حاضر ولايهمك ان شاء الله اعمل بها فقط هذي المره .


مقدر تعاونك الدائم وتحيه لك .

[princelovelorn]

الحمد لله والشكر لله
جزاك الله خيرا

أستعمل الكود التالي
لجعل التركيز على الاداة التي تريدها
في حدث formload 

كود :

  TextBox1.Focus()

أو تضغط على قائمة view ثم tab Order  هايظهر مربعات على الادوات الموجودة على الفورم   اضغط بالماوس على الادوات بالترتيب الذي تريده
بحيث كل مره هاتضغط زر tab اثناء تشغيل البرنامج  هايتبع نفس الترتيب اللى انت وضعته بالماوس



تمنياتي لك بالتوفيق والنجاح

[محمد مسافر]

كود :

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       TextBox1.Focus()
   End Sub
End Class

جربت مامشي الحال بحثت عن القائمه tab Order  من قائمه view ماظهرت في حل اخر

[princelovelorn]

(12-02-19, 09:14 PM)محمد مسافر كتب :

كود :

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       TextBox1.Focus()
   End Sub
End Class

جربت مامشي الحال بحثت عن القائمه tab Order  من قائمه view ماظهرت في حل اخر

هاتظهر لو انت فاتح نافذة الفورم وليس محرر الاكواد

---

فعلا دالة foucse لا تعمل لدي ايضا 

مرفق المثال بعد عمل الترتيب عن طريق view  ثم tab order

ممكن تغيير رقم الاندكس  tabindex في خصائص الكنترول المطلوب التركيز عليه في بداية فتح الفورم  الى رقم 0

[محمد مسافر]

غيرت القيمه الى صفر في الـ     tabIndex

وعمل المشروع تمام 100%   

تمنياتي لك بدوام التوفيق والنجاح .

[princelovelorn]

(12-02-19, 10:16 PM)محمد مسافر كتب : غيرت القيمه الى صفر في  الـ     tabIndex

وعمل المشروع تمام 100%   

تمنياتي لك بدوام التوفيق والنجاح .

الحمد لله والشكر لله

تمنياتي لك بالتوفيق والنجاح