VB.Net - Interacting with Form in ArcMap

Question

I've read countless posts and other info...however I just can't wrap my head around how to have a form interact with ArcMap.
My Form has 2 list boxes.
Box #1 - lists themes in View (works fine, cuz box gets populated before form is shown)
Box #2 - lists the fields from the theme selected in box #1 (Don't know how to do this!!!)

On form load, I seem to run into issues when I run GetActiveView,GetMxDocument, etc...

Is anyone able to attach this type of small (...and I hope simple)project, to help me out??

Thanks,

NeedHelp · Answer

That was exactly what I needed!!!

Thank you very very much Ken.

ps. I think I owe you at least one 'beverage' 🙂

kenbuja · Answer

If you notice in the Form_Initialize code, it's expecting IApplication to be passed to it. Here's the OnCreate and OnClick subroutines. I'm also using a a class that sets ArcMap as the form's parent, as mentioned in this thread.

Private m_application As IApplication

Public Overrides Sub OnCreate(ByVal hook As Object)
    If Not hook Is Nothing Then
      m_application = CType(hook, IApplication)

'Disable if it is not ArcMap
      If TypeOf hook Is IMxApplication Then
        MyBase.m_enabled = True
      Else
        MyBase.m_enabled = False
      End If
    End If

' TODO:  Add other initialization code
  End Sub

Public Overrides Sub OnClick()

Dim SelectionForm As New myApp.SelectionForm

Try
      If Not SelectionForm.Form_Initialize(m_application) Then Exit Sub
      SelectionForm.ShowDialog(New Win32HWNDWrapper(m_application.hWnd))
    Catch ex As Exception
      MessageBox.Show(ex.Message, "OnClick")
    End Try
  End Sub

NeedHelp · Answer

Thanks for the quick reply Ken!!

I created a new Toolbar,command and Form.
The Form I created was called Form1, and has the same controls and names as your 2 combo boxes, and list boxes from your example.

I c&p your code. However the combo boxes don't populate (point layers are in the TOC).
(modified your code from "Friend Fucntion Form_Initialize" to "Friend Function Form1_Initialize")

What is the code you used to call the form?
Mine is:
Public Overrides Sub OnClick()
        Dim theform As New Form1
        theform.ShowDialog()
    End Sub

Again thanks for any help/assistance you can provide.