отловить в vsflexgrid номер позиции вводимого символа

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
s180
Начинающий
Начинающий
 
Сообщения: 4
Зарегистрирован: 11.09.2005 (Вс) 23:42

отловить в vsflexgrid номер позиции вводимого символа

Сообщение s180 » 12.09.2005 (Пн) 20:25

собственно тема?!

GB826
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 312
Зарегистрирован: 04.08.2005 (Чт) 0:58
Откуда: Планета #3

Сообщение GB826 » 13.09.2005 (Вт) 23:42

:shock: а по-русски? куда ты его вводишь? откуда начинать считать позицию?

s180
Начинающий
Начинающий
 
Сообщения: 4
Зарегистрирован: 11.09.2005 (Вс) 23:42

Сообщение s180 » 15.09.2005 (Чт) 8:44

в ячейке при вводе надо было отслеживать номер позиции. Это нужно было для того чтобы решить вопрос о построении произвольной маски, которой нет в EditMask и контроллировать на какую позицию можно вводить определённый набор символов, в принципе это решается путём обработки события ChangeEdit(см. мою тему как во vsflexgrid сделать маску на ввод времени)

GB826
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 312
Зарегистрирован: 04.08.2005 (Чт) 0:58
Откуда: Планета #3

Сообщение GB826 » 16.09.2005 (Пт) 0:01

точно не уверен, попробуй так

if len(fgGrid.TextMatrix(row,col))=....

GB826
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 312
Зарегистрирован: 04.08.2005 (Чт) 0:58
Откуда: Планета #3

Сообщение GB826 » 16.09.2005 (Пт) 10:37

Не так не будет это работать...
EditMask - должен ...
А на счет той темы - Датапикер будет красивее и удобнее...
Надеюсь разберешся...
Код: Выделить всё
Private Sub vsFG_StartEdit(ByVal Row As Long, ByVal Col As Long, Cancel As Boolean)
'Прилепляем к полянке Даты dtPicker
    With Me.vsFG
    If Col = .ColIndex("ДатаТвоя") Then
       
        Cancel = True
        dtPick.Value = .TextMatrix(Row, Col)
        dtPick.Move .CellLeft, .CellTop, .CellWidth, .CellHeight
        dtPick.Visible = True
        dtPick.SetFocus
        SendKeys "{f4}"
       
    End If
   
   End With
End Sub


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот, SemrushBot, Yandex-бот и гости: 12

    TopList  
cron