For i As Integer = 1 To 999
Dim btn As object
If i <= 99 Then
btn = e.Form.CreateControl("btn_tabcontrol1_pg" & i, ControlTypeEnum.Button)
End If
If i <= 199 And i>=100 Then
btn = e.Form.CreateControl("btn_tabcontrol2_pg" & i-99, ControlTypeEnum.Button)
End If
If i <= 299 And i>=200 Then
btn = e.Form.CreateControl("btn_tabcontrol2=3_pg" & i-199, ControlTypeEnum.Button)
End If
If i <= 399 And i>=300 Then
btn = e.Form.CreateControl("btn_tabcontrol4_pg" & i-299, ControlTypeEnum.Button)
End If
If i <= 499 And i>=400 Then
btn = e.Form.CreateControl("btn_tabcontrol5_pg" & i-399, ControlTypeEnum.Button)
End If
If i <= 599 And i>=500 Then
btn = e.Form.CreateControl("btn_tabcontrol6_pg" & i-499, ControlTypeEnum.Button)
End If
If i <= 699 And i>=600 Then
btn = e.Form.CreateControl("btn_tabcontrol7_pg" & i-599, ControlTypeEnum.Button)
End If
If i <= 799 And i>=700 Then
btn = e.Form.CreateControl("btn_tabcontrol8_pg" & i-699, ControlTypeEnum.Button)
End If
If i <= 899 And i>=800 Then
btn = e.Form.CreateControl("btn_tabcontrol9_pg" & i-799, ControlTypeEnum.Button)
End If
If i <= 999 And i>=900 Then
btn = e.Form.CreateControl("btn_tabcontrol10_pg" & i-899, ControlTypeEnum.Button)
End If
加好友 
发短信
Post By：2015/4/2 15:57:00 [只看该作者]
