30-03-19, 02:37 AM
(30-03-19, 12:59 AM)asemshahen5 كتب :PHP كود :
Private Sub EmptyTextBox_Click(sender As Object, e As EventArgs) Handles BtnEmptyTextBox.Click
For Each ctrl As Control In Me.Controls
If TypeOf ctrl Is TextBox Then
ctrl.Text = String.Empty
End If
Next
End Sub
Private Sub BtnRedBackColor_Click(sender As Object, e As EventArgs) Handles BtnRedBackColor.Click
For Each ctrl As Control In Me.Controls
If TypeOf ctrl Is TextBox Then
If ctrl.Text < 50 Then
ctrl.BackColor = Color.Red
End If
End If
Next
End Sub
الحقول موجودة على فورم داخل أداة TabControl1 عند تفعيل الكود لا ينتج أي حدث ؟ مالحل
