Latest Contributions by KenBuja

I use a popup window in my sites to open a page that contains information about the project. Here's an example This is the code I use to open the popup (which is called in the creationComplete event) and the mxml code for the window itself.             private var popWelcome:WelcomePopup = new WelcomePopup;             protected function creationCompleteHandler(event:FlexEvent):void             {                                 PopUpManager.addPopUp(popWelcome, this, true, PopUpManagerChildList.POPUP);                 PopUpManager.centerPopUp(popWelcome);                 //              more initialization code                             } // WelcomePopup.mxml code <?xml version="1.0" encoding="utf-8"?> <s:TitleWindow xmlns:fx="http://ns.adobe.com/mxml/2009"                xmlns:s="library://ns.adobe.com/flex/spark"                xmlns:mx="library://ns.adobe.com/flex/mx"                title="About" close="closePopup();"                width="500" height="500" cornerRadius="5">     <fx:Script>         <=!=[=C=D=A=T=A=[             import mx.events.CloseEvent;             import mx.managers.PopUpManager;             protected function closePopup():void             {                 PopUpManager.removePopUp(this);             }             protected function openNewBrowser(url:String):void             {                 var urlRequest:URLRequest = new URLRequest(url);                 navigateToURL(urlRequest, "_blank");             }         ]=]=>     </fx:Script>     <fx:Declarations>         <!-- Place non-visual elements (e.g., services, value objects) here -->     </fx:Declarations>     <s:VGroup width="100%" height="100%" horizontalAlign="center">         <mx:Spacer height="10"/>         <s:TabBar id="tabs" dataProvider="{vs}"/>         <mx:ViewStack id="vs" width="100%" height="100%">             <s:NavigatorContent label="Welcome" width="100%" height="100%">                 <s:VGroup width="100%" height="100%" horizontalAlign="center">                     <s:TextArea id="ta1" width="80%" height="100%" textAlign="left" borderAlpha="0" paddingLeft="10" paddingRight="10" paddingTop="25" paddingBottom="10">                         <s:textFlow>                             <s:TextFlow>                                 <!--<s:p>Welcome to the Long Island Sound Benthic Mapping Project Spatial Prioritization Tool. As part of an                                     ongoing effort to refine and implement a Benthic Habitat Mapping initiative for Long Island Sound, we                                     are asking for your participation to help guide upcoming data collection. This portal contains a                                     collection of existing data to assist you in determining whether an area is important and why, but                                     should not be considered as the only factors for consideration. It is expected that you or your                                     organization may have additional knowledge - this can and should be used in your evaluation as well.                                     This portal, in conjunction with the PDF Prioritization Form, will be used to capture the information                                     needs of your program and others to create a consensus of where future activities should be focused                                     within the Sound.</s:p>-->                                 <s:p> </s:p>                                 <s:p>To turn on the individual data layers, click the arrow next to each thematic group to show the                                     layers. Check the data layers to make them visible. You can also change the underlying map by clicking                                     on one of the four options (OSM/Streets/Topo/Imagery) in the upper right corner.</s:p>                                 <s:p> </s:p>                                    <s:p>To identify the data for a given location, make sure the data layers are turned on, then click                                     on the map. A results box will appear with each data themes listed in an individual data tab.                                     Click a tab to reveal the information for your layer of choice.</s:p>                                 <s:p> </s:p>                                 <s:p>NOTE: The more layers you have turned on, the longer it will take to return the results, so you may need to be patient. </s:p>                             </s:TextFlow>                         </s:textFlow>                     </s:TextArea>                                     </s:VGroup>                            </s:NavigatorContent>             <s:NavigatorContent label="Contact" width="100%" height="100%">                 <s:VGroup width="100%" height="100%" horizontalAlign="center" gap="-1">                     <mx:Spacer height="10"/>                     <mx:Text text="For help or comments please contact:"/>                     <s:VGroup width="100%" height="20%" gap="-5" horizontalAlign="center">                         <mx:Text text="Dan Dorfman"/>                         <mx:Text text="301-713-3028 x112"/>                         <mx:Text condenseWhite="true">                             <mx:htmlText>                                 <=!=[=C=D=A=T=A=[                                 <font color="0x0088d8"><u><a href='mailto:dan.dorfman@noaa.gov'>Dan.Dorfman@noaa.gov</a></u></font>                                 ]=]=>                             </mx:htmlText>                         </mx:Text>                                                        </s:VGroup>                     <!--<mx:Image source="assets/deplogo1-99x100.gif" click="openNewBrowser('http://www.ct.gov/dep/site/default.asp');" buttonMode="true"/>-->                     <mx:Spacer height="20"/>                     <mx:Text condenseWhite="true" fontSize="12" fontWeight="bold">                         <mx:htmlText>                             <=!=[=C=D=A=T=A=[                             <a href='http://ccma.nos.noaa.gov/about/biogeography/' target='_blank'>NOAA's Biogeography Branch</a>                             ]=]=>                         </mx:htmlText>                     </mx:Text>                     <mx:Image source="assets/logo_100.gif" click="openNewBrowser('http://www.noaa.gov');" buttonMode="true"/>                 </s:VGroup>             </s:NavigatorContent>         </mx:ViewStack>                 <s:VGroup horizontalAlign="center">             <mx:Text condenseWhite="true">                 <mx:htmlText>                     <=!=[=C=D=A=T=A=[                         <font size="9"><p align="center">                         <a href='http://www.commerce.gov/' target='_blank'>DOC</a> |                         <a href='http://www.noaa.gov/' target='_blank'>NOAA</a> |                         <a href='http://oceanservice.noaa.gov/' target='_blank'>NOS</a> |                         <a href='http://coastalscience.noaa.gov/' target='_blank'>NCCOS</a> |                         <a href='http://coastalscience.noaa.gov/notices/disclaimer.aspx' target='_blank'>Disclaimer</a> |                         <a href='http://oceanservice.noaa.gov/privacy.html' target='_blank'>Privacy Policy</a> <br>                         <a href='http://ccma.nos.noaa.gov//' target='_blank'>Web site owner: Center for Coastal Monitoring and Assessment</a>                         </p></font>                     ]=]=>                 </mx:htmlText>                        </mx:Text>         </s:VGroup>                          <s:Button label="OK" click="closePopup();"/>         <mx:Spacer height="10"/>     </s:VGroup>               </s:TitleWindow> ... View more

