Archived Forums

Dim pDialog As IGxDialog
  Set pDialog = New GxDialog
  Dim pFilter As New GxFilterDatasets
  Set pDialog.ObjectFilter = pFilter
  Dim pEnumGX As IEnumGxObject
  Dim blnflg As Boolean
  
  pDialog.Title = "Add Layer"
  pDialog.AllowMultiSelect = True
  pDialog.StartingLocation = "C:\Program Files\ArcGIS\DeveloperKit\samples\data\arcgis_engine_developer_guide\data"
  blnflg = pDialog.DoModalOpen(0, pEnumGX)
  
  If blnflg = False Then Exit Sub
  
  'Reset Enum so we are at the start
  pEnumGX.Reset

  'Get first object
  Dim pGXObject As IGxObject
  Set pGXObject = pEnumGX.Next
  
  Do While Not pGXObject Is Nothing

    'Query interface for IGxDataset interface
    Dim pDataSet As IDataset
    Dim pFeatureLayer As IFeatureLayer
    Dim pRasterLayer As IRasterLayer
    Dim pLayer As ILayer
    Dim pGxDataset As IGxDataset
    
    If TypeOf pGXObject Is IGxDataset Then
      Set pGxDataset = pGXObject
      Set pDataSet = pGxDataset.Dataset
        If TypeOf pDataSet Is IFeatureClass Then
          Set pFeatureLayer = New FeatureLayer
          Set pFeatureLayer.FeatureClass = pDataSet
          pFeatureLayer.Name = pDataSet.Name
           Set pLayer = pFeatureLayer
        ElseIf TypeOf pDataSet Is IRasterDataset Then
          Set pRasterLayer = New RasterLayer
          pRasterLayer.CreateFromDataset pDataSet
          pRasterLayer.Name = pDataSet.Name
          Set pLayer = pRasterLayer
        Else
          MsgBox "You must select a feature class or raster.", vbOKOnly, "Add Layer"
          Exit Sub
        End If
      MapControl1.AddLayer pLayer, MapControl1.LayerCount
    Else
      MsgBox "You must select a feature class or raster.", vbOKOnly, "Add Layer"
      Exit Sub
    End If
    Set pGXObject = pEnumGX.Next
    
  Loop

using System;
using System.Runtime.InteropServices;
using System.Drawing;
using ESRI.ArcGIS.Framework;
using ESRI.ArcGIS.Utility.BaseClasses;
using ESRI.ArcGIS.Utility.CATIDs;
using ESRI.ArcGIS.ControlCommands;
using ESRI.ArcGIS.CatalogUI;
using ESRI.ArcGIS.Catalog;
using ESRI.ArcGIS.Carto;
using ESRI.ArcGIS.Geodatabase;
using ESRI.ArcGIS.MapControl;


namespace OurCustomCommands
{
	/// <summary>
	/// Provide a browser dialog that will allow users to add additional layers
	/// </summary>
	//[ClassInterface(ClassInterfaceType.None)]
	[Guid("05a2625a-5b7d-405b-a432-983090f123a6")]
	public sealed class AddData : BaseCommand
	{
		private IHookHelper myHookHelper;
		private IGxDialog pDialog;
		private Bitmap pBitmap;
		
		// Needed to clear up the Hbitmap unmanaged resource
		[System.Runtime.InteropServices.DllImport("gdi32.dll")]
		static extern bool DeleteObject(IntPtr hObject);

		public AddData()
		{
			myHookHelper = new HookHelperClass();
			pBitmap = new Bitmap(this.GetType().Assembly.GetManifestResourceStream("OurCustomCommands.AddData.bmp"));

			this.m_caption = "Add Data";
			this.m_category = "Custom Controls";
			this.m_message = "Provides browser for selecting layers to add";
			this.m_toolTip = "Add Data";
			this.m_name = "AddData";
			this.m_bitmap = pBitmap;
		}
		
		~AddData()	//CLASS DESTRUCTOR
		{
			// Must de-allocate the UI resources with Windows.DeleteObject
			if (pBitmap.GetHbitmap().ToInt32() != 0)
			{
				DeleteObject(pBitmap.GetHbitmap());
			}
			Marshal.ReleaseComObject(myHookHelper);
		}
	
		public override void OnClick()
		{
			pDialog = new GxDialogClass();
			pDialog.Title = "Add Data To Map";
			pDialog.AllowMultiSelect = true;
			
			// AN UNDOCUMENTED WAY OF SETTING THIS PROPERTY SINCE
			// THE DOCUMENTED WAY DOESN'T WORK IN C#
			object pPath = @"C:\Program Files\ArcGIS\DeveloperKit\samples\data\arcgis_engine_developer_guide\data";
			pDialog.set_StartingLocation(ref pPath);
			
			IGxObjectFilter pGxFilter;
			pGxFilter = new GxFilterFeatureClassesClass();
			pDialog.ObjectFilter = pGxFilter;

			IEnumGxObject enumGObj;
						
			if ((bool)pDialog.DoModalOpen(0, out enumGObj))
			{
				IFeatureLayer pFLayer;
				ILayer pLayer;
				IGxDataset pGxDataset;

				enumGObj.Reset();
				pGxDataset = (IGxDataset)enumGObj.Next();
				
				while(pGxDataset!=null)
				{
					pFLayer = new FeatureLayerClass();
					
					pFLayer.FeatureClass = (IFeatureClass)pGxDataset.Dataset;
					pFLayer.Name = pFLayer.FeatureClass.AliasName;
					
					pLayer = pFLayer;

					myHookHelper.ActiveView.FocusMap.AddLayer(pLayer);

					pGxDataset = (IGxDataset)enumGObj.Next();
				}
				myHookHelper.ActiveView.Refresh();
			}
		}
	
		public override void OnCreate(object hook)
		{
			myHookHelper.Hook = hook;
		}

		#region "Component Category Registration"
		[ComRegisterFunction()]
		static void Reg(string regKey)
		{
			ControlsCommands.Register(regKey);
		}

		[ComUnregisterFunction()]
		static void Unreg(string regKey)
		{
			ControlsCommands.Unregister(regKey);
		}
		#endregion


	}
}

public override void OnClick()
        {
            //ESRI.ArcGIS.Carto.IActiveView activeView;
            IActiveView pActiveView = (IActiveView)m_hookHelper.FocusMap;
            //activeView = GetActiveViewFromArcMap(m_application);
            ESRI.ArcGIS.DataSourcesGDB.AccessWorkspaceFactory GDBFactory = new ESRI.ArcGIS.DataSourcesGDB.AccessWorkspaceFactory();
            IWorkspace pFactory = (IWorkspace)GDBFactory.OpenFromFile(Properties.Settings.Default.DbPath, 0);
            IFeatureWorkspace pWorkspace = (IFeatureWorkspace)pFactory;

            IFeatureLayer pFLayer;
            ILayer pLayer;
            pFLayer = new FeatureLayerClass();
            pFLayer.Name = "Mezzi_Pubblicitari";
            pFLayer.DataSourceType = "Personal Geodatabase Feature Class";
            

            pLayer = pFLayer;
           
            m_hookHelper.ActiveView.FocusMap.AddLayer(pLayer);
m_hookHelper.ActiveView.Refresh();
            
        }