Globe の回転・太陽光設定

'Globeの回転
Private Sub chkSpin_Click()
    Dim pGlobeViewer As IGlobeViewer
    Set pGlobeViewer = m_pGlobeControl.GlobeViewer
    
    If chkSpin.Value = 1 Then
        pGlobeViewer.SpinSpeed = sldSpin.Value
        pGlobeViewer.StartSpinning esriCounterClockwise
    Else
        pGlobeViewer.StopSpinning
        
    End If

End Sub


'Globe回転スライドバー設定
Private Sub sldSpin_Scroll()
    Dim pGlobeViewer As IGlobeViewer
    Set pGlobeViewer = m_pGlobeControl.GlobeViewer
    
    If chkSpin.Value = 1 Then
        pGlobeViewer.SpinSpeed = sldSpin.Value
    End If
    
End Sub


'太陽光の表示
Private Sub chkSun_Click()
    If chkSun.Value = 1 Then
        m_pGlobeDisplayRendering.AmbientLight = sldSun.Value / 20
        m_pGlobeDisplayRendering.IsSunEnabled = True
    Else
        m_pGlobeDisplayRendering.IsSunEnabled = False
    End If
    
    '再描画
'    m_pGlobeControl.GlobeDisplay.RefreshViewers

End Sub


'太陽光スライドバー設定
Private Sub sldSun_Scroll()
    If chkSun.Value = 1 Then
        m_pGlobeDisplayRendering.AmbientLight = sldSun.Value / 20
        
        '再描画
        m_pGlobeControl.GlobeDisplay.RefreshViewers
    End If
    
End Sub