Have you put a Try..Catch block in your  New sub code to see what's going wrong? ... View more

    Friend Sub CreateRenderer()         Dim FieldInfo() As Object         Dim IsOK As Boolean         Dim ItemCount As Integer = 0         Dim ItemList() As Object         Dim LegendText As String         Dim pBlack As ESRI.ArcGIS.Display.IRgbColor = New ESRI.ArcGIS.Display.RgbColor         Dim pLineColorEnum As ESRI.ArcGIS.Display.IEnumColors         Dim pLineSym As ESRI.ArcGIS.Display.ISimpleLineSymbol = New ESRI.ArcGIS.Display.SimpleLineSymbol         Dim pLineUVRenderer As ESRI.ArcGIS.Carto.IUniqueValueRenderer = New ESRI.ArcGIS.Carto.UniqueValueRenderer         Dim pPink As ESRI.ArcGIS.Display.IRgbColor = New ESRI.ArcGIS.Display.RgbColor         Dim pPointColorEnum As ESRI.ArcGIS.Display.IEnumColors         Dim pPointSym As ESRI.ArcGIS.Display.ISimpleMarkerSymbol = New ESRI.ArcGIS.Display.SimpleMarkerSymbol         Dim pPointUVRenderer As ESRI.ArcGIS.Carto.IUniqueValueRenderer = New ESRI.ArcGIS.Carto.UniqueValueRenderer         Dim pPolygonColorEnum As ESRI.ArcGIS.Display.IEnumColors         Dim pPolygonOutline As ESRI.ArcGIS.Display.ISimpleLineSymbol = New ESRI.ArcGIS.Display.SimpleLineSymbol         Dim pPolygonSym As ESRI.ArcGIS.Display.ISimpleFillSymbol = New ESRI.ArcGIS.Display.SimpleFillSymbol         Dim pPolygonUVRenderer As ESRI.ArcGIS.Carto.IUniqueValueRenderer = New ESRI.ArcGIS.Carto.UniqueValueRenderer         Dim pRColorRamp As ESRI.ArcGIS.Display.IColorRamp = New ESRI.ArcGIS.Display.RandomColorRamp         Dim pRed As ESRI.ArcGIS.Display.IRgbColor = New ESRI.ArcGIS.Display.RgbColor         Try             For Each Key As Object In theDict.Keys                 If IsNumeric(Key) Then ItemCount += 1                 If CStr(Key) = "HDX.Field0" Then FieldInfo = theDict.Item(Key)             Next             pRColorRamp.Size = ItemCount             pRColorRamp.CreateRamp(IsOK)             If Not IsOK Then                 System.Windows.Forms.MessageBox.Show("There was a  problem in creating the legends for this scheme.", "No legends created",  Windows.Forms.MessageBoxButtons.OK,  Windows.Forms.MessageBoxIcon.Warning)                 Exit Sub             End If             pPointColorEnum = pRColorRamp.Colors             pLineColorEnum = pRColorRamp.Colors             pPolygonColorEnum = pRColorRamp.Colors             pBlack.RGB = RGB(0, 0, 0)             pRed.RGB = RGB(255, 0, 0)             pPink.RGB = RGB(255, 190, 232)             pPointSym.Color = pRed             pPointSym.Size = 6             pPointSym.Style = ESRI.ArcGIS.Display.esriSimpleMarkerStyle.esriSMSX             With pPointUVRenderer                 .FieldCount = 1                 .Field(0) = FieldInfo(1)                 .DefaultLabel = "Incorrectly classified"                 .DefaultSymbol = pPointSym                 .UseDefaultSymbol = True             End With             pLineSym.Color = pRed             pLineSym.Width = 2             pLineSym.Style = ESRI.ArcGIS.Display.esriSimpleLineStyle.esriSLSDash             With pLineUVRenderer                 .FieldCount = 1                 .Field(0) = FieldInfo(1)                 .DefaultLabel = "Incorrectly classified"                 .DefaultSymbol = pLineSym                 .UseDefaultSymbol = True             End With             pPolygonOutline.Color = pRed             pPolygonOutline.Width = 2             pPolygonSym.Color = pPink             pPolygonSym.Outline = pPolygonOutline             With pPolygonUVRenderer                 .FieldCount = 1                 .Field(0) = FieldInfo(1)                 .DefaultLabel = "Incorrectly classified"                 .DefaultSymbol = pPolygonSym                 .UseDefaultSymbol = True             End With             For Each Key As Object In theDict.Keys                 If IsNumeric(Key) Then                     pPointSym = New ESRI.ArcGIS.Display.SimpleMarkerSymbol                     pPointSym.Color = pPointColorEnum.Next                     pPointSym.Size = 6                     pPointSym.Style = ESRI.ArcGIS.Display.esriSimpleMarkerStyle.esriSMSCircle                     pLineSym = New ESRI.ArcGIS.Display.SimpleLineSymbol                     pLineSym.Color = pLineColorEnum.Next                     pLineSym.Width = 0.4                     pPolygonSym = New ESRI.ArcGIS.Display.SimpleFillSymbol                     pPolygonOutline = New ESRI.ArcGIS.Display.SimpleLineSymbol                     pPolygonSym.Color = pPolygonColorEnum.Next                     pPolygonOutline.Color = pBlack                     pPolygonOutline.Width = 0.4                     pPolygonSym.Outline = pPolygonOutline                     ItemList = theDict.Item(Key)                     LegendText = ""                     For i As Integer = 1 To ItemList.GetUpperBound(0)                         LegendText = LegendText & ItemList(i) & " | "                     Next                     LegendText = Left(LegendText, Len(LegendText) - 3)                     With pPointUVRenderer                         .AddValue(Key, "Description", pPointSym)                         .Label(Key) = LegendText                         .Symbol(Key) = pPointSym                     End With                     With pLineUVRenderer                         .AddValue(Key, "Description", pLineSym)                         .Label(Key) = LegendText                         .Symbol(Key) = pLineSym                     End With                     With pPolygonUVRenderer                         .AddValue(Key, "Description", pPolygonSym)                         .Label(Key) = LegendText                         .Symbol(Key) = pPolygonSym                     End With                 End If             Next             If theDict.ContainsKey("HDX.Point Legend") Then theDict.Remove("HDX.Point Legend")             theDict.Add("HDX.Point Legend", pPointUVRenderer)             If theDict.ContainsKey("HDX.Line Legend") Then theDict.Remove("HDX.Line Legend")             theDict.Add("HDX.Line Legend", pLineUVRenderer)             If theDict.ContainsKey("HDX.Polygon Legend") Then theDict.Remove("HDX.Polygon Legend")             theDict.Add("HDX.Polygon Legend", pPolygonUVRenderer)         Catch ex As Exception             System.Windows.Forms.MessageBox.Show(ex.ToString, "CreateRenderer")         End Try     End Sub ... View more

