Как узнать дескриптор окна ListBox-a?

[Muskin2029]

Вопрос в названии темы.

[vikttur]

Что подразумевается? Индекс?
Проблему нужно описывать в сообщении, чтобы понятно было, что это и для чего это нужно. Тогда и помощь эффективнее.

[Muskin2029]

По-моему, вопрос задал чётко и однозначно.
Не нравится дескриптор - пусть будет hwnd ListBox-а.

[vikttur]

Пусть будет, Вам же надо... Только где Вы видели окно  ListBox-а и какое отношение это имеет к тематике этой ветки форума?
На лист можно вставить  (внедрить) элемент ActiveX, элемент управления формы. ListBox может быть размещен на UserForm. Но это не окна.

[Muskin2029]

ListBox может быть размещен на UserForm. Но это не окна.

А что же в таком случае показывает Spy++ при выборе ListBox-а или другого элемента (TextBox, RefEdit ...)  на той же UserForm?

[Дмитрий Щербаков(The_Prist)]

Но это не окна

Окна, окна...В Windows все окна, даже кнопки. Просто тип у каждого окна свой и ищется через FindWindow и прочие функции API для работы с этими окнами.
Muskin2029, а зачем Вам hwnd ListBox-a? Может есть путь проще? Дело в том, что в 64-битных системах даже после того как найдете дескриптор не факт, что сможете нужные действия над окном сделать.
Найти-то не сложно:

Код: (vb)

Private Declare PtrSafe Function GetFocus Lib "user32" () As LongPtr

Private Sub CommandButton1_Click()
    Dim hwnd
    ListBox1.SetFocus
    hwnd = GetFocus
    MsgBox hwnd
End Sub

[vikttur]

Вы на форуме по Excel и задачу следует описывать так, чтобы была понятна посетителям этого форума.

Возможно, я чего-то непонимаю, но пока вижу, что Вам нужно получить какое-то уникальное значение (слово, ключ, числ, индекс), которое укажет на конкретный элемент и называете это значение "дескриптор окна", хотя это, насколько понимаю, уровень системы, а не приложения.
Вот поэтому и предагал сразу - описать нормально, что нужно и для чего.

На UserForm каждый ее элемент имеет порядковый индекс. Может, это Вам нужно?

[Muskin2029]

Muskin2029, а зачем Вам hwnd ListBox-a? Может есть путь проще?

Хочу в ListBox-e отобразить горизонтальный ScrollBar.

Dim hwnd  
    ListBox1.SetFocus  
    hwnd = GetFocus  
    MsgBox hwnd

Пример знакомый, но что показывает hwnd я не соображу -> Spy++ показывает правильное значение.

[Дмитрий Щербаков(The_Prist)]

но что показывает hwnd я не соображу

пока не скажете зачем - никто не сообразит и откуда уверенность, что Spy показывает нужное значение? Может Spy показывает не само родительское окно ListBox, а элементы в нем?

[vikttur]

В Windows все окна, даже кнопки.

Спасибо, буду знать.

Off

пока не скажете зачем - никто не сообразит

Получить, вставить в фотошоп,  красиво оформить. распечатать, поместить в рамку и над рабочим столом повесить.
Потом подкатить к приглянувшейся девушке в отделе: "Ты еще не видела мой дескриптор! Пошли в кабинет, покажу"

[Muskin2029]

пока не скажете зачем - никто не сообразит

Так я выше уже сказал - в ListBox-e отобразить горизонтальный ScrollBar, с помощью SendMessage.

и откуда уверенность, что Spy показывает нужное значение?

Уверен на сто - проверял другими софтами.

[Дмитрий Щербаков(The_Prist)]

отобразить горизонтальный ScrollBar

жуть какая...А что мешает сделать ширину столбца листбокса заведомо шире, чем сам листбокс? Тогда горизонтальный скроллбар появится сам как только в нем будет хоть один элемент...