определить индекс

[Naked]

опеределить индекс контрола в массиве не прибегая к:
Private Sub Text1_Change(Index As Integer)
Private Sub Text1_GotFocus(Index As Integer)
и т.д т.п

узнать его надо в обработчике сообщений т.е в модуле, по сообщению Case WM_SETFOCUS зная hwnd

[GSerg]

Потрясающе!
Вопрос наконец-то задан в форме, в которой на него можно ответить! Ура.

Код: Выделить всё

dim f as form, c as control, h as long
h=GetParent(hwnd)
for each f in forms
  if f.hwnd = h then
    for each c in f.controls
      if c.hwnd = hwnd then
        msgbox c.index
        exit for
      end if
    next
    exit for
  end if
next

[Naked]

а че оно не работает???

[GSerg]

Видимо потому, что это идея, а не готовое и прожаренное?
Видимо потому, что ты и не пытался сам понять, почему оно не работает?

[Naked]

if c.hwnd = hwnd then в модуле дает ошибку, пишет что "с" не поддерживает это св-во "hwnd"

в модуле формы работает нормально если убрать все что выделено красным

dim f as form, c as control, h as long
h=GetParent(hwnd)
for each f in forms
if f.hwnd = h then
for each c in f.controls
if c.hwnd = hwnd then
msgbox c.index
exit for
end if
next
exit for
end if
next

т.е сделать так

shWnd = ..... hwnd для сравнения

For Each f In Forms
For Each c In f.Controls
If c.hWnd = shWnd Then
MsgBox c.Index
Exit For
End If
Next
Exit For
Next

[CodeName33]

Naked

Ну вот тебе для тукущей формы без АПИ:

Код: Выделить всё

Dim c As Control
For Each c In Me.Controls
    MsgBox c.Index
Next

Но работает только для массивов элементов, с не массивами выдаст ошибку, обрабатывай её сам.