Просмотр таблицы в VB

Question

Покажите, пожалуйста, пример использования   ITableView.show    в VB

Answer 1

Sub TableView()

   Dim pTV As ITableView
   Dim pTable As ITable
   Dim pFL As IFeatureLayer
   Dim mxd As IMxDocument
  
   Set mxd = ThisDocument
   Set pFL = mxd.FocusMap.Layer(0)
   Set pTable = pFL.FeatureClass
   Set pTV = New TableView
   Set pTV.Table = pTable
  
   Dim tr As tagRECT
  
   tr.bottom = 200
   tr.Top = 0
   tr.Left = 0
   tr.Right = 400
   pTV.Show 0, tr, True
End Sub

Answer 2

Спасибо. Так я делал. Окошко, якобы с таблицей, мелькает на мгновение и пропадает. А после выхода из программы и Basic вылетает.

Answer 3

Окошко действительно с таблицей, но оно мелькает и пропадает, из за кода:

Sub TableView()
   Dim pTV As ITableView

pTV - у нас определен как локальная переменная, поэтому при выходе из функций объект автоматический уничтожается. вытащи его как глобальную, и таблица будет висеть ну очень долго!  пока не уничтожишь объект вручную!

вот плохой пример использования ITableView:

C:\arcgis\arcexe83\ArcObjects Developer Kit\Samples\Editing\Working with Tables\Table Editor

Answer 4

      И за это спасибо!

Собаку, наверное, уже съел на этих объектах и, наверное, знаешь, как создавать такие объекты в Delphi. New() выдает Incompatable type.

 

Answer 5

ArcObjects - полностью построен на COM технологий (ActiveX и всякая хр.), т.е. это не объекты, классы что на Си, Паскаль, - это что то другое, неудобно выражаться тут... И использование ArcObjects на Си, Паскаль онанизм без конца... Намного легче освоить VB и писать на нем (VB построен по СОМ). Как говорят, "человек за три дня привыкает и к аду", так и VB привыкаешь оказывается... (я 15 лет писал на паскаль, 10 на Си++)