Привет опять. Кэш не создаётся, пока карта в первый раз не нарисуется, а визуального интерфейса у меня нет. Поэтому рисую 1 пиксель в поток и сразу его убиваю. Есть ли более простой способ?
Dim stm
Set stm = CreateObject("ADODB.Stream")
stm.Type = adTypeBinary
stm.Mode = adModeWrite
stm.Open
MapDoc.DrawToStream 1, 1, 0, 0, 50, 0, stm
stm.Close
Dim stm
Set stm = CreateObject("ADODB.Stream")
stm.Type = adTypeBinary
stm.Mode = adModeWrite
stm.Open
MapDoc.DrawToStream 1, 1, 0, 0, 50, 0, stm
stm.Close