Access Study Vol.21 デザインで使えるプログラム50-19

Sub SampleCode_19()
'コマンドボタンのポイントしたときのカーソルをハイパーリンクの手にする

  Dim ctl As Control

  'アクティブフォームのすべてのコントロールのループ
  For Each ctl In Screen.ActiveForm.Controls
    With ctl
      If .ControlType = acCommandButton Then
        'コマンドボタンならポイントしたときのカーソルプロパティを変更
        .CursorOnHover = acCursorOnHoverHyperlinkHand
      End If
    End With
  Next ctl

End Sub


19		コマンドボタンのポイントしたときのカーソルをハイパーリンクの手にする
コマンドボタンコントロールの「ポイントしたときのカーソル」プロパティは、VBAでは「CursorOnHover」プロパティで取得・設定します。フォームのControlsコレクションからControlオブジェクトをループで取り出し、そのコントロールがコマンドボタン（ControlTypeプロパティが組み込み定数acCommandButton）なら、CursorOnHoverプロパティに”ハイパーリンクの手”を表す組み込み定数「acCursorOnHoverHyperlinkHand」を代入します。ハイパーリンクの手acCursorOnHoverHyperlinkHand 既定のカーソルacCursorOnHoverDefault プログラム Sub SampleCode_19() 'コマンドボタンのポイントしたときのカーソルをハイパーリンクの手にする Dim ctl As Control 'アクティブフォームのすべてのコントロールのループ For Each ctl In Screen.ActiveForm.Controls With ctl If .ControlType = acCommandButton Then 'コマンドボタンならポイントしたときのカーソルプロパティを変更 .CursorOnHover = acCursorOnHoverHyperlinkHand End If End With Next ctl End Sub 実行例 ■実行前 ■実行後
\| Index \| Prev \| Next \|