vba11-3.txt

来自「AO的原代码,都是以TXT的文件写的,对你肯定有帮助的.这些都是 我的心血啊.」· 文本 代码 · 共 7 行

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