VB中进度条怎么写代码？进度条不起作用为什么？

Question

Dim Progress As Integer '这句代表什么意思？

ProgressBar1.Minimum = Min '** 未找到数据方法或成员**改为ProgressBar1.Min = Min

ProgressBar1.Maximum = Max '** 未找到数据方法或成员**改为ProgressBar1.Max = Max

For i As Integer = Min To Max '** 这句说缺少“=”**改为For i = Min To Max

'执行计算.......

Progress = i \ Max '计算进度

ProgressBar1.Value = Progress '显示进度

My.Application.DoEvents() '使用Doevents防止窗体假死使进度条看不到，但是会严重降低运行速度 ** 这句说缺少“=”**改为 'My.Application.DoEvents()

Next

改完后，进度条不起作用

正确“进度条”代码应该怎么写？
比如下面这段代码中，进度条代码应该放在什么位置？
Private Sub Command5_Click() '替换On Error Resume NextIf Text2.Text = "" Or Text1.Text = "" ThenMsgBox "无“源文件”或无“关键字”", , "文本修改器"GoTo AEnd If
Open Text2.Text For Input As #1While Not EOF(1)Line Input #1, WB WB = Replace(WB, Text1.Text, Text4.Text) Open Text3.Text For Append As #2 Print #2, WB Close #2 JS = JS + 1
WendForm1.Caption = "文本修改器 替换了" & JS & "条内容"Close #1A:End Sub

Answer 1

第一个的错误修改
就找不到啊 你还要他怎么样呢？
他没这个属性

第二个
你把()去掉

第三个
你不能For I as Integer = Min to Max
你要Dim I as Integer:For I = Min to Max追问

正确“进度条”代码应该怎么写？
代码应该放在什么地方？

追答

SORRY 我个人不用Windows自带的“进度条” 你可以用两个PictureBox堆起来
或是使用一些控件 Windows自带的进度条不好用 而且也没有很好看 个人喜欢用线条堆砌出来的“简洁风”

追问

嗯，那我也不用进度条了，拖慢运行速度，而且总卡住！