12-02-19, 01:31 PM
12-02-19, 07:23 PM
تفضل الكود المطلوب لتنفيذ دالة الأكسل
كود :
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
وذلك ليسهل على الأخوة معرفة نوعية الموضوع
وذلك سيسرع من الفترة المستغرقة في حل المشكلة
لان من سيرى الموضوع في أي قسم أخر لن يتوقع أنه سؤال
تمنياتي لك بالتوفيق والنجاح
12-02-19, 08:41 PM
شكراً اخي
فقط استفسار اريد بدايه المشروع يكون اداه التحديد الكتابه محدد في التاكس واحد يكون اسهل بحيث اكتب القيمه مباشره تظهر في التاكس 2 موضح توضيخ في الصوره
بخصوص ملاحظتك حاضر ولايهمك ان شاء الله اعمل بها فقط هذي المره .
مقدر تعاونك الدائم وتحيه لك .
فقط استفسار اريد بدايه المشروع يكون اداه التحديد الكتابه محدد في التاكس واحد يكون اسهل بحيث اكتب القيمه مباشره تظهر في التاكس 2 موضح توضيخ في الصوره
بخصوص ملاحظتك حاضر ولايهمك ان شاء الله اعمل بها فقط هذي المره .
مقدر تعاونك الدائم وتحيه لك .
12-02-19, 09:06 PM
الحمد لله والشكر لله
جزاك الله خيرا
أستعمل الكود التالي
لجعل التركيز على الاداة التي تريدها
في حدث formload
أو تضغط على قائمة view ثم tab Order هايظهر مربعات على الادوات الموجودة على الفورم اضغط بالماوس على الادوات بالترتيب الذي تريده
بحيث كل مره هاتضغط زر tab اثناء تشغيل البرنامج هايتبع نفس الترتيب اللى انت وضعته بالماوس
تمنياتي لك بالتوفيق والنجاح
جزاك الله خيرا
أستعمل الكود التالي
لجعل التركيز على الاداة التي تريدها
في حدث formload
كود :
TextBox1.Focus()أو تضغط على قائمة view ثم tab Order هايظهر مربعات على الادوات الموجودة على الفورم اضغط بالماوس على الادوات بالترتيب الذي تريده
بحيث كل مره هاتضغط زر tab اثناء تشغيل البرنامج هايتبع نفس الترتيب اللى انت وضعته بالماوس
تمنياتي لك بالتوفيق والنجاح
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 ماظهرت في حل اخر
12-02-19, 09:22 PM
(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
12-02-19, 10:16 PM
غيرت القيمه الى صفر في الـ tabIndex
وعمل المشروع تمام 100%
تمنياتي لك بدوام التوفيق والنجاح .
وعمل المشروع تمام 100%
تمنياتي لك بدوام التوفيق والنجاح .
12-02-19, 10:32 PM
(12-02-19, 10:16 PM)محمد مسافر كتب : [ -> ]غيرت القيمه الى صفر في الـ tabIndex
وعمل المشروع تمام 100%
تمنياتي لك بدوام التوفيق والنجاح .
الحمد لله والشكر لله
تمنياتي لك بالتوفيق والنجاح