Ask Learn
Preview
Ask Learn is an AI assistant that can answer questions, clarify concepts, and define terms using trusted Microsoft documentation.
Please sign in to use Ask Learn.
Sign inThis browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
Note
Access to this page requires authorization. You can try signing in or changing directories.
Access to this page requires authorization. You can try changing directories.
Please be aware that there is a bug in the Visio 2007 Drawing Control such that if you have the SRC property set and add a new page (either through the UI or through code), Visio crashes. Obviously this is really bad and we are actively working to get a fix, but in the meantime we'd like to provide a workaround. If you see the following error messages when adding a page in the control, you are possibly hitting this bug:
We've provided code below for most of the major languages we support. I've highlighted in red in each case the actual fix, but we wanted to provide a little bit of the context of the code since you need to make sure to call the SendMessage fix after you have set the SRC property of the control.
' declare win32 function
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub LoadDocument()
' assign source file
DrawingControl1.Src = "C:\Drawing1.vsd"
' send private message to Visio to invoke workaround
SendMessage DrawingControl1.Window.WindowHandle32, 2100, 0, 0
' add page
DrawingControl1.Document.Pages.Add
End Sub
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub LoadDocument()
'assign source file
DrawingControl1.Src = "C:\Drawing1.vsd"
'send private message to Visio to invoke workaround
SendMessage DrawingControl1.Window.WindowHandle32, 2100, 0, 0
'add page
DrawingControl1.Document.Pages.Add
End Sub
(need to Import System and System.Runtime.InteropServices)
'Declare win32 function
<DllImport("User32.dll")>
Private Shared Function SendMessage(ByVal Handle As Int32, _
ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32
End Function
Private Sub LoadDocument()
AxDrawingControl1.Src = "c:\\Drawing1.vsd"
SendMessage(AxDrawingControl1.Window.WindowHandle32, 2100, 0, 0)
AxDrawingControl1.Document.Pages.Add()
End Sub
// declare win32 function
[DllImport("user32.dll", EntryPoint="SendMessageA")]
public static extern int SendMessage(int windowHandle, uint message, int wparam, int lparam);
private void LoadDocument ()
{
// assign source file
axDrawingControl1.Src = "C:\\Drawing1.vsd";
// send private message to Visio to invoke workaround
SendMessage(axDrawingControl1.Window.WindowHandle32, // drawing window
2100, // private Visio message
0,
0);
// add page
axDrawingControl1.Document.Pages.Add();
}
void LoadDocument()
{
// assign source file
drawingControl->Src("C:\\Drawing1.vsd");
// send private message to Visio to invoke workaround
::SendMessage( (HWND) drawingControl->GetWindow()->GetWindowHandle32(), // drawing window
2100, // private Visio message
0,
0);
// add page
drawingControl->GetDocument()->GetPages()->Add();
}
Anonymous
January 28, 2007
Bill, Thanks a lot for the fast response. It works for me.
Anonymous
April 18, 2007
Bill, do you have a KB # for this problem?
Anonymous
April 18, 2007
The comment has been removed
Anonymous
May 06, 2007
I spent a little time today answering questions about some of the new features in Visio 2007, and noticed
Anonymous
May 18, 2007
I have a Visio 2003 Automation Windows Forms project and met the same error. Bill's code solved the problem.
Anonymous
May 24, 2007
good site. I find it from visiocafe. I met some trouble in doing the automation. It's lots of helpful for me.
Anonymous
May 24, 2007
I forget to say, it's difficult to hide the toolbar in the visio with the vb language. I try the olecommand. but failed every time.
Anonymous
July 31, 2008
Hi Bill,
Do you know if a fix for this was ever found. I have tried installing Visio SP1 but the problem still occurs.
Thanks,
Martin
Anonymous
October 23, 2015
its troubled me for a long time, thank you
Ask Learn is an AI assistant that can answer questions, clarify concepts, and define terms using trusted Microsoft documentation.
Please sign in to use Ask Learn.
Sign in