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

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

共1个回答

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

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过程NextEnd IfEnd Sub但是等它扫描完要太久了，所以希望有个办法给这个循环加进度条，显示进度。

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