Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
Not sure when this issue started but I recently noticed it. Our current QV version is 11.2 SR5.
In our applications, we have user facing controls that allow the ability to toggle the tabrow visibility.
This is achieved using the standard vbscript macro as seen in the API guide.
The problem is that when you toggle to the new state (show if hidden; hidden if shown), the tabrow doesn't display/hide properly. This occurs within new and existing applications. I've attached images below to help illustrate the problem.
If you switch back and forth between sheets then the problem corrects itself ...until the next time you run the relative macro.
Does anyone know how to resolve this issue?
figured out the solution....here's the result for anyone else who's interested.
'-----------------------------HIDE TAB ROW
SUB HideTabRow
validateSecurity = checkSecurity ()
IF validateSecurity = 0 THEN
SET varTR = ActiveDocument.GetVariable("vTabRow")
varTR.SetContent 1, TRUE
EXIT SUB
END IF
SET DocProp = ActiveDocument.GetProperties
DocProp.ShowTabRow = FALSE
ActiveDocument.SetProperties DocProp
SET objShell = CreateObject("WScript.Shell")
objShell.SendKeys "{F6}"
objShell.SendKeys "{F7}"
END SUB
'--------------------------------------------------------
'-----------------------------SHOW TAB ROW
SUB ShowTabRow
validateSecurity = checkSecurity ()
IF validateSecurity = 0 THEN
SET varTR = ActiveDocument.GetVariable("vTabRow")
varTR.SetContent 0, TRUE
EXIT SUB
END IF
SET DocProp = ActiveDocument.GetProperties
DocProp.ShowTabRow = TRUE
ActiveDocument.SetProperties DocProp
SET objShell = CreateObject("WScript.Shell")
objShell.SendKeys "{F6}"
objShell.SendKeys "{F7}"
END SUB
'--------------------------------------------------------
Anyone have any insight as to how this issue can be resolved?
figured out the solution....here's the result for anyone else who's interested.
'-----------------------------HIDE TAB ROW
SUB HideTabRow
validateSecurity = checkSecurity ()
IF validateSecurity = 0 THEN
SET varTR = ActiveDocument.GetVariable("vTabRow")
varTR.SetContent 1, TRUE
EXIT SUB
END IF
SET DocProp = ActiveDocument.GetProperties
DocProp.ShowTabRow = FALSE
ActiveDocument.SetProperties DocProp
SET objShell = CreateObject("WScript.Shell")
objShell.SendKeys "{F6}"
objShell.SendKeys "{F7}"
END SUB
'--------------------------------------------------------
'-----------------------------SHOW TAB ROW
SUB ShowTabRow
validateSecurity = checkSecurity ()
IF validateSecurity = 0 THEN
SET varTR = ActiveDocument.GetVariable("vTabRow")
varTR.SetContent 0, TRUE
EXIT SUB
END IF
SET DocProp = ActiveDocument.GetProperties
DocProp.ShowTabRow = TRUE
ActiveDocument.SetProperties DocProp
SET objShell = CreateObject("WScript.Shell")
objShell.SendKeys "{F6}"
objShell.SendKeys "{F7}"
END SUB
'--------------------------------------------------------