例：タブ名の変更

［不具合の追加］ダイアログ・ボックスでのタブの名前を変更できます。この例では、タブの名前を「一般」、「環境」、「ビジネス・ケース」に設定します。

GetNewBugPageName イベント・プロシージャに次のコードを追加します。これは ALM が［不具合の追加］ダイアログ・ボックスを開く前に、トリガされます。［不具合の詳細］ダイアログ・ボックスのタブ名を変更するには、Defects_GetDetailsPageName イベント・プロシージャに同様のコードを追加します。

Sub Bug_New
	On Error Resume Next
		
		Bug_Fields.Field("BG_ACTUAL_FIX_TIME").PageNo = 1
		Bug_Fields.Field("BG_ESTIMATED_FIX_TIME").PageNo = 2
	
	On Error GoTo 0
End Sub

Function GetDetailsPageName(PageName,PageNum)
On Error Resume Next

if ActiveDialogName = "New Bug" then
	Select case PageNum
		case "1"
			GetDetailsPageName="一般"
		case "2"
			GetDetailsPageName="環境"
		case else
			GetDetailsPageName="ビジネス・ケース"
	End Select
end if

On Error GoTo 0
End Function