Private Sub SSTab1_Click(PreviousTab As Integer)If SSTab1.Tab = 0 Then Text1.Text = 0 '换成1对应的图片 ElseIf SSTab1.Tab = 1 Then Text1.Text = 1 '换成2对应的图片 ElseIf SSTab1.Tab = 2 Then Text1.Text = 2 '换成3对应的图片End IfEnd Sub