GetInteger
説明
ユーザーに、整数を入力させるダイアログを表示します。
書式
Object.GetInteger(Prompt,retValue,[DefaultValue=""],[MinValue=""],[MaxValue=""],[RestorePos=0]) As Boolean
引数 | 説明 |
---|---|
Message | 入力欄の上に表示するメッセージを指定します。 |
retValue | ユーザーが入力した値が返されます。 |
DefaultValue | 省略可能です。あらかじめ表示させたい値を指定します。 |
MinValue | 省略可能です。入力出来る最小の値を、比較文字+数字で指定します。 ↓指定例↓ "=10"・・・10以上 ">10"・・・10より大きい |
MaxValue | 省略可能です。入力出来る最大の値を、比較文字+数字で指定します。 ↓指定例↓ "=20"・・・20以下 "<20"・・・20より小さい |
RestorePos | 省略可能です。省略または0を指定するとダイアログは毎回スクリーンの中央に表示されます。1を指定すると中央に表示されますが、ダイアログを閉じる時にダイアログの位置を保存します。2以上を指定すると前回保存された位置に表示され、ダイアログを閉じる時にダイアログの位置を保存します。 |
戻り値
戻り値 | 説明 |
---|---|
True | 正常終了しました。 |
False | キャンセルボタンが押されました。 |
実行例
Set
Acad=CreateObject("AcadRemocon.Body")
Acad.GetInteger "文字の高さを入力",retValue,12,"=10","<20"
※範囲外の値を入力した場合は、下記のようなメッセージが表示されます。