示例：更改选项卡名称

可以在“添加缺陷”对话框上更改选项卡的名称。此示例将选项卡设置为 General、Environments 和 Business Case。

将以下代码添加到 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="General"
		case "2"
			GetDetailsPageName="Environments"
		case else
			GetDetailsPageName="Business Case"
	End Select
end if

On Error GoTo 0
End Function