Как скрыть мигающий курсор в окне ввода ComboBox?

@jkrnd · Регистрация: 22.12.2015

Author24 — интернет-сервис помощи студентам

Для TextBox всё работает:

VB.NET

<DllImport("user32")>
    Private Shared Function HideCaret(ByVal hWnd As IntPtr) As Integer
    End Function
   Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        HideCaret(TextBox1.Handle)
    End Sub

для ComboBox (стиль DropDown) куда бы мы не вставляли HideCaret(ComboBox1.Handle) каретка не исчезает.

@Sklifosofsky · 10.11.2016, 21:14

Пришлось полазить по исходникам ComboBox
https://referencesource.micros... aee133dcd0

VB.NET

1
2

        Dim a As NativeWindow = GetType(ComboBox).InvokeMember("childEdit", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance Or Reflection.BindingFlags.GetField, Nothing, Me.ComboBox1, Nothing)
        HideCaret(a.Handle)

За вами осталось преобразовать. Не обязательно каждый раз выхватывать спрятанный объект в элементе и его указатель

@jkrnd · 11.11.2016, 05:54 **[ТС]**

Sklifosofsky, всё работает!

VB.NET

    Private Sub ComboBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.Click
        Dim a As NativeWindow = GetType(ComboBox).InvokeMember("childEdit", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance Or Reflection.BindingFlags.GetField, Nothing, Me.ComboBox1, Nothing)
        HideCaret(a.Handle)
    End Sub

но почему тоже самое не срабатывает здесь:

VB.NET

    Private Sub ComboBox1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.Enter
        Dim a As NativeWindow = GetType(ComboBox).InvokeMember("childEdit", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance Or Reflection.BindingFlags.GetField, Nothing, Me.ComboBox1, Nothing)
        HideCaret(a.Handle)
    End Sub

я так понимаю, что мы работаем с объектом childEdit, являющимся составной частью ComboBox?

@Sklifosofsky · 11.11.2016, 19:02

Сообщение от jkrnd

но почему тоже самое не срабатывает здесь:

Скорее всего это событие до этого момента срабатывает, когда начинает мигать курсор
Попробуйте скомбинировать несколько событий

VB.NET

   Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.TextChanged, ComboBox1.GotFocus, ComboBox1.Click
        Dim a As NativeWindow = TryCast(GetType(ComboBox).InvokeMember("childEdit", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance Or Reflection.BindingFlags.GetField, Nothing, Me.ComboBox1, Nothing), NativeWindow)
        HideCaret(a.Handle)
    End Sub

Опять же не стоит каждый раз выхватывать указатель. Например при инициализации компонентов получить указатель элемента и присвоить во внешнею переменную.

VB.NET

    Private _EComboPtr As IntPtr
    Private Sub ComboBox1_Validated(sender As Object, e As EventArgs) Handles ComboBox1.Validated
        _EComboPtr = TryCast(GetType(ComboBox).InvokeMember("childEdit", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance Or Reflection.BindingFlags.GetField, Nothing, Me.ComboBox1, Nothing), NativeWindow).Handle
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.TextChanged, ComboBox1.GotFocus, ComboBox1.Click
        HideCaret(_EComboPtr)
    End Sub

Добавлено через 1 минуту

Сообщение от jkrnd

я так понимаю, что мы работаем с объектом childEdit, являющимся составной частью ComboBox?

Да, он состоит из 3ех компонентов

@jkrnd · 12.11.2016, 17:12 **[ТС]**

Sklifosofsky, Ура!!! сработал код №2 (с выносом указателя на уровень формы).
понять бы ещё почему, не судьба видимо

попробовал не выносить:

VB.NET

Private Sub ComboBox1_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.Validated
        Dim a As NativeWindow = GetType(ComboBox).InvokeMember("childEdit", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance Or Reflection.BindingFlags.GetField, Nothing, Me.ComboBox1, Nothing)
        HideCaret(a.Handle)
    End Sub

каретка не исчезает!
код №1 запустить не удалось (Ссылка на объект не указывает на экземпляр объекта. в строке HideCaret(a.Handle))
и ещё, разве у ComboBox есть событие GotFocus? почему его нет в списке событий в дизайнере?

Добавлено через 12 минут
Sklifosofsky, немного поисследовав, получил следующий работающий как надо код:

VB.NET

1
2
3

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ComboBox1.TextChanged, ComboBox1.GotFocus, ComboBox1.Click
        HideCaret(0) '(_EComboPtr)
    End Sub

Добавлено через 8 минут
Sklifosofsky, а для TextBox срабатывает следующее:

VB.NET

1
2
3

Private Sub TextBox1_GotFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
        HideCaret(0)
    End Sub

Не по теме:

извиняюсь за свою назойливость

Как скрыть мигающий курсор в окне ввода ComboBox?

Решение

Решение

	12.11.2016, 17:12