YouTube | Facebook | X(Twitter) | RSS

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エンジニア。GIS上級技術者、Esri認定インストラクター、CompTIA CTT+ Classroom Trainer、潜水士、PADIダイブマスター、四アマ。WordPress は 2.1 からのユーザーで歴だけは長い。 代表著書『"地図リテラシー入門―地図の正しい読み方・描き方がわかる』 GIS を使った自己紹介はこちら。ESRIジャパン(株)所属、元青山学院大学非常勤講師を兼務。日本地図学会第31期常任委員。発言は個人の見解です。

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