VS:CreateTabControl/ja

.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix

Description

タブペインコントロールを作成します。タブペインコントロールは、情報を複数のタブペインに表示し、タブボタンでタブペイン間の切り替えができるようにします。

タブペインコントロールを定義するには、最初にそれぞれのタブペイン用のグループを作成します。グループにアイテムを追加し位置揃えをします。
そして、番号をつけてCreateTabControl をコールします。最後に「CreateTabPane」をコールして、それぞれのタブペインに表示するグループを指定します。

PROCEDURE CreateTabControl(
              dialogID   :LONGINT;
              itemID     :LONGINT);

def vs.CreateTabControl(dialogID, itemID):
    return None

Parameters

dialogID		LONGINT		ダイアログ番号
itemID		LONGINT		アイテム番号

Example

Procedure TabControls;

const
	kTabControlID = 10;
	kTabPaneID1 = 20;
	kTabPaneID2 = 30;
	kTabPaneID3	= 40;
	
var
	dlogID, result  : LONGINT;
	
Procedure DialogProc(VAR item: LONGINT; data: LONGINT);
begin
	case item of
		SetupDialogC:
			begin
				result := 0;
			end;

		end;
end;

begin
	dlogID := CreateLayout('Sample Tab Dialog', false, 'OK', 'Cancel');

	{ Tab Group 1 }
	CreateGroupBox(dlogID, kTabPaneID1, 'Tab 1', FALSE);
	
	CreatePushButton(dlogID, 21, 'Button 1');
	SetFirstGroupItem(dlogID, kTabPaneID1, 21);	
	CreatePushButton(dlogID, 22, 'Button 2');
	SetBelowItem(dlogID, 21, 22, 0, 0);
	CreatePushButton(dlogID, 23, 'Button 3');
	SetBelowItem(dlogID, 22, 23, 0, 0);
	
	
	{ Tab Group 2 }
	CreateGroupBox(dlogID, kTabPaneID2, 'Tab 2', FALSE);
	
	CreatePushButton(dlogID, 31, 'Button 4');
	SetFirstGroupItem(dlogID, kTabPaneID2, 31);
	CreatePushButton(dlogID, 32, 'Button 5');
	SetRightItem(dlogID, 31, 32, 0, 0);
	CreatePushButton(dlogID, 33, 'Button 6');
	SetRightItem(dlogID, 32, 33, 0, 0);
	
	
	{ Tab Group 3 }
	CreateGroupBox(dlogID, kTabPaneID3, 'Tab 3', FALSE);
	
	CreatePushButton(dlogID, 41, 'Button 7');
	SetFirstGroupItem(dlogID, kTabPaneID3, 41);
	CreatePushButton(dlogID, 42, 'Button 8');
	SetRightItem(dlogID, 41, 42, 0, 0);
	CreatePushButton(dlogID, 43, 'Button 9');
	SetBelowItem(dlogID, 42, 43, 0, 0);
	

	{ Create tab control 1 }
	CreateTabControl(dlogID, kTabControlID);
	SetFirstLayoutItem(dlogID, kTabControlID);
	
	{ Add the tab panes to tab control }
	CreateTabPane(dlogID, kTabControlID, kTabPaneID1);
	CreateTabPane(dlogID, kTabControlID, kTabPaneID2);
	CreateTabPane(dlogID, kTabControlID, kTabPaneID3);
	
	result := RunLayoutDialog(dlogID, DialogProc);
end;
Run(TabControls);

Version

利用可能バージョン: VectorWorks10.5

See Also

関連関数:

VS:CreateTabPane | VS:CreateGroupBox | VS:RunLayoutDialog

関連関数:

[[VS:CreateTabPane]] | [[VS:CreateGroupBox]]

| [[VS:RunLayoutDialog]]