Microsoft Access Club >Access裏技Tips >このページ >次頁 < 前項  サイト内検索


マウスカーソルの静止位置を自在に変更する : Access裏技Tips



マウスカーソルの静止位置は、オプション設定でシステムとして設定が可能です。 ここでは、テキストボックスでデータ入力時、自在に変更する技を紹介します。

マウスカーソルの静止位置を変更する

  1. 日記テーブル(tbl_sample)をもとに、日記記帳フォーム(frm_sample)を作成します。
  2. フォームフッターにオプショングループ(frame選択)を作成し、オプションボタンを2個配置します。
  3. マウスカーソルの初期設定はフィールド全体を選択していますが、オプショングループの選択肢で、 フィールドの先頭に移動、フィールドの最後に移動を自在に切り替えることができます。

日記記帳フォームの作成

日記記帳フォームを作成します。

  1. 日記テーブルテーブルをもとに、日記記帳フォームを作成します。
  2. 日記を書き込むテキストボックスには、スクロールバープロパティに"あり"を選択します。
  3. フォームフッタにオプショングループを作成し、オプションボタンを2個配置します。

今回のおすすめポイント

オプショングループとオプションボタン

オプショングループで重要なものは各種のイベントで、オプションボタンではオプション値となります。

オプショングループの更新後処理イベントプロシージャの作成

オプショングループの更新後処理イベントプロシージャを作成します。

Private Sub frame選択_AfterUpdate()

    Dim ctlTextBox As TextBox ' --- A
    Set ctlTextBox = Me.txt日記 ' --- B
    
    If Me.frame選択 = 1 Then ' --- C
        ctlTextBox.SetFocus ' --- D
        ctlTextBox.SelStart = 0 ' --- E
    Else
        ctlTextBox.SetFocus
    	  If Not IsNull(ctlTextBox) Then
           ctlTextBox.SelStart = Len(ctlTextBox) ' --- F
        End If
    End If
    
End Sub
解説
  1. オブジェクトctlTextBoxを宣言します。Setステートメントでオブジェクトの参照を代入します。
  2. オプショングループでオプション値1が選択されたなら、以下の処理を実行します。
  3. テキストボックスtxt日記にフォーカスを移動します。移動させないとSelStartプロパティが利用できません。
  4. SelStartプロパティに0を設定します。つまり、先頭にマウスカーソルを移動します。
  5. Len関数を用いてにテキストボックスtxt日記の文字数を求めます。最後尾にマウスカーソルを移動します。
今回のおすすめポイント

SelStartプロパティ

フォーカスのあるテキストの先頭、またはテキストが選択されていない場合はカーソルの位置を示します。値が0なら先頭、最後尾はLen関数を用いて調べます。

フォームの移動時イベントプロシージャの作成

フォームの移動時イベントプロシージャを作成します。

Private Sub Form_Current()

    Me.frame選択.DefaultValue = "" ' --- A

End Sub
解説
  1. レコード移動時イベントを用いてオプショングループの既定値を""に変更します。 これで従前の値はクリアーになります。

動作確認

  1. デザインビューからフォームビューに切り替えます。

  1. オプショングループで左端Topを選択します。

マウスカーソルが先頭に移動したことを確認します。

今回のおすすめポイント

オプション設定

メニューバーのツールあるオプションからキーボードを選択すると、マウスカーソルの動作を制御することができます。


選択項目

内容

フィールド全体を選択 テキストボックス等にデータが入力されている場合、マウスカーソルがそのデータ全体を覆うような状態。その時に、Delキーを押すとデータ全てを削除することができます。
フィールドの先頭に移動 上記の環境で、データの先頭にマウスカーソルがある状態。データの先頭から入力できる。
フィールドの最後に移動 上記の環境で、データの最後尾にマウスカーソルがある状態。次データとして入力できる。


関連ページ

ページの先頭へ 前ページへ戻る

 


マウスカーソルの静止位置を自在に変更する : Access裏技Tips


 

-Microsoft Access Club-

PLESKコンパネインストール済みの専用・共有レンタルサーバーを10年以上ご提供しています。信頼性は抜群です。
PLESKインストール済みの専用・共有レンタルサーバーを提供しています。
10年以上の信頼性は抜群です。