[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته




أشكر الجميع ولدي طريقة أخرى تشبه أول مشاركة لأخي عبودي

PHP كود :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged
    Me.TextBox4.Text = Val(Me.TextBox1.Text) + Val(Me.TextBox2.Text) + Val(Me.TextBox3.Text)
End Sub 


لاحظ
Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged



السلام عليكم ورحمة الله وبركاته

[3booody]

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته




أشكر الجميع ولدي طريقة أخرى تشبه أول مشاركة لأخي عبودي

PHP كود :

private sub textbox1_textchanged(byval sender as system.object, byval e as system.eventargs) handles textbox1.textchanged, textbox2.textchanged, textbox3.textchanged
    me.textbox4.text = val(me.textbox1.text) + val(me.textbox2.text) + val(me.textbox3.text)
end sub 


لاحظ
handles textbox1.textchanged, textbox2.textchanged, textbox3.textchanged



السلام عليكم ورحمة الله وبركاته

شكرآ لهذا
أعجبني هذا

جزاك الله خيرآ وجعله بميزان حسناتك

[alaqsa]

اخواني الكرام شكرا جزيلا لكم


اخي الكريم أبو رائد كم انت رائع

لقد عمل الكود بشكل سليم

اسال الله تعالى ان يبارك لك في عمرك وان يزيد رزقك

الف الف شكر لك

[@@أبورائد@@]

alaqsa كتب :اخواني الكرام شكرا جزيلا لكم


اخي الكريم أبو رائد كم انت رائع

لقد عمل الكود بشكل سليم

اسال الله تعالى ان يبارك لك في عمرك وان يزيد رزقك

الف الف شكر لك

السلام عليكم ورحمة الله وبركاته






لو لاحظت أنني استفدت من كود 3booody فهو وفر عليّ الجهد فقط عدلت تعديل بسيط

وأنا سعيد بتفاعل بقية الأعضاء فلهم الشكر أيضاً





السلام عليكم ورحمة الله وبركاته

[alaqsa]

طبعا اخي الكريم أبو رائد فلك وللاخ عبود وكذلك الاخ اسامه كل الشكر فانا تلميذ اتعلم منكم

[alaqsa]

اخي ابو رائد والاخوان اتنمى الاطلاع على هذا الموضوع

http://vb4arb.com/vb/showthread.php?6638...7%D1/page2

[أسامة]

3booody كتب :صح كلامك اخي لكن راح ينفذ الكود كثيرآ وبدون فائدة وشي ثاني بدل عبارة if هذا الكود اسهل

كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            TextBox4.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text) + CDbl(TextBox3.Text)
        Catch ex As Exception

        End Try

    End Sub

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

كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            If TextBox3.Text = "" Then
                TextBox4.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text)
            ElseIf TextBox2.Text = "" Then
                TextBox4.Text = CDbl(TextBox1.Text) + CDbl(TextBox3.Text)
            ElseIf TextBox1.Text = "" Then
                TextBox4.Text = CDbl(TextBox2.Text) + CDbl(TextBox3.Text)
            Else
                TextBox4.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text) + CDbl(TextBox3.Text)
            End If
        Catch ex As Exception

        End Try
    End Sub

alaqsa كتب :اخي عبوود حتى الكود ال>ي وضعته نفس المشكله لا بد منت ادخال جميع القيم في المربعات

اتمنى ايجاد الحل

لكم كل الشكر

تفضل اخى

كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            If TextBox3.Text = "" Then
                TextBox4.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text)
            ElseIf TextBox2.Text = "" Then
                TextBox4.Text = CDbl(TextBox1.Text) + CDbl(TextBox3.Text)
            ElseIf TextBox1.Text = "" Then
                TextBox4.Text = CDbl(TextBox2.Text) + CDbl(TextBox3.Text)
            Else
                TextBox4.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text) + CDbl(TextBox3.Text)
            End If
        Catch ex As Exception

        End Try
    End Sub

تم الاجابة فى هذا الموضوع http://vb4arb.com/vb/showthread.php?...D1%C7%D1/page2 ارجو ان يكون هذا هو المطلوب
استخدم كود @@أبورائد@@ فانه افضل بكثير

[أسامة]

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته




أشكر الجميع ولدي طريقة أخرى تشبه أول مشاركة لأخي عبودي

PHP كود :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged
    Me.TextBox4.Text = Val(Me.TextBox1.Text) + Val(Me.TextBox2.Text) + Val(Me.TextBox3.Text)
End Sub 


لاحظ
Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged



السلام عليكم ورحمة الله وبركاته

اسف اخى @@أبورائد@@ لم اى مشاركتك

[@@أبورائد@@]

أسامة كتب :اسف اخى @@أبورائد@@ لم اى مشاركتك

السلام عليكم ورحمة الله وبركاته






أعلم ذلك أخي أسامة بارك الله فيك وزادك خلقاً،
وتحصل معي إذا كان للموضوع أكثر من صفحة فلا أنتبه لما بعد الصفحة الأولى.





السلام عليكم ورحمة الله وبركاته

[أسامة]

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته






أعلم ذلك أخي أسامة بارك الله فيك وزادك خلقاً،
وتحصل معي إذا كان للموضوع أكثر من صفحة فلا أنتبه لما بعد الصفحة الأولى.





السلام عليكم ورحمة الله وبركاته

شكرآ لك اخى ابورائد بارك الله فيك