VB:如何在循环中加上进度条

发布网友发布时间：2022-05-15 10:43

共1个回答

热心网友时间：2023-10-20 22:21

这里的 PB1 就代表进度条控件 private sub form_load() pb1.max=254 '<---- 以你的 ping 的最大值做 pb1 的最大进度值 end sub Private Sub Command2_Click() If Right(Text1, 1) = "*" Then '当文本框，也就是IP输入框最右边的一个字符是 * 的时候 Dim i As Integer Dim a As String For i = 1 To 254 '循环从 1~254 a = Left(Text1.Text, Len(Text1.Text) - 1) Text1.Text = a & i cping.Ping Text1 'ping过程 if pb1.value<254 then '<-------- 然后添加这段就行了 pb1.value=pb1.value + 1 end if Next End If
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com