Codejock Developer Community : SOLVED: - Enable TAB Key navigation http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 15 May 2026 04:27:56 +0000 Thu, 29 Apr 2010 03:46:33 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=16638 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[SOLVED: - Enable TAB Key navigation : Thanks Very VeryVeryMuch SuperMario...]]> http://forum.codejock.com/forum_posts.asp?TID=16638&PID=58268&title=solved-enable-tab-key-navigation#58268 Author: markmark
Subject: 16638
Posted: 29 April 2010 at 3:46am

Thanks Very Very Very  Much  SuperMario
That did it
 
 
 
Cheers
 
Mark
]]> Thu, 29 Apr 2010 03:46:33 +0000 http://forum.codejock.com/forum_posts.asp?TID=16638&PID=58268&title=solved-enable-tab-key-navigation#58268 <![CDATA[SOLVED: - Enable TAB Key navigation : Indeed, you are right, 13.0...]]> http://forum.codejock.com/forum_posts.asp?TID=16638&PID=58260&title=solved-enable-tab-key-navigation#58260 Author: SuperMario
Subject: 16638
Posted: 28 April 2010 at 11:54am

Indeed, you are right, 13.0 does not behave as intended.  I went back through and 13.1 is the first version to work correctly.

Here is a workaround I found to work OK, you can make the condition more strict, but here is the basic idea.  You could just use selection changed if you always want it click\tab\whatever:

Dim bFocusChanged As Boolean

Private Sub wndReportControl_FocusChanging(ByVal NewRow As XtremeReportControl.IReportRow, ByVal NewColumn As XtremeReportControl.IReportColumn, ByVal NewItem As XtremeReportControl.IReportRecordItem, Cancel As Boolean)
    bFocusChanged = True
End Sub

Private Sub wndReportControl_SelectionChanged()
    On Error Resume Next
    If bFocusChanged Then
        wndReportControl.Navigator.BeginEdit
    End If
    bFocusChanged = False
End Sub
]]> Wed, 28 Apr 2010 11:54:51 +0000 http://forum.codejock.com/forum_posts.asp?TID=16638&PID=58260&title=solved-enable-tab-key-navigation#58260 <![CDATA[SOLVED: - Enable TAB Key navigation : Ok, Well I can&#039;t just update...]]> http://forum.codejock.com/forum_posts.asp?TID=16638&PID=58258&title=solved-enable-tab-key-navigation#58258 Author: markmark
Subject: 16638
Posted: 28 April 2010 at 9:56am

Ok, Well I can't just update every user with the new version yet.
We are on ver 13.0.0
do you know of any work about so I can Select Text On Edit  after Tabing to the item with the above code.
 
 
Thanks for helping me out with this
 
Mark
 
 
]]> Wed, 28 Apr 2010 09:56:41 +0000 http://forum.codejock.com/forum_posts.asp?TID=16638&PID=58258&title=solved-enable-tab-key-navigation#58258 <![CDATA[SOLVED: - Enable TAB Key navigation : Your code works fine for me, but...]]> http://forum.codejock.com/forum_posts.asp?TID=16638&PID=58254&title=solved-enable-tab-key-navigation#58254 Author: SuperMario
Subject: 16638
Posted: 28 April 2010 at 8:22am

Your code works fine for me, but I have 13.3.1.

Note you don't need to set SelectTextOnEdit for both column and item, if you want the entire column like that then just set the column.  Only set individual items if you don't want all items in the column to have this behavior.
]]> Wed, 28 Apr 2010 08:22:45 +0000 http://forum.codejock.com/forum_posts.asp?TID=16638&PID=58254&title=solved-enable-tab-key-navigation#58254 <![CDATA[SOLVED: - Enable TAB Key navigation : Hi I added the code but still...]]> http://forum.codejock.com/forum_posts.asp?TID=16638&PID=58245&title=solved-enable-tab-key-navigation#58245 Author: markmark
Subject: 16638
Posted: 28 April 2010 at 2:40am

Hi
 
I added the code but still can't get it to work.
Could you please check my code below
 
Thanks very much
 
Mark
 
 
 
Private Sub Form_Load()
Dim Column As ReportColumn
Dim RecordControl As ReportRecord
Dim rRecord As ReportRecord
Dim Item As ReportRecordItem
Set Column = wndReportWaste.Columns.Add(0, "Group", 80, True)
Column.EditOptions.SelectTextOnEdit = False
Column.Visible = False
Set Column = wndReportWaste.Columns.Add(1, "Product", 80, True)
Column.EditOptions.SelectTextOnEdit = True
Set Column = wndReportWaste.Columns.Add(2, "SOT", 70, True)
Column.EditOptions.SelectTextOnEdit = True
Set Column = wndReportWaste.Columns.Add(3, "Inner", 110, True)
Column.EditOptions.SelectTextOnEdit = True
Set rRecord = wndReportWaste.Records.Add()
Set Item = rRecord.AddItem("1")
Item.CreateEditOptions
Item.EditOptions.SelectTextOnEdit = True
Set Item = rRecord.AddItem("Paper")
Item.CreateEditOptions
Item.EditOptions.SelectTextOnEdit = True
Set Item = rRecord.AddItem("")
Item.CreateEditOptions
Item.EditOptions.SelectTextOnEdit = True
Set Item = rRecord.AddItem("")
Item.CreateEditOptions
Item.EditOptions.SelectTextOnEdit = True
Set rRecord = wndReportWaste.Records.Add()
Set Item = rRecord.AddItem("1")
Item.CreateEditOptions
Item.EditOptions.SelectTextOnEdit = True
Set Item = rRecord.AddItem("Water")
Item.CreateEditOptions
Item.EditOptions.SelectTextOnEdit = True
Set Item = rRecord.AddItem("")
Item.CreateEditOptions
Item.EditOptions.SelectTextOnEdit = True
Set Item = rRecord.AddItem("")
Item.CreateEditOptions
Item.EditOptions.SelectTextOnEdit = True
wndReportWaste.FocusSubItems = True

