[RESOLVED] MSFlexGrid & Times

[si_the_geek]

For your first question, show us the code you currently have as we can amend it for you to remove the problems (far easier than writing it from scratch!).

For the second question I would suggest using a different textbox for those columns, which does the formatting in the change event. Bear in mind tho that people may want to input the : characters themselves.

Here is some possible code:

'dont let the event fire when we are changing the value (infinite loop!)
Static bSelfChanging as Boolean
  If bSelfChanging Then Exit Sub
  bSelfChanging = True
 
Dim sTime as String
Dim iCursorpos as Integer
'get current value (& cursor pos)
  iCursorpos = txtTimeInput.SelStart
  sTime = Replace(txtTimeInput.Text,":","")
 
'format
  sTime = Format$(sTime,"#####:#0:00")
  If Left$(sTime,1) = ":" Then sTime = Mid$(sTime,2)
 
'set value (& return cursor pos)
  txtTimeInput.Text = sTime
  txtTimeInput.SelStart = iCursorpos
 
  bSelfChanging = False