MapForums

andrem · #1 (**permalink**) 09-16-2003

Hi,

This must have been discussed before, but I couldn't find anything with the Search. I have MP2002 Control on a form. Whenever I show 2 modeless instances of the form, the focus/zorder goes funny - clicking on one form brings the other forward. This does not happen when I remove the OCXes, so it must be a control code bug? Here's my code: (Click on Cammand1 twice to open two instances of Form2 (with MapPoint OCX). Then try to click any of the instances. see what I mean? HELP!

Form1:
Option Explicit

Private Sub Command1_Click()
Dim frm As Form2

Set frm = New Form2

frm.Show vbModeless

End Sub

Form2:
Option Explicit

Private Sub Form_Initialize()

MapViewer.NewMap geoMapEurope

End Sub

Ninjas · #2 (**permalink**) 09-16-2003

http://www.avdf.com/multimedia/samp_modeless.html

andrem · #3 (**permalink**) 09-17-2003

Thanks Ninjas, but I know what a modeless dialog is. In this case I have a normal modeless forms. Replace the MapPoint control with a textbox, click the button twice, and it works fine. Add back mappoint ctl and do the same - the form that loses focus jumps to the top.

Martel · #4 (**permalink**) 09-24-2003

I noticed that the problem does not exist if you use an MDIForm and your Mappoint control in the child forms. However, you can imitate this somewhat using the following code. Be forwarned that whatever window is last activated will stay on top of all other applications as well as other windows in your current application!

Create a module:

Code:

Public Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" _
 (ByVal lpClassName As String, _
  ByVal lpWindowName As String) As Long


Public Declare Function SetWindowPos Lib "user32" _
 (ByVal iWinHandle As Long, _
  ByVal hWinInsertAfter As Long, _
  ByVal X As Long, _
  ByVal Y As Long, _
  ByVal cx As Long, _
  ByVal cy As Long, _
  ByVal uFlags As Long) As Long

CONST TOPMOST = -1
CONST NOMOVE = &H2
CONST NOSIZE = &H1
CONST NOCHANGE = NOMOVE OR NOSIZE

Public Sub SetFormOnTop(frmHandle as long)
      Call SetWindowPos(frmHandle, -1, 0, 0, 0, 0, NOCHANGE)
End Sub

On your form (I think you used Form2 in your example, but you will need it on ANY form that you want to have focus while your application is running) :

Code:

Private Sub Form_Activate()
  'Debug.Print Me.Caption & " activated " & Me.hWnd
  Call SetFormOnTop(Me.hWnd)
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
multiple instance problem	pichan81	MapPoint 2006/2009 Discussion	1	06-06-2006 02:05 PM
Multiple Routes	wadams	MapPoint 2006/2009 Discussion	0	11-17-2005 09:28 AM
Can I use Mappoint in Web forms in VB.NET?	Anonymous	MapPoint 2006/2009 Discussion	4	11-11-2004 06:42 AM
Event handling- Mappoint Control in VB forms	EasyCoder	MapPoint 2006/2009 Discussion	0	05-27-2004 07:10 PM
MP 2002/2004 Major problem with non modal forms in VB6	neomoon	MapPoint 2006/2009 Discussion	0	10-07-2003 04:13 AM

MapForums

Multiple Forms Problem

Multiple Forms Problem

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Similar Threads