поможите люди добрые

[Naked]

Как с помощью API узнать индекс элемента в массиве элементов

[GSerg]

5 баллов.

[Naked]

шо не так?
т.е индекс контрола

[Шурик]

оставлен на второй год...

[Viper]

я в шоке

[VINNY-PYX]

У меня сердечный приступ... вызовите скорую... аррр.... ах.... (все, умер)

[RayShade]

А зачем, именно с помощью API то ?

[Sedge]

потому что с АПИ это очень готично...

[CodeName33]

Naked
Вообще Control.Index, а как ты к нему обращаешься, если индекса не знаешь?

А вот как с помошью АПИ - даже не знаю. VarPtr(Control) - указатель на объект - а дальше через CopyMemory попробовать вытащить из памяти класса свойство index...

[Naked]

Если не знаете ответа на этот вопрос, то избавьте от своих насмешек.
Звезд вроде много а помощи никакой...

[Amed]

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

Private a(1 To 500) As Integer
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Private Function search(number As Integer) As Integer
Dim j As Integer
For j = 1 To 500
If a(j) = number Then
MessageBox Form1.hwnd, "Нашёл!!!", "Ура!!!", 0
search = j
Exit For
End If
Next j
End Function

Private Sub Form_Load()
Dim i As Integer
Dim res As Integer
Randomize
For i = 1 To 500
a(i) = Rnd * 500
Next i

res = search(25)
End Sub


[CodeName33]

Amed ГЫ! Действительно апи присутствует, но можно тада проще.

Массив кнопок Command1:

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

Private Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)

Private Function SearchControl(nControl, ArrayControls) As Long
Dim i As Long, IB As Long, IC As Long
IC = ArrayControls.Ubound
IB = ArrayControls.lbound

For i = IB To IC
    If nControl.Index = ArrayControls(i).Index Then
        Sleep 1: SearchControl = i: Exit Function
    End If
Next
SearchControl = -1
End Function

Private Sub Command1_Click(Index As Integer)
MsgBox SearchControl(Command1(Index), Command1)
End Sub


А вот это самый простой способ :

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

Private Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)

Private Sub Command1_Click(Index As Integer)
Sleep 1
MsgBox Index
End Sub


[Sedge]

Если не знаете ответа на этот вопрос, то избавьте от своих насмешек.
Звезд вроде много а помощи никакой...

Каков вопрос - таковы и ответы.