vba11-3.txt

来自「一个基于ARCGIS的VBA开发代码,本人用它做过很多VBA开发,非常不错!」· 文本 代码 · 共 7 行

Public Sub ShowStatusBarMessage()
  Dim pStatusBar As IStatusBar
  Set pStatusBar = Application.StatusBar
  pStatusBar.Message(esriStatusMain) = _
  "A message in the status bar"
End Sub