Проблема со шрифтом

Question

Помогите пожалуйста, в программе на Visual Basic,

я подгружаю слой с населенными пунктами, вывожу на экран

с помощью LabelRenderer , на экране появляется этот слой,

но вместо русских букв, появляется "птичья грамота", вот код

какой charset мне поставить.

  Set ly = Map1.Layers("center")
  ly.Symbol.Color = moCyan
  Set ly.Renderer = New LabelRenderer
  ly.Renderer.DrawBackground = True
  ly.Renderer.Field = "Name1_"
  Set sym = ly.Renderer.Symbol(0)
  Dim txtFont As New StdFont
  txtFont.Name = "arial"
  txtFont.Bold = False
  txtFont.Charset = ???
  sym.Font = txtFont

Что сделать чтобы на экране правильно отражались буквы?

 

Answer 1

Привіт !
В мене теж була ця проблема, я попробував ввести цей код

Set ly = Map1.Layers("street")
ly.Symbol.Color = moCyan
Set ly.Renderer = New LabelRenderer
ly.Renderer.DrawBackground = False
ly.Renderer.Field = "STREET"
ly.Renderer.FittedField = "HEIGHT"
ly.Renderer.HeightField = "HEIGHT"
Set sym = ly.Renderer.Symbol(0)
Dim txtFont As New StdFont
txtFont.Name = "Times"

sym.Font = txtFont

Якщо вдалося то напиши мені!

Answer 2

А ларчик просто открівался....

Пишем следующее

Set ly.Records.TableDesc.CodePage = moAnsiCodePage

И усе... Все читается....

Answer 3

у меня экспортированный с геомедия шейп файлы, где имена полей названы по русский. вот они, имена полей, показываются иероглифами а значения нормально. где копать?