Here's code I'm using in my Editor Extension that will apply a new renderer to a layer and it correctly updates the TOC and map. This extension allows you to create a classification scheme that can be used in point, line, or polygon datasets, so I'm creating a unique value renderer for each type. This way, the color selection will be the same for each dataset it's applied to. I'm storing the renderer information in a dictionary (theDict), which also contains information about all the different of values that are used in the classification scheme. These are stored as numeric keys within the dictionary. This code for the first routine is shown below. The code for CreateRenderer will be in the following post. However, I am having a problem with another associated script that creates a new feature class and applies the renderer to it. I'm using the same logic as in this script, but it's not updating the TOC.     Protected Overrides Sub OnClick()         Dim pCV As ESRI.ArcGIS.ArcMapUI.IContentsView         Dim pGFLayer As ESRI.ArcGIS.Carto.IGeoFeatureLayer         Dim pLayer As ESRI.ArcGIS.Carto.ILayer         Dim pRPPage As ESRI.ArcGIS.CartoUI.IRendererPropertyPage         Dim pSet As ESRI.ArcGIS.esriSystem.ISet = New ESRI.ArcGIS.esriSystem.Set         Dim ShapeType As String         Try             If Not theDict.ContainsKey("HDX.Point Legend") Then CreateRenderer()             pCV = My.ArcMap.Document.CurrentContentsView             If TypeOf pCV.SelectedItem Is ESRI.ArcGIS.Carto.IGeoFeatureLayer Then                 pGFLayer = pCV.SelectedItem                 If pGFLayer.FeatureClass.ShapeType = ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryPoint Then                     ShapeType = "Point"                 ElseIf pGFLayer.FeatureClass.ShapeType = ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryPolyline Then                     ShapeType = "Line"                 ElseIf pGFLayer.FeatureClass.ShapeType = ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryPolygon Then                     ShapeType = "Polygon"                 Else                     Exit Sub                 End If                 pGFLayer.Renderer = theDict.Item("HDX." & ShapeType & " Legend")                 pRPPage = New ESRI.ArcGIS.CartoUI.UniqueValuePropertyPage                 pGFLayer.RendererPropertyPageClassID = pRPPage.ClassID             ElseIf TypeOf pCV.SelectedItem Is ESRI.ArcGIS.esriSystem.ISet Then                 pSet = pCV.SelectedItem                 pLayer = pSet.Next                 Do Until pLayer Is Nothing                     If TypeOf pLayer Is ESRI.ArcGIS.Carto.IGeoFeatureLayer Then                         pGFLayer = pLayer                         If pGFLayer.FeatureClass.ShapeType = ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryPoint Or pGFLayer.FeatureClass.ShapeType = ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryPolyline Or pGFLayer.FeatureClass.ShapeType = ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryPolygon Then                             If pGFLayer.FeatureClass.ShapeType = ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryPoint Then                                 ShapeType = "Point"                             ElseIf pGFLayer.FeatureClass.ShapeType = ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryPolyline Then                                 ShapeType = "Line"                             ElseIf pGFLayer.FeatureClass.ShapeType = ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryPolygon Then                                 ShapeType = "Polygon"                             Else                                 Exit Sub                             End If                             pGFLayer.Renderer = theDict.Item("HDX." & ShapeType & " Legend")                             pRPPage = New ESRI.ArcGIS.CartoUI.UniqueValuePropertyPage                             pGFLayer.RendererPropertyPageClassID = pRPPage.ClassID                         End If                     End If                     pLayer = pSet.Next                 Loop             End If             My.ArcMap.Document.ActiveView.ContentsChanged()             My.ArcMap.Document.UpdateContents()             My.ArcMap.Document.ActiveView.Refresh()         Catch ex As Exception             System.Windows.Forms.MessageBox.Show(ex.ToString, "Create Legend error")         End Try     End Sub ... View more

