منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] اين الخطأ في هذا الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] اين الخطأ في هذا الكود (/showthread.php?tid=2414)

اين الخطأ في هذا الكود - bumb - 31-03-14

السلام عليكم

في الكود التالي من المفترض ان يتم تفعيل الأزرار المشار اليها في الكود ولكن مايحدث هو ان الازرار لا تتغير خاصيتها من false الى true

PHP كود :
Private Sub frmAddNew_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If txtCRN.Text = "" And txtBarwahNo.Text = "" Then
            btnSaveAll.Enabled = False
        Else
            btnSaveAll.Enabled = True
        End If

        If txtCRN.Text = "" Then
            btnSaveInfo.Enabled = False
        Else
            btnSaveInfo.Enabled = True
        End If
    End Sub 


RE: اين الخطأ في هذا الكود - Adrees - 31-03-14

كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        btnSaveInfo.Enabled = False
        btnSaveAll.Enabled = False

    End Sub

    Private Sub txtCRN_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCRN.TextChanged
        If txtCRN.Text = "" Then
            btnSaveAll.Enabled = False
        Else
            btnSaveAll.Enabled = True
        End If


    End Sub

    Private Sub txtBarwahNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBarwahNo.TextChanged
        If txtBarwahNo.Text = "" Then
            btnSaveInfo.Enabled = False
        Else
            btnSaveInfo.Enabled = True
        End If

    End Sub


RE: اين الخطأ في هذا الكود - bumb - 31-03-14

عافاك الله