フォーム＆コントロールプロパティ活用辞典-130 SelTop

Private Sub fraProperty_AfterUpdate()
'[プロパティの設定]オプショングループの更新後処理

  With Me!フォーム130_sub.Form
    'これまでの範囲選択をいったんリセット
    .SelHeight = 0
    .SelWidth = 4
    Select Case Me!fraProperty
      Case 1
        '２行目から２行分を範囲選択
        .SelTop = 2
        .SelHeight = 2
      Case 2
        '３行目から４行分を範囲選択
        .SelTop = 3
        .SelHeight = 4
    End Select
  End With

End Sub


#130		SelTop
SelTop プロパティフォームビューまたはデータシートビューにおいて複数行が範囲選択されているとき、その上端行の番号を取得または設定します。このプロパティ値は、画面上で１レコード目の行を「１」としてカウントします。１行も範囲選択されていないときは、フォーカスがある行の番号が返されます。このプロパティは、SelHeightプロパティといっしょに使うことによって、行方向の選択範囲をプログラムから自由に制御することができます。フォーム Private Sub fraProperty_AfterUpdate() '[プロパティの設定]オプショングループの更新後処理 With Me!フォーム130_sub.Form 'これまでの範囲選択をいったんリセット .SelHeight = 0 .SelWidth = 4 Select Case Me!fraProperty Case 1 '２行目から２行分を範囲選択 .SelTop = 2 .SelHeight = 2 Case 2 '３行目から４行分を範囲選択 .SelTop = 3 .SelHeight = 4 End Select End With End Sub ２行目から２行分を範囲選択３行目から４行分を範囲選択
\| Index \| Prev \| Next \|