2010/09/07

access2010 ナビゲーションフォーム その3

  • 移動コントロール:ナビゲーションコントロール:NavigationControl
  • 移動ボタン:ナビゲーションボタン:NavigationButton
の関連ってどうなってるのか確認してみた。

NavigationControl.Properties("NavigationParent") String
NavigationControl.Properties("NavigationChild") String

NavigationButton.Properties("NavigationParentButton") String
NavigationButton.Properties("DefaultInsertButton")  Integer

ってことらしい。常時に触れることないプロパティではあるけれどもCreateControlとかで使うのかもしれんね。 移動コントロール/移動ボタンいずれもVisible/Enabledつかえるから実行時に制御可能と。
でもって、NavigationControlに配置されているNavigationButtonの列挙
    Dim Frm As Access.Form
    Dim naviCtr As Access.NavigationControl
    Dim naviBtn As Access.NavigationButton
    Set naviCtr = Frm.移動コントロール0
    
    For Each naviBtn In naviCtr.Controls
        If naviBtn.Properties("DefaultInsertButton") = 0 Then
            Debug.Print naviBtn.Name
        End If
    Next

0 件のコメント: