|
POST
|
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
04-27-2012
07:58 AM
|
0
|
0
|
510
|
|
POST
|
Have you put a Try..Catch block in your New sub code to see what's going wrong?
... View more
04-26-2012
06:15 AM
|
0
|
0
|
1947
|
|
POST
|
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
04-26-2012
06:11 AM
|
0
|
0
|
2402
|
|
POST
|
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
04-26-2012
06:10 AM
|
0
|
0
|
2402
|
|
POST
|
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
04-26-2012
04:57 AM
|
0
|
0
|
1947
|
|
POST
|
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
04-25-2012
09:15 AM
|
0
|
0
|
1947
|
|
POST
|
These are the references I'm using for my application where that code originally came from [ATTACH=CONFIG]13671[/ATTACH]
... View more
04-19-2012
06:44 AM
|
0
|
0
|
1955
|
|
POST
|
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
04-19-2012
04:57 AM
|
0
|
0
|
1955
|
|
POST
|
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
04-18-2012
12:17 PM
|
0
|
0
|
1955
|
|
POST
|
Here's the code I use in one of my applications. It uses the Geoprocessing task "Feature Class to Feature Class" Friend Function ExportSelectedFeatures(ByVal pFClass As ESRI.ArcGIS.Geodatabase.IFeatureClass, ByVal Query As String, ByVal OutPath As String, ByVal OutFC As String) As ESRI.ArcGIS.Geodatabase.IFeatureClass Dim CopyFC2FC As New ESRI.ArcGIS.ConversionTools.FeatureClassToFeatureClass Dim Result As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2 Try Using releaser As New ESRI.ArcGIS.ADF.ComReleaser releaser.ManageLifetime(CopyFC2FC) CopyFC2FC.in_features = pFClass CopyFC2FC.where_clause = Query CopyFC2FC.out_path = OutPath CopyFC2FC.out_name = OutFC Result = RunTool(CopyFC2FC, Nothing, True) If Result Is Nothing Then Return Nothing Return ReturnObjectfromResult(Result, "Feature Class") End Using Catch ex As Exception System.Windows.Forms.MessageBox.Show(ex.ToString & vbNewLine & ex.StackTrace.ToString, "Export Selected Features") Return Nothing End Try End Function Friend Function RunTool(ByVal Process As ESRI.ArcGIS.Geoprocessor.IGPProcess, ByVal TC As ESRI.ArcGIS.esriSystem.ITrackCancel, Optional ByVal AddOutput As Boolean = False) As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult Dim Result As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult Try System.Windows.Forms.Cursor.Current = Windows.Forms.Cursors.WaitCursor Dim GP As New ESRI.ArcGIS.Geoprocessor.Geoprocessor GP.OverwriteOutput = True GP.AddOutputsToMap = AddOutput Result = CType(GP.Execute(Process, Nothing), ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult) If Result.Status <> ESRI.ArcGIS.esriSystem.esriJobStatus.esriJobSucceeded Then If GP.MessageCount > 0 Then For Count = 0 To Globals.GP.MessageCount - 1 Message += GP.GetMessage(Count) & vbNewLine Next System.Windows.Forms.MessageBox.Show(Message, "GP Failure") End If Return Nothing End If Return Result Catch ex As Exception System.Windows.Forms.MessageBox.Show(ex.ToString & vbNewLine & ex.StackTrace, "Run Geoprocessor") Return Nothing End Try End Function Friend Function ReturnObjectfromResult(ByVal result As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2, ByVal Type As String) As Object Dim GPVal As ESRI.ArcGIS.Geodatabase.IGPValue Dim InMemFC As String Dim GPUtil As ESRI.ArcGIS.Geoprocessing.IGPUtilities3 = New ESRI.ArcGIS.Geoprocessing.GPUtilities Try GPVal = result.GetOutput(0) InMemFC = GPVal.GetAsText() Select Case Type Case "Feature Class" Return GPUtil.OpenFeatureClassFromString(InMemFC) Case "Table" Return GPUtil.OpenTableFromString(InMemFC) Case "Feature Layer" Return GPUtil.OpenFeatureLayerFromString(InMemFC) End Select Catch ex As Exception System.Windows.Forms.MessageBox.Show(ex.ToString, "Return FeatureClass error") Return Nothing End Try End Function
... View more
04-18-2012
06:57 AM
|
0
|
0
|
1955
|
|
POST
|
Take a look at these topics in the help about connecting to a geodatabase and opening a table
... View more
04-18-2012
06:39 AM
|
0
|
0
|
1053
|
|
POST
|
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
04-18-2012
06:32 AM
|
0
|
0
|
1066
|
|
POST
|
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
04-17-2012
12:19 PM
|
0
|
0
|
1066
|
|
POST
|
Take a look at this post over in GIS.StackExchange and Derek Swingley's response.
... View more
04-17-2012
05:21 AM
|
0
|
0
|
1534
|
|
POST
|
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
04-10-2012
08:08 AM
|
0
|
0
|
2781
|
| Title | Kudos | Posted |
|---|---|---|
| 1 | 02-04-2025 06:39 AM | |
| 1 | 3 weeks ago | |
| 1 | 04-10-2026 12:01 PM | |
| 1 | 04-13-2026 09:11 AM | |
| 1 | 10-11-2023 06:18 AM |
| Online Status |
Offline
|
| Date Last Visited |
Wednesday
|