YouTube | Facebook | Twitter  Feed

Globe の回転・太陽光設定

2016/9/1 (木)

'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

関連記事

  • この記事を書いた人

羽田 康祐

Twitter#一日一図法を連載中。GIS上級技術者、Esri認定インストラクター、CompTIA CTT+ Classroom Trainer、潜水士、元PADIダイブマスター、四アマ。 代表著書『地図リテラシー入門―地図の正しい読み方・描き方がわかる』 GIS を使った自己紹介はこちら。ESRIジャパン(株)所属、発言は個人の見解です。

-プログラミング, ArcGIS
-,