VS:CreateEditText/ja
.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix
Description
文字列型の編集フィールドを作成します。
PROCEDURE CreateEditText(
dialogID :LONGINT;
itemID :LONGINT;
defaultText :STRING;
widthInCharacters :LONGINT);
def vs.CreateEditText(dialogID, itemID, defaultText, widthInCharacters): return None
Parameters
dialogID LONGINT ダイアログ番号 itemID LONGINT アイテム番号 defaultText STRING 初期値 widthInCharacters LONGINT 幅(文字数指定)
Example
PROCEDURE Example; VAR dialog1 :INTEGER; result :INTEGER; PROCEDURE Dialog_Handler(VAR item :LONGINT; data :LONGINT); BEGIN END; BEGIN dialog1 := CreateLayout('Example Dialog', FALSE, 'OK', 'Cancel'); CreateEditText(dialog1, 4, 'default text', 16); SetFirstLayoutItem(dialog1, 4); result := RunLayoutDialog(dialog1, Dialog_Handler); END; RUN(Example);
Version
利用可能バージョン: VectorWorks9.0