Ещё вопрос... У таблицы включено свойство editable. Пользователь вводит в ячейку значение. Надо:
1) Отслеживать, чтобы пользователь не ввёл более 2-х символов
2) Принимать только символы 0-9, A-F
3) После каждого измения значения придавать некому textbox-у это значение.
4) Водить значение 0, если ячейка пуста
Private Sub VSFlexGrid1_AfterEdit(ByVal Row As Long, ByVal Col As Long)
If Len(VSFlexGrid1.TextMatrix(Row, Col)) > 2 Then MsgBox "S.O.S."
End Sub
Private Sub VSFlexGrid1_KeyPressEdit(ByVal Row As Long, ByVal Col As Long, KeyAscii As Integer)
Select Case KeyAscii
Case 8, 48 To 57, 65 To 70, 97 To 102
Case Else
KeyAscii = 0
End Select
End Sub
Сейчас этот форум просматривают: Google-бот и гости: 41