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