我怎样才能使这个代码更容易/快/合适

-1

这必须是我所创造的最可怕的事情，必须有一个更好的方法去从数字了这样... （次通话值上下限制为25 - 根据不同的值，必须执行一个按钮）我怎样才能使这个代码更容易/快/合适

Private Sub Activate_Drivers() 
    Select Case nud_No_Participants.Value 
     Case 1 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
     Case 2 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
     Case 3 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
     Case 4 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI4.btn_Add_Remove_Driver.PerformClick() 
     Case 5 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI4.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI5.btn_Add_Remove_Driver.PerformClick() 
     Case 6 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI4.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI5.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI6.btn_Add_Remove_Driver.PerformClick() 
     Case 7 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI4.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI5.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI6.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI7.btn_Add_Remove_Driver.PerformClick() 
     Case 8 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI4.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI5.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI6.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI7.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI8.btn_Add_Remove_Driver.PerformClick() 
     Case 9 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI4.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI5.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI6.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI7.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI8.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI9.btn_Add_Remove_Driver.PerformClick() 
     Case 10 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI4.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI5.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI6.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI7.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI8.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI9.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI10.btn_Add_Remove_Driver.PerformClick() 
     Case 11 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI4.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI5.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI6.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI7.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI8.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI9.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI10.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI11.btn_Add_Remove_Driver.PerformClick() 
     Case 12 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI4.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI5.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI6.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI7.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI8.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI9.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI10.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI11.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI12.btn_Add_Remove_Driver.PerformClick() 
     Case 13 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI4.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI5.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI6.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI7.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI8.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI9.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI10.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI11.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI12.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI13.btn_Add_Remove_Driver.PerformClick() 
     Case 14 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI4.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI5.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI6.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI7.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI8.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI9.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI10.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI11.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI12.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI13.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI14.btn_Add_Remove_Driver.PerformClick() 
     Case 15 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI4.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI5.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI6.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI7.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI8.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI9.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI10.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI11.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI12.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI13.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI14.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI15.btn_Add_Remove_Driver.PerformClick() 
     Case 16 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI4.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI5.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI6.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI7.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI8.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI9.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI10.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI11.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI12.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI13.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI14.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI15.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI16.btn_Add_Remove_Driver.PerformClick() 
     Case 17 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI4.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI5.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI6.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI7.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI8.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI9.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI10.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI11.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI12.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI13.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI14.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI15.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI16.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI17.btn_Add_Remove_Driver.PerformClick() 
     Case 18 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI4.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI5.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI6.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI7.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI8.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI9.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI10.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI11.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI12.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI13.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI14.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI15.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI16.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI17.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI18.btn_Add_Remove_Driver.PerformClick() 
     Case 19 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI4.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI5.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI6.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI7.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI8.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI9.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI10.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI11.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI12.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI13.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI14.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI15.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI16.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI17.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI18.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI19.btn_Add_Remove_Driver.PerformClick() 
     Case 20 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI4.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI5.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI6.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI7.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI8.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI9.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI10.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI11.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI12.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI13.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI14.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI15.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI16.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI17.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI18.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI19.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI20.btn_Add_Remove_Driver.PerformClick() 
     Case 21 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI4.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI5.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI6.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI7.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI8.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI9.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI10.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI11.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI12.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI13.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI14.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI15.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI16.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI17.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI18.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI19.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI20.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI21.btn_Add_Remove_Driver.PerformClick() 
     Case 22 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI4.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI5.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI6.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI7.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI8.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI9.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI10.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI11.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI12.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI13.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI14.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI15.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI16.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI17.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI18.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI19.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI20.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI21.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI22.btn_Add_Remove_Driver.PerformClick() 
     Case 23 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI4.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI5.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI6.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI7.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI8.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI9.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI10.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI11.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI12.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI13.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI14.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI15.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI16.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI17.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI18.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI19.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI20.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI21.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI22.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI23.btn_Add_Remove_Driver.PerformClick() 
     Case 24 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI4.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI5.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI6.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI7.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI8.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI9.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI10.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI11.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI12.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI13.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI14.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI15.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI16.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI17.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI18.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI19.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI20.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI21.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI22.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI23.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI24.btn_Add_Remove_Driver.PerformClick() 
     Case 25 
      Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI4.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI5.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI6.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI7.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI8.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI9.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI10.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI11.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI12.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI13.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI14.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI15.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI16.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI17.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI18.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI19.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI20.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI21.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI22.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI23.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI24.btn_Add_Remove_Driver.PerformClick() 
      Form1.LapTimerGUI25.btn_Add_Remove_Driver.PerformClick() 
    End Select 
End Sub

来源

2014-03-06 Amature Coder

不，我不能看到你这个打算。 – Steve

被点击确定，所以基本上如果nud_No_Participants'的'的值是1，我需要驱动一个按钮（'Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick（）'）。如果值为2，我需要驱动程序的一个按钮和驱动程序两个点击。你看它累积到25，所以如果我继续我现在的方式，代码将是非常重复的。 @Steve @LarsTech –

你能告诉按钮单击处理程序的内容是什么？以编程方式“点击”按钮来完成某些操作是非常糟糕的做法。向我们展示您在这些点击处理程序中所做的事情，然后我们可以提供帮助。 –

首先，我会把你的Form1的内部Activate_Drivers功能，并添加一个参数为nud_No_participants。我不认为你需要你所有的LapTimerGUI公共。

然后我会把定时器列表

Dim lapTimers As New List(Of whatever) 

lapTimers.Add(LapTimerGUI1) 
lapTimers.Add(LapTimerGUI2) 
lapTimers.Add(LapTimerGUI3) 
lapTimers.Add(...)

内要通过列表easely只是环能进行点击。

For index As Integer = 0 To nud_No_Participants.Value-1 
    lapTimers(index).btn_Add_Remove_Driver.PerformClick() 
Next

我必须说..你在做什么看起来很奇怪。也许你必须重新思考你是如何做到的。

来源

2014-03-06 20:17:52

该死的是我可以看到我的代码看起来很奇怪，当我看到正确的方式去解决我的问题。谢谢@the_lotus –

这略显笨拙，但它不是一个绝妙的解决方案。保证有一种更优雅的方式来重构点击处理程序中的任何代码，以避免手动构建巨型列表。这仍然是太多的特别重复。 –

我在这里得到的这个解决方案的问题是，'LapTimerGUI1'是一个UserControl，所以我不能使用一个整数或字符串或任何'Dim lapTimers作为新列表（______）' 我想我可能会离开这个程序的功能出来了O_o –

你只需换它的一对夫妇的if语句，让你逐渐地施加额外的步骤为数字递增。

我不是VB编码器，所以这里是一个伪代码示例：

Form1.LapTimerGUI1.btn_Add_Remove_Driver.PerformClick() 
If nud_No_Participants.Value > 1 Then 
    Form1.LapTimerGUI2.btn_Add_Remove_Driver.PerformClick() 
End If 
If nud_No_Participants.Value > 2 Then 
    Form1.LapTimerGUI3.btn_Add_Remove_Driver.PerformClick() 
End If

来源

2014-03-06 19:31:55 spikeheap

需要一个'然后'在那里。 – OneFineDay

为了跟上，为了所有事情的美好，请将代码的业务结束重构为点击处理程序，并调用适当的方法。 –

是的，我不知道VB，所以它只是伪代码（更新，感谢提醒。 – spikeheap

我怎样才能使这个代码更容易/快/合适

回答

相关问题