You'll need to instantiate a new form the line myFrmMain = New frmMain to get a new form to show...but your logic is correct. The next thing to look at is the code in your form. Do you have any code in the New sub? In my forms, I have a function that does all the initialization work to get the form ready to show (InitializeForm), such as adding all the feature layers in a map to a combobox. Here's an example: Public Class CompatibilityForm     Private pEnumLayers As ESRI.ArcGIS.Carto.IEnumLayer     Private pLayer As ESRI.ArcGIS.Carto.ILayer2     Public Function InitializeForm() As Boolean         Try             pEnumLayers = My.ArcMap.Document.FocusMap.Layers             pLayer = pEnumLayers.Next             Do Until pLayer Is Nothing                 If pLayer.Valid Then                     If TypeOf pLayer Is ESRI.ArcGIS.Carto.IFeatureLayer Then cboLayer.Items.Add(pLayer.Name)                 End If                 pLayer = pEnumLayers.Next             Loop             Return True         Catch ex As Exception             System.Windows.Forms.MessageBox.Show(ex.ToString, "Compatibility Form: InitializeForm")             Return False         End Try     End Function ' more form code End Class And I call it with the lines         Dim NewCompForm As New CompatibilityForm         If NewCompForm.InitializeForm Then NewCompForm.ShowDialog() ... View more

