In Windows 7 the skinned messagebox looks strange (Codejock V 13.3, VB 6). Is there a workaround?

 

 

Thanks in advance

Henry

 

I had the same issue. I ended up replacing all my Msgbox routines with a new routine call cjMsgbox.

 

To do this I call it thusly ....

If you need to evaluate the result use  Dim reply As xtremesuitecontrols.TaskDialogCommonButtons

 

cjMsgBox "Error Canceling line from order. Lines must have a status equivalent to  unallocated", "", xtpTaskButtonOk, xtpTaskIconError 

 

' put this in a module

 

Function cjMsgbox (Optional ByVal sTitleText As String, Optional ByVal sMainText As String = "", Optional cmdbtns As TaskDialogCommonButtons, Optional pMainIcon As TaskDialogIcon) As TaskDialogCommonButtons
Dim TaskDlg As xtremesuitecontrols.TaskDialog

 

' ToDo. This needs changing as function was not written with proper thought.

If IsMissing(cmdbtns) Then cmdbtns = xtpTaskButtonOk

If sMainText = "" Then
If sTitleText > "" Then sMainText = sTitleText
sTitleText = "StockBox"
End If

If sTitleText = "" Then sTitleText = "StockBox"

   
   Set TaskDlg = MDIForm1.TaskDialog1 ' controls sits on main form
   
   
    TaskDlg.Reset
   
    'Always look like manifest was used, even if no manifest file is present
    TaskDlg.MessageBoxStyle = True
   
    If Not IsMissing(pMainIcon) Then TaskDlg.MainIcon = pMainIcon

    'From General Tab
    TaskDlg.WindowTitle = sTitleText
    TaskDlg.MainInstructionText = sMainText
    TaskDlg.CommonButtons = cmdbtns

 cjMsgbox = TaskDlg.ShowDialog
   
End Function