Hi @nvoW4TBM,
Great. When the error/warning dialog pops up, go straight to your journal and take a look. It looks like it is a basic taskdialog, so you can do something like this:
'Initialise event handler
AddHandler m_appUi.DialogBoxShowing, AddressOf DialogBoxShowingCall
'remove it when you don't need it anymore.
RemoveHandler m_appUi.DialogBoxShowing, AddressOf DialogBoxShowingCall
'the sub the event calls - just explore what happens for your models and close dialogs as required
Private Sub DialogBoxShowingCall(sender As Object, e As UI.Events.DialogBoxShowingEventArgs)
Dim e2 As UI.Events.TaskDialogShowingEventArgs = _
TryCast(e, UI.Events.TaskDialogShowingEventArgs)
Dim e3 As UI.Events.MessageBoxShowingEventArgs = _
TryCast(e, UI.Events.MessageBoxShowingEventArgs)
Dim s As String = String.Empty
If e2 IsNot Nothing Then
Dim dialogId2 As String = String.Empty
Debug.Print(String.Format("DialogBoxShowing: help id {3}, dialog id {0}, cancellable {1}{2}", _
e2.DialogId, If(e2.Cancellable, "Yes", "No"), s, dialogId2))
If e2.DialogId.Equals("TaskDialog_Detach_Model_From_Central", _
StringComparison.InvariantCultureIgnoreCase) Then
Debug.Print("DialogBoxShowing: PreserveWorksets")
e2.OverrideResult(CInt(UI.TaskDialogResult.CommandLink1))
ElseIf e2.DialogId.Equals("TaskDialog_Unresolved_References", _
StringComparison.InvariantCultureIgnoreCase) Then
Debug.Print("DialogBoxShowing: Unresolved References")
e2.OverrideResult(CInt(UI.TaskDialogResult.CommandLink2))
End If
End If
Dim dialogId As String = e.DialogId
Debug.Print("DialogBoxShowing: help id {0}, cancellable {1}{2}", _
dialogId, If(e.Cancellable, "Yes", "No"), s)
End Sub
Cheers,
-Matt
_______________________________________________________________________________
Marking a post as a 'solution' helps the community. Giving a post 'Kudos' is as good as saying thanks. Why not do both?
