Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Showing a city map
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Photos et traitement d'images
Divers
Thread ID:
00662867
Message ID:
00663774
Vues:
14
>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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform