Helo everybody,
I’ve just started trying to include WMs-Layers in my Ms-Access application - and didn’t succeed.
First the URL of the WMS-Server seems to be funny (somethings seems to be missing):
"https://www.lfu.bayern.de/gdi/wms/wasser/ueberschwemmungsgebiete?[hwgf_hqhaeufig]
Second the projection is UTM32 but tkTileProjection does not seem to offer this one…
Thirdly I tryed the following code - but nothing seem to happen (I’m quite sure I mixed everything up - maybe someone could help? - Thank you:
Dim objProvider As Object
Dim intProviderId As Integer
Set objProvider = Me.mapMain.Tiles.Providers
intProviderId = CInt(tkTileProvider.ProviderCustom) + 1
objProvider.Add intProviderId, "?berschwemmungsfl?chen", "https://www.lfu.bayern.de/gdi/wms/wasser/ueberschwemmungsgebiete?[hwgf_hqhaeufig] ", tkTileProjection.SphericalMercator, 0, 18
Me.mapMain.Tiles.ProviderId = intProviderId
Me.mapMain.Redraw