• boris
  • Восстановленный участник
  • На форуме с 15 октября 2004г.
  • Сообщений: 13
  • Спасибо: 0

Тема: Как добавить названий layers на listbox?

пытаюсь добавить названий layers на listbox и не получается.
"listbox1.additem(i) = thisdrawing.layers.item(i).name"
помогите кто знает.
зарание благодарю.

  • Arkady
  • Восстановленный участник
  • На форуме с 16 марта 2002г.
  • Сообщений: 221
  • Спасибо: 0

Re: Как добавить названий layers на listbox?

call listbox1.additem(thisdrawing.layers.item(i).name)

  • boris
  • Восстановленный участник
  • На форуме с 15 октября 2004г.
  • Сообщений: 13
  • Спасибо: 0

Re: Как добавить названий layers на listbox?

извените но все равно не работает
вот мой код вчем проблема
Private Sub CommandButton1_Click()
      Dim i As Integer
      For i = 0 To ThisDrawing.Layers.Count
          ListBox1.AddItem (ThisDrawing.Layers.Item(i).Name)
         Next i
      End Sub
благодарю.

  • callisto
  • Восстановленный участник
  • На форуме с 17 июня 2004г.
  • Сообщений: 204
  • Спасибо: 0

Re: Как добавить названий layers на listbox?

зы. вопрос, конечно, высьма информативный...  :))
а не работает потому как надо писать:
for i=0 to ThisDrawing.Layers.Count - 1
...
зы. подобные ошибки весьма распостранены..., и в вашем случае следовало бы привести текст ошибки - тогда бы помощь пришла намного быстрее. :)  удачи !!!