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

関連記事

  • この記事を書いた人

羽田 康祐

好きな地図投影法 はパース・クィンカンシャル図法とマクブライド・トーマス平極四次曲線図法。広島市出身。GIS上級技術者、Esri認定インストラクター、測量士補、潜水士、元PADIダイブマスター、四アマ。GIS を使った自己紹介はこちら。ESRIジャパン(株)所属、発言は個人の見解です。

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

© 2021 WINGFIELD since1981