or
Private Sub Text_Changed(ByVal sender As System.Object, ByVal e As System.EventArgs) _ |
Handles RadTextBox1.TextChanged, _ |
RadComboBox1.TextChanged, _ |
RadDateTimePicker1.TextChanged, _ |
RadSpinEditor1.TextChanged |
If RadTextBox1.ContainsFocus Or _ |
RadComboBox1.ContainsFocus Or _ |
RadDateTimePicker1.ContainsFocus Or _ |
RadSpinEditor1.ContainsFocus Then |
Me.UpdateButton.Enabled = True |
End If |
End Sub |
Private Sub Text_Changed(ByVal sender As System.Object, ByVal e As System.EventArgs) _ |
Handles RadTextBox1.TextChanged, _ |
RadComboBox1.TextChanged, _ |
RadDateTimePicker1.TextChanged, _ |
RadSpinEditor1.TextChanged |
If HasFocus(sender) Then |
Me.RadButton1.Enabled = True |
End If |
End Sub |
Public Function HasFocus(ByVal sender As System.Object) As Boolean |
Dim radElemento As Telerik.WinControls.RadElement |
If sender.GetType Is GetType(Telerik.WinControls.UI.RadTextBox) Then |
radElemento = DirectCast(sender, Telerik.WinControls.UI.RadTextBox).FocusedElement |
End If |
If sender.GetType Is GetType(Telerik.WinControls.UI.RadComboBox) Then |
radElemento = DirectCast(sender, Telerik.WinControls.UI.RadComboBox).FocusedElement |
End If |
If sender.GetType Is GetType(Telerik.WinControls.UI.RadSpinEditor) Then |
radElemento = DirectCast(sender, Telerik.WinControls.UI.RadSpinEditor).FocusedElement |
End If |
If sender.GetType Is GetType(Telerik.WinControls.UI.RadDateTimePicker) Then |
radElemento = DirectCast(sender, Telerik.WinControls.UI.RadDateTimePicker).FocusedElement |
End If |
If sender.GetType Is GetType(Telerik.WinControls.UI.RadCheckBox) Then |
radElemento = DirectCast(sender, Telerik.WinControls.UI.RadCheckBox).FocusedElement |
End If |
If Not radElemento Is Nothing AndAlso radElemento.ContainsFocus Then |
Return True |
Else |
Return False |
End If |
End Function |
listbox.HorizontalScroll.Enabled = False |
listbox.HorizontalScroll.Visible = False |