Ok, I ran the sample code and it does that same thing here. Really wierd. I've tried several things but nothing is working yet. Will let you know if I come up with an idea.
This is a discussion on Problems with Pushpin dataset within the MapPoint Desktop Discussion forums, part of the Map Forums category; Sylvain, Ok, I ran the sample code and it does that same thing here. Really wierd. I've tried several things ...
The "Find" Dialog looks like it wants to be sort of modal. By detecting if a window with "Find" as a title is currently visible at the top of the timer event seems to prevent the problem.
A bit of a hack, but with a bit of extra work it might be acceptable. Localization will be an issue.
Another approach that would take some research would be to try to track down the window handle of the mappoint control and subclass for the desired messages.
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Function IsFindVisible() As Boolean
Dim lHwnd As Long
Dim lRet As Long
IsFindVisible = False
lHwnd = FindWindow(vbNullString, "Find")
If (lHwnd <> 0) Then
If (GetParent(lHwnd) = Me.hwnd) And (IsWindowVisible(lHwnd)) Then
IsFindVisible = True
and as the first executable line in the Timer event
If IsFindVisible() Then Exit Sub
Yes John, I just finished trying it and it works fine.
Thanks for all your help, it was appreciated.
There are currently 1 users browsing this thread. (0 members and 1 guests)