コンテンツ
テキストボックスコントロールを使用してマーキーを追加すると、Microsoft Accessの使用時にユーザーの注意を簡単に引くことができます。 Visual Basic for Applications（VBA）を使用して、コントローラ内のテキストをスクロールするプロセスを自動化することができます。 VBAは、Microsoft Officeアプリケーションを拡張するために使用されるプログラミング言語です。 "Form.Timer"イベント（フォームタイム）を使用して、テキストボックスの内容を継続的に更新するサブプロシージャを実行します。
説明書
-
[作成]タブをクリックし、次に[フォームプロジェクト]をクリックして新しいフォームを作成します。コントロールパネルの[テキストボックス]を押し、次にフォームで新しいテキストボックスコントロールを追加します。 [書式]タブを右クリックして、[テキストの配置]プロパティを[右]に設定します。 「その他」タブを押して、「名前」の下に「txtMarquee」と入力します。
-
フォームを右クリックしてから[イベントのビルド]をクリックし、[コードビルダー]をダブルクリックしてVBAエディタウィンドウを実行します。 「Ctrl」と「A」を押してすべてのデフォルトコードを選択し、次に「Delete」を押してコードを削除します。
-
次のコードをコピーして貼り付けて、コードで使用するグローバル変数を追加します。
文字列としてのDim textStr文字列としてのDim Padtr文字列としてのDim txtScroll整数としてのDim txtの長さ整数としてのDim整数としてのDim整数としてのDim iInとしてのDim整数としてのDim
-
次のコードを追加して、テキストボックスのコントロールを横切るテキストを定義します。
Private Sub Form_Load（）txtMarqee.SetFocus txtMarqee.Text = "" textStr = "Microsoft Accessにテキストボックスタイプを追加する方法"padtr =" "txtScroll = textStr＆padtr txtLength = Len（txtScroll）iLength = Len（padtr） Me.TimerInterval = 500 iPos = 1 iView = 1 End Sub
-
"moveText"を呼び出すサブプロセスを作成します。
プライベートサブForm_Timer（）moveText End Sub
-
テキストボックスコントロールに表示されるテキストを実際にスクロールする「moveText」サブプロシージャを作成します。
プライベートSub moveText（）
txtMarqee.SetFocus txtMarqee.Text = Mid（txtScroll、iPos、iView）iRem = txtLength - （iPos + iView - 1）
iView <20かつiView <iRemの場合iView = iView + 1の場合
iPos <txtLengthおよびiView> = 20の場合iPos = iPos + 1の場合は終了txtMarqee.Text = "" iPos = 1の場合iView = 1の場合終了Subの場合
-
Microsoft Accessに戻り、[表示]アイコンをクリックしてプログラムを実行します。手順4で定義したテキストがテキストボックスをスクロールします。