I'm developing add-ins on a Win 7 64 bit computer and don't have any problems with opening forms. Do you have any code in the form initialization routine? ... View more

These are the references I'm using for my application where that code originally came from [ATTACH=CONFIG]13671[/ATTACH] ... View more

Try using the fully qualified name as in the code Using releaser As New ESRI.ArcGIS.ADF.ComReleaser And when marking a question as answered, you should really mark the post that supplied the correct answer, not the original question 🙂 ... View more

You have to add in the correct reference for the ADF assembly. You can't find it by using "Add ArcGIS Reference", but instead, use the Add Reference, select the .NET tab, and select ESRI.ArcGIS.ADF.Connection.Local And don't forget to mark this question as answered. ... View more

Take a look at these topics in the help about connecting to a geodatabase and opening a table ... View more

After you add that snippet to your code, use something similar to this IDataset pDataset = default(IDataset); ICompositeLayer pCompositeLayer = default(ICompositeLayer); ISpatialReference pSR = default(ISpatialReference); if (layer is ICompositeLayer) {     pCompositeLayer = layer;     for (l = 0; l <= pCompositeLayer.Count - 1; l++) {         pDataset = pCompositeLayer.Layer(l);         pSR = GetSpatialReferenceFromDataset(pDataset);         if (pSR != null)             MessageBox.Show("the spatial reference of the layer is :" + pSR.Name);     } } else {     pDataset = layer;     pSR = GetSpatialReferenceFromDataset(pDataset);     if (pSR != null)         MessageBox.Show("the spatial reference of the layer is :" + pSR.Name); } ... View more

If you look at the help about ILayer::SpatialReference, you'll see that lets you set the property but not get it (i.e. you can't get information about it directly). There's a snippet called "Get Spatial Reference from Dataset" that will return the spatial reference. You'll be able to get its name from that. ... View more

Take a look at this post over in GIS.StackExchange and Derek Swingley's response. ... View more

Look at MSDN help for the full documentation, but here's an example of how I use it. Here, I have already added the StatusStrip (StatusStrip1) to the form. Unfortunately, this example doesn't do anything with a progress bar, but that can also be added. 'form initialization subroutine             StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {toolStripStatusLabel1})             StatusStrip1.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.HorizontalStackWithOverflow             StatusStrip1.Location = New System.Drawing.Point(0, 0)             StatusStrip1.Name = "statusStrip1"             StatusStrip1.ShowItemToolTips = True             StatusStrip1.Size = New System.Drawing.Size(292, 22)             StatusStrip1.Text = "statusStrip1"             toolStripStatusLabel1.Name = "toolStripStatusLabel1"             toolStripStatusLabel1.Size = New System.Drawing.Size(109, 17)             toolStripStatusLabel1.Text = "toolStripStatusLabel1"             StatusStrip1.Visible = False 'processing code         Try             StatusStrip1.Visible = True             toolStripStatusLabel1.Text = "Starting"             StatusStrip1.Refresh()             'more code             toolStripStatusLabel1.Text = "Processing layer " & pLayer.Name             StatusStrip1.Refresh()             'more code         Catch ex As Exception             System.Windows.Forms.MessageBox.Show(ex.ToString, "Run")         Finally               StatusStrip1.Visible = False 'Make it invisible when finished or in case the process crashes early         End Try ... View more