| |
 59 Кб. |
|
| | 1. вот что получилось в итоге :)
2. если нажимать клавиши - стрелки вверх-вниз, происходит переход по контролам соответсвенно.
я эти события никак не отслеживаю, только селектор записи рисую....
но вот в чем проблем :)
почему то если стрелками - перескакивает через одну запись 
ничего не могу понять...
подскажете?  | |
| |
| |
| |
|
|
| | ыыы, спасибо, разобрался :)
устал просто, протупил в одном месте  | |
| |
| |
| |
71 Кб. |
|
| | Что-то мне это сильно напоминает =>
:) | |
| |
| |
|
|
|
|
| |
|
|
| | Там на заднем фоне деревце видать.
Может стоит его-же вместо самописного грида пользовать? | |
| |
| |
| |
|
|
| | нельзя
да и грид уже воркает :) но как то... странно, я бы сказал :)
так тебе есть шо сказать по проблеме? :) не могу найти :/ в чем собака порылась
пока что  | |
| |
| |
| |
|
|
| | Игры Set Focus-а, подозреваю.
Отсюда плохо видно. :(
Там исчо есть сокрытие контрола, имеющего фокус, если не ошибаюсть. Не? | |
| |
| |
| |
|
|
| | убрал фокусы , однако
сокрытие контрола есть
но так же есть и проверка, когда можно скрывать, а когда нет - событие на клавиши навигации не распространяются на инициализацию контрола редактирования
подозреваю, что что-то с настройками фрэма, в котором живут контролы, и с ними тоже :)
завтра поколопаю сю скалу :) | |
| |
| |
| |
|
|
| | :)
Это нормально ...Это нормально ...Это нормально ... | |
| |
| |
| |
|
|
| | вроде бы нае  поборол!
Private Sub oTxtBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
On Error GoTo err123
Dim rowid&, offset%
'-- перехват управления стрелками
If KeyCode = 40 Or KeyCode = 38 Then
rowid = Replace(oTxtBox.name, "txtValue", "") * 1
Select Case KeyCode
Case 38: offset = -1
Case 40: offset = 1
Case Else
offset = 0
End Select
KeyCode = 0
If isControl("txtValue" & (rowid + offset)) Then
frmCaller.Controls("txtValue" & (rowid + offset)).SetFocus
Call SetRowSelector(rowid + offset)
End If
End If
Exit Sub
err123:
MsgBox Error, , "TextBox #" & Err
Exit Sub
End Sub
|
з.ы. бонус трек
- Все ГАИшники спрашивают: «Ты пил?» Хоть бы один поинтересовался: «Ты ел?»
- Позитивный человек - это тот, кого послали «нахрен», а он оттуда вернулся отдохнувший и с магнитиками.
- Страх - это когда трамвай, зацепивший «порше-кайен», скрывается во дворах. | |
| |
| |
| |
|
|
| | Ммм....
rowid = Replace(oTxtBox.name, "txtValue", "") * 1
|
Небыстрая эта история.
Может rowid сразу в тег oTxtBox пихнуть, а затем пользовать?
| |
| |
| |
| |
|
|
| | да, я уже исправил - через жлобальную переменную формы отслеживаю rowid
короче, форма табличная вроде вырисовывается, но смотрю я , что могу не успеть всё наFUIячить :)
поэтому принял волевое решение использовать ListView или даже может быть ListBox
рамки задачи позволяют :) тогда этот сабклассинг сейчас не нужен будет, можно отложить до лучших времен....
я уже забыл, ListView позволяет в себе TreeView построить? а выпадающие списки? а кнопучки?
в принципе без этого тоже можно обойтись :) в рамках поставленной задачи  | |
| |
| |
| |
|
|
| | Ответы: Нет, нет, нет. Если не ошибаюсь. :) | |
| |
| |
| |
|
|
| | та да :) уже попробовал.... да и хрен с ними | |
| |
| |
я потерялся 