数组的问题

「已注销」 2019-05-24 07:22:50



Private Sub Command_Click(Index As Integer)

    Select Case Index

        Case 0

            Command(0).Enabled = False

            Command0(0).Enabled = True

        Case 1

            Command(1).Enabled = False

            Command0(1).Enabled = True

        Case 2

            Command(2).Enabled = False

            Command0(2).Enabled = True

        Case 3

            Command(3).Enabled = False

            Command0(3).Enabled = True

        Case 4

            Command(4).Enabled = False

            Command0(4).Enabled = True

        Case 5

            Command(5).Enabled = False

            Command0(5).Enabled = True

        Case 6

            Command(6).Enabled = False

            Command0(6).Enabled = True

    End Select

End Sub



Private Sub Command0_Click(Index As Integer)

    Select Case Index

        Case 0

            Command0(0).Enabled = False

            Command(1).Enabled = True

        Case 1

            Command0(1).Enabled = False

            Command(2).Enabled = True

        Case 2

            Command0(2).Enabled = False

            Command(3).Enabled = True

        Case 3

            Command0(3).Enabled = False

            Command(4).Enabled = True

        Case 4

            Command0(4).Enabled = False

            Command(5).Enabled = True

        Case 5

            Command0(5).Enabled = False

            Command(6).Enabled = True

        Case 6

            Command0(6).Enabled = False

    End Select

End Sub

求简化代码

...全文

56 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

舉杯邀明月 2019-05-24

打赏
举报

试试看：

Private Sub Command_Click(Index As Integer)

   Command(Index).Enabled = False

   Command0(Index).Enabled = True

End Sub

 

Private Sub Command0_Click(Index As Integer)

   If (6 = Index) Then

      Command0(6).Enabled = False

   Else

      Command0(Index).Enabled = False

      Command(1 + Index).Enabled = True

   End If

End Sub