Report Row Height Refresh Problem

 

Thanks for taking a look.

I have just posted in a  support call.

 

 

Thanks

 

MArk

If you show a msgbox, vb6 will prevent executing any event !

Every time, the reportcontrol is to be redrawn, the measurerow-event is fired, but your application can not handle the event, because it is blocked by msgbox.

 

The same effect happens for example in debug-mode.

If i break my application in a measurerow- or drawitem-event and switch to the actual form with the taskmanager, the reportcontrol is drawn with defaults (height and also contents!).

 

Solution:

Show a modal form that looks like a msgbox than the events can be handled (e.g. CJ's TaskDialog).

 

Every time a window must be repaint because it's overlaid windows himselve sends a WM_PAINT-Message.

So the ReportControl MUST be repainted to show correct contents.

 

You can prevent a window to be redrawn with the following routine:

 

'--------------------------------------------------------------------------------

Public Type cRect
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type

 

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Public Declare Function GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As cRect) As Long
Public Declare Function RedrawWindow Lib "user32" (ByVal hWnd As Long, lprcUpdate As cRect, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long

Public Const WM_SETREDRAW = &HB
Public Const RDW_INVALIDATE = &H1
Public Const RDW_ALLCHILDREN = &H80
Public Const RDW_UPDATENOW = &H100
Public Const RDW_ERASE = &H4

Public Sub LockWindow(ByVal hWnd As Long, wLock As Boolean)
    Dim ClientRect As cRect
    Dim xState As Long
   
    If wLock = True Then
        xState = SendMessage(hWnd, WM_SETREDRAW, 0, 0&)
    Else
        xState = SendMessage(hWnd, WM_SETREDRAW, 1, 0&)
        GetClientRect hWnd, ClientRect
        RedrawWindow hWnd, ClientRect, 0&, RDW_ERASE Or RDW_INVALIDATE Or RDW_ALLCHILDREN Or RDW_UPDATENOW
    End If
End Sub

'---------------------------------------------------------------------------------------------

 

Sometimes it would help (also for performance reasons by filling a treeview or else).

 

------------------------------------------------------------------------------------------

Public Function MsgBox(Prompt As String, Optional Buttons As VbMsgBoxStyle = vbOKOnly, Optional Title, Optional HelpFile, Optional Context) As VbMsgBoxResult

    With frmMain.tskDialog
        .Reset
        .UseComCtl32 = False
        .MessageBoxStyle = True
       
        If Not IsMissing(Title) Then
            .WindowTitle = Title
        Else
            .WindowTitle = App.ProductName
        End If
        .MainInstructionText = Prompt
       
        If (Buttons And vbOKCancel) = vbOKCancel Then
            .CommonButtons = xtpTaskButtonOk Or xtpTaskButtonCancel
        ElseIf (Buttons And vbAbortRetryIgnore) = vbAbortRetryIgnore Then
            .CommonButtons = xtpTaskButtonCancel Or xtpTaskButtonRetry Or xtpTaskButtonClose
        ElseIf (Buttons And vbRetryCancel) = vbRetryCancel Then
            .CommonButtons = xtpTaskButtonCancel Or xtpTaskButtonRetry
        ElseIf (Buttons And vbYesNo) = vbYesNo Then
            .CommonButtons = xtpTaskButtonYes Or xtpTaskButtonNo
        Else
            .CommonButtons = xtpTaskButtonOk
        End If
       
        .MainIcon = xtpTaskIconNone
       
        If (Buttons And vbExclamation) = vbExclamation Then
            .MainIcon = xtpTaskIconError
        ElseIf (Buttons And vbCritical) = vbCritical Then
            .MainIcon = xtpTaskIconError
        ElseIf (Buttons And vbQuestion) = vbQuestion Then
            .MainIcon = xtpTaskIconInformation
        ElseIf (Buttons And vbInformation) = vbInformation Then
            .MainIcon = xtpTaskIconInformation
        End If
       
        Select Case .ShowDialog
        Case xtpTaskButtonOk
            MsgBox = vbOK
        Case xtpTaskButtonYes
            MsgBox = vbYes
        Case xtpTaskButtonCancel
            MsgBox = vbCancel
        Case xtpTaskButtonNo
            MsgBox = vbNo
        Case xtpTaskButtonRetry
            MsgBox = vbRetry
        Case xtpTaskButtonClose
            MsgBox = vbIgnore
        Case Else
            MsgBox = vbAbort
        End Select
    End With
End Function
---------------------------------------------------------------------------------------

 

Assuming frmMain is my mainform containg a taskdialog-control.

 

yes vb6 sp6

 

Thanks

 

MArk

 

If you type a 0 into the size column, and then click to the next row, does the row height for the group default large?

Not until you click OK to the message box, does the row resize back to small.

 

Thanks

 

MArk

 

Is there an update on this issue yet

 

Thanks

 

MArk