|
|
|
Index контрола
|
|||
|---|---|---|---|
|
#18+
Есть три ListView() подскажите, пожалуйста, как узнать индекс контрола по которому кликнули. это: Private Sub ListView_Click(Index As Integer) ind = ListView(Index).Index End Sub как-то через раз работает. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.11.2006, 19:41 |
|
||
|
Index контрола
|
|||
|---|---|---|---|
|
#18+
это индкс записи в кликнутом контроле а индекс контрола - index (параметр смотри) аффтопитезь ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.11.2006, 19:42 |
|
||
|
Index контрола
|
|||
|---|---|---|---|
|
#18+
мозг не надо ........ ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.11.2006, 19:44 |
|
||
|
Index контрола
|
|||
|---|---|---|---|
|
#18+
Dim ind As Integer 'индекс ListView Dim ind1 As Integer 'индекс итема ListView(ind) Private Sub ListView1_Click(Index As Integer) On Error Resume Next ind = ListView1(Index).Index ind1 = ListView1(Index).SelectedItem.Index End Sub Private Sub ListView1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then PopupMenu mnuEdit End Sub Private Sub s_Click() On Error GoTo ser ListView1(ind).ListItems.Remove ind1 Exit Sub ser: MsgBox "Попробуйте ещё раз", vbOKOnly + vbInformation, "Не сработало" End Sub процедура s_Click() удаляет item(ind1) из ListView1(ind) по которому кликнули левой мышой последний раз ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.11.2006, 20:30 |
|
||
|
|

start [/forum/topic.php?fid=60&msg=34120668&tid=2164996]: |
0ms |
get settings: |
6ms |
get forum list: |
11ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
155ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
50ms |
get tp. blocked users: |
1ms |
| others: | 197ms |
| total: | 436ms |

| 0 / 0 |
