Thanks Mody. I already had the following in before any calls to ArcObjects:
..
If Not RuntimeManager.Bind(ProductCode.Desktop) Then
MessageBox.Show("Could not bind to Desktop")
End If
I do not get the message box. The software runs until the first call to an ArcObject after this "If" statement then I get the Initialization-error box?
A bit more info might help:
The ArcObjects call routine that produces the initialization error window and no exception is:
Try
pBaseDEMFac = New RasterWorkspaceFactory
pBaseDEMRW = pBaseDEMFac.OpenFromFile(System.IO.Path.GetDirectoryName(strBaseDEM), 0)
pBaseDEMDataset3 = pBaseDEMRW.OpenRasterDataset(System.IO.Path.GetFileName(strBaseDEM))
' Got it open so write it to registry...
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\SOFTWARE\Civil War\Hidden Height", "BaseRaster", strBaseDEM)
Catch ex As Exception
If (MessageBox.Show("Unable to open Input Base DEM raster. Need additional help?", "Hidden Height", MessageBoxButtons.YesNo, MessageBoxIcon.Error)) = Windows.Forms.DialogResult.Yes Then
frmDiaExtraHelp.rtfExtraHelp.Text = strOpenError
frmDiaExtraHelp.ShowDialog()
End If
End Try
When I skip around the above Try to the next ArcObject I do get an exception but no initialization error box:
Try
pSFFactory = New ShapefileWorkspaceFactory
'strShapeDir = System.IO.Path.GetDirectoryName(strShape)
pSFFeatureWorkspace = pSFFactory.OpenFromFile(System.IO.Path.GetDirectoryName(strShape), 0)
strTestDir = System.IO.Path.GetDirectoryName(strShape)
pShapeFile = pSFFeatureWorkspace.OpenFeatureClass(System.IO.Path.GetFileName(strShape))
Catch ex As Exception
If (MessageBox.Show("Unable to open Input observation points Shapefile. Need additional help?", "Hidden Height", MessageBoxButtons.YesNo, MessageBoxIcon.Error)) = Windows.Forms.DialogResult.Yes Then
frmDiaExtraHelp.rtfExtraHelp.Text = strOpenError
frmDiaExtraHelp.ShowDialog()
End If
Exit Sub
End Try
I used model builder to test a raster copy tool from the toolbox and that worked just fine. So, I'm obviously missing something in converting the VB software since it worked just fine in my old versions of both Visual Studio and ArcMap.
Took me a few days but I finally figured out what the simple "Initialization Error" windows was trying to tell me. When I added licence checking there was a second screen that I neglected to add a check mark indicating my selection of a basic, standard or advanced (as I remember) application. I clicked on advanced and it took off executing several arobjects before failing on a geoprocessing call of Extract raster by mask. I'll work on that now..