wndReportWaste.AllowEdit = True
wndReportWaste.EditOnClick = True
wndReportWaste.Populate
End Sub
]]> Wed, 28 Apr 2010 02:40:52 +0000 http://forum.codejock.com/forum_posts.asp?TID=16638&PID=58245&title=solved-enable-tab-key-navigation#58245 <![CDATA[SOLVED: - Enable TAB Key navigation : there is ReportRecordItemEditOptions.SelectTextOnEdit ...]]> http://forum.codejock.com/forum_posts.asp?TID=16638&PID=58238&title=solved-enable-tab-key-navigation#58238 Author: SuperMario
Subject: 16638
Posted: 27 April 2010 at 4:20pm

there is ReportRecordItemEditOptions.SelectTextOnEdit]]> Tue, 27 Apr 2010 16:20:30 +0000 http://forum.codejock.com/forum_posts.asp?TID=16638&PID=58238&title=solved-enable-tab-key-navigation#58238 <![CDATA[SOLVED: - Enable TAB Key navigation : Hi Thanks for your reply I...]]> http://forum.codejock.com/forum_posts.asp?TID=16638&PID=58232&title=solved-enable-tab-key-navigation#58232 Author: markmark
Subject: 16638
Posted: 27 April 2010 at 11:00am

Hi
 
Thanks for your reply
 
I have added  wndReportWaste.FocusSubItems = True
which nearly gets me there,
Because I have
wndReportWaste.EditOnClick = True
 
Tabbing into a cell item doesn't select the contents
 
Any Ideas?
 
Mark
]]> Tue, 27 Apr 2010 11:00:53 +0000 http://forum.codejock.com/forum_posts.asp?TID=16638&PID=58232&title=solved-enable-tab-key-navigation#58232 <![CDATA[SOLVED: - Enable TAB Key navigation : Also set:wndReportWaste.FocusSubItems...]]> http://forum.codejock.com/forum_posts.asp?TID=16638&PID=58229&title=solved-enable-tab-key-navigation#58229 Author: SuperMario
Subject: 16638
Posted: 27 April 2010 at 9:14am

Also set:

wndReportWaste.FocusSubItems = True


]]> Tue, 27 Apr 2010 09:14:01 +0000 http://forum.codejock.com/forum_posts.asp?TID=16638&PID=58229&title=solved-enable-tab-key-navigation#58229 <![CDATA[SOLVED: - Enable TAB Key navigation : Hi In the example code, I cannot...]]> http://forum.codejock.com/forum_posts.asp?TID=16638&PID=58225&title=solved-enable-tab-key-navigation#58225 Author: markmark
Subject: 16638
Posted: 27 April 2010 at 5:02am

Hi

 

In the example code, I cannot get the tab key to move focus from one cell item to another.

Anyone know how to do this? (The arrow keys would do, just need keyboard navigation not just the mouse)

 

Thanks

 

Mark
 
Private Sub Form_Load()
Dim Column As ReportColumn
Dim RecordControl As ReportRecord
Dim rRecord As ReportRecord
Set Column = wndReportWaste.Columns.Add(0, "Group", 80, True)
Column.EditOptions.SelectTextOnEdit = False
Column.Visible = False
Set Column = wndReportWaste.Columns.Add(1, "Product", 80, True)
Column.EditOptions.SelectTextOnEdit = True
Set Column = wndReportWaste.Columns.Add(2, "SOT", 70, True)
Column.EditOptions.SelectTextOnEdit = True
Set Column = wndReportWaste.Columns.Add(3, "Inner", 110, True)
Column.EditOptions.SelectTextOnEdit = True
Set rRecord = wndReportWaste.Records.Add()
rRecord.AddItem "1": rRecord.AddItem "Paper": rRecord.AddItem "": rRecord.AddItem ""
Set rRecord = wndReportWaste.Records.Add()
rRecord.AddItem "1": rRecord.AddItem "Cardboard": rRecord.AddItem "": rRecord.AddItem ""
Set rRecord = wndReportWaste.Records.Add()
rRecord.AddItem "1": rRecord.AddItem "Plastics": rRecord.AddItem "": rRecord.AddItem ""
Set rRecord = wndReportWaste.Records.Add()
rRecord.AddItem "1": rRecord.AddItem "Glass": rRecord.AddItem "": rRecord.AddItem ""

wndReportWaste.AllowEdit = True
wndReportWaste.EditOnClick = True
wndReportWaste.Populate
End Sub
]]> Tue, 27 Apr 2010 05:02:13 +0000 http://forum.codejock.com/forum_posts.asp?TID=16638&PID=58225&title=solved-enable-tab-key-navigation#58225