>i like your answer but can you more explicit? thanks.
Hi John,
When you run the form it asks for a directory containing your map GIF files. When you choose a map GIF file from the combobox it will show it in your embedded IE broswer control.
Good luck!!!
Hugh
Try this code:
**************************************************
*-- Form: form1 (c:\my documents\visualfoxproprojects\playstuff\showmap.scx)
*-- ParentClass: form
*-- BaseClass: form
*-- Time Stamp: 05/31/02 11:20:03 PM
*
DEFINE CLASS form1 AS form
Height = 371
Width = 522
DoCreate = .T.
AutoCenter = .T.
Caption = "Show Map"
Name = "Form1"
ADD OBJECT iebrowser AS olecontrol WITH ;
Top = 48, ;
Left = 24, ;
Height = 300, ;
Width = 480, ;
Name = "ieBrowser"
ADD OBJECT combo1 AS combobox WITH ;
Height = 24, ;
Left = 24, ;
Top = 12, ;
Width = 480, ;
Name = "Combo1"
PROCEDURE iebrowser.Refresh
*** ActiveX Control Method ***
nodefault
ENDPROC
PROCEDURE combo1.InteractiveChange
this.Parent.ieBROWSER.Navigate2(this.DisplayValue)
ENDPROC
PROCEDURE combo1.Init
m.MyMapFolder=GETDIR()
m.HowMany=ADIR(aMapList, m.MyMapFolder+'*.GIF')
IF m.HowMany=0
WAIT WINDOW TIME 1 'No GIF Files Found'
RETURN
ENDIF
FOR i=1 TO m.HowMany
this.AddItem(m.MyMapFolder+aMapList[i,1])
ENDFOR
ENDPROC
ENDDEFINE
*
*-- EndDefine: form1
**************************************************
Microsoft hears loudest what the VFP community says about Visual FoxPro by looking at the bottom line!
Support the product. Buy the latest version!
Hugh Winters @ WorldData 408-512-1131