转贴(电脑报):VBA开发实用指南

转贴(电脑报):VBA开发实用指南(15) End With

End Sub

'切换页面的过程

Private Sub changepage(iNewPanel As Integer)

If indeXPanel = iNewPanel Or fWizardCallBack Then

Exit Sub

End If

'通过Controls集合对象来实现页面切换效果

frmHKWiz.Controls(Const_SHP & indeXPanel).BackColor = VBWhite

frmHKWiz.Controls(Const_LBL & indeXPanel).FONTBOLD = False

indeXPanel = iNewPanel

frmHKWiz.Controls(Const_SHP & indeXPanel).BackColor = VBGreen

frmHKWiz.Controls(Const_LBL & indeXPanel).FONTBOLD = True

mpgWizardPage.Value = indeXPanel

End Sub

最后输入各控件的事件代码，如下所示：

'用于模拟切换按钮的标签单击事件

Private Sub lblMap0_Click()

changepage (0)

End Sub

Private Sub lblMap1_Click()

changepage (1)

End Sub

Private Sub lblMap2_Click()

changepage (2)

End Sub

Private Sub lblMap3_Click()

changepage (3)

End Sub

Private Sub shpMap0_Click()

changepage (0)

End Sub

Private Sub shpMap1_Click()

changepage (1)

End Sub

Private Sub shpMap2_Click()

changepage (2)

End Sub

Private Sub shpMap3_Click()