Outlookサポートナビ！  ≫≫≫ Outlookフォーム作成／VBSプログラミング

　

◆ 1度のみクリックできるボタンを作成する

　

オブジェクト

プロパティ(使用可能）

CommanButton

Enabled

記述法： CommandButton1.Enabled = true（使用可能） false（使用不可）

コントロールを使用可能（使用不可）にします。

　

　

記述例：

記号

ボタンをクリックしたらそのボタンは使用不可にする

Sub CommandButton1_Click()

Set MyPage = Item.GetInspector.ModifiedFormPages("test")
MyPage.CommandButton1.enabled = false
End sub

★CommandButton1をクリックしたら

★現在のページ（タブ）を取得

★CommandButton1を使用不可にする
記号

応用：パスワードの取得は1度のみ
（ボタンをクリックしたらランダムな数値（パスワード）が表示）

Randomize

sub CommandButton1_click()
Set MyPage = Item.GetInspector.ModifiedFormPages("test")
UserProperties("pw").value = int((5000-1000+1)*rnd+1000)

MyPage.CommandButton1.Enabled = false
end sub

 　

★CommandButton1をクリックしたら

★現在のページ（タブ）を取得

★プロパティ"pw"にランダムな数値を格納

　

★CommandButton1を使用不可にする

　

　

※参考：ランダムな数（乱数）を返す