在VB中如何加载进度条？
展开全部
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
If ProgressBar1.Value >= 100 Then
ProgressBar1.Value = 0
Else
ProgressBar1.Value = ProgressBar1.Value + 10
End If
End Sub
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
If ProgressBar1.Value >= 100 Then
ProgressBar1.Value = 0
Else
ProgressBar1.Value = ProgressBar1.Value + 10
End If
End Sub
追问
怎样加载，工具栏上没有进度条
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
网易云信
2023-12-06 广告
网易云信提供一站式的 1 对 1 UIKit 组件库，可以更快地搭建 1 对 1 社交平台，能够快速实现音视频呼叫、音视频通话、1对1消息发送、美颜和礼物功能，直接可以复用我们的组件源码就可以了。优势：1、全套1对1 UI组件，接入更快；2...
点击进入详情页
本回答由网易云信提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
