|
|
| GeoCommunity Mailing List |
| |
| Mailing List Archives |
| Subject: | [gislist] Cannot zoom map out by MapObjectLT and VB6 |
| Date: |
01/19/2004 10:20:01 PM |
| From: |
Yvette Tang |
|
|
Dear Gis listers,
I am using VB and MapObjectLt to zoom the map out. But there are no =
effects on it while I can zoom it in.
The procedure to do this is as following:
Private Sub uf_zoom(ByVal scal As Double)
=20
Dim rect As mapobjects2.Rectangle
=20
Set rect =3D Map1.Extent
=20
rect.ScaleRectangle (scal)
Set Map1.Extent =3D rect
=20
End Sub
When zoom in, I pass the parameter 0.5.
When zoom out, I pass the parameter 2.
I just guess if I need to set some property of Map1 first.
Please recommand some methods to deal with the problem
Thanks a lot.
Regards,
Yvette
_______________________________________________
gislist mailing list
gislist@lists.geocomm.com
http://lists.geocomm.com/mailman/listinfo/gislist
_________________________________
This list is brought to you by
The GeoCommunity
http://www.geocomm.com/
Get Access to the latest GIS & Geospatial Industry RFPs and bids
http://www.geobids.com
|
|
Sponsored by:
For information
regarding
advertising rates
Click Here!
|
