RSS weather layer
RSSLayerProps2.vb
' Copyright 2010 ESRI
' 
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
' 
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
' 
' See the use restrictions.
' 

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports System.Runtime.InteropServices


  <Guid("AFC53D59-FB35-4531-9B91-DFB36512A784"), ComVisible(True), ProgId("RSSLayerProps2"), ClassInterface(ClassInterfaceType.None)> _
  Public Partial Class RSSLayerProps2 : Inherits PropertyPage
  Private m_symbolSize As Integer

  Public Sub New()
    InitializeComponent()
  End Sub

  Protected Overrides Sub OnPageApply()
    MyBase.OnPageApply()

    Dim propSheet As PropertySheet = TryCast(Objects(0), PropertySheet)

    Dim layer As RSSWeatherLayerClass = propSheet.RSSWatherLayer
      If Nothing Is layer Then
      Return
    End If

    Dim symbolSize As Integer
    Integer.TryParse(txtSymbolSize.Text, symbolSize)
    If 0 <> symbolSize AndAlso m_symbolSize <> symbolSize Then
      layer.SymbolSize = symbolSize
    End If

  End Sub

  Protected Overrides Sub OnPageActivate(ByVal hWndParent As IntPtr, ByVal Rect As Rectangle, ByVal bModal As Boolean)
    MyBase.OnPageActivate(hWndParent, Rect, bModal)

    Dim propSheet As PropertySheet = TryCast(Objects(0), PropertySheet)

    Dim layer As RSSWeatherLayerClass = propSheet.RSSWatherLayer
      If Nothing Is layer Then
      Return
    End If

    txtSymbolSize.Text = layer.SymbolSize.ToString()

    m_symbolSize = layer.SymbolSize
  End Sub

  Private Sub txtSymbolSize_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles txtSymbolSize.TextChanged
    If (Not IsPageActivating) Then
      PageIsDirty = True
    End If
  End Sub
  End Class