vb.net显示进度条，而程序需要一些时间才能完成

我有一个这样的疑问

if ..... then

getcmd= "insert into node(...) select ..."
CMD = New MySqlCommand(getcmd, conn.connect)
CMD.ExecuteNonQuery()
CMD.Connection.Close()

elseif ... then
getcmd= "insert into node(...) select ..."
CMD = New MySqlCommand(getcmd, conn.connect)
CMD.ExecuteNonQuery()
CMD.Connection.Close()

else
getcmd= "insert into node(...) select ..."
CMD = New MySqlCommand(getcmd, conn.connect)
CMD.ExecuteNonQuery()
CMD.Connection.Close()

end if

问题是当我编译这段代码时，它花了一些时间来完成。。大约10-60秒。。这取决于用户的输入。。它处理大约3,8k记录的大量数据，这导致编译器需要一些时间来完成

现在我需要一个简单的进度条，它可以在程序运行时显示出来

我的要求是让用户知道程序正在运行，而不是挂起

只有一个简单的进度条就可以了，不需要函数来计算预计完成的时间

---

你能告诉我最简单的方法吗。。感谢您，因为您不想计算估计的完成时间，只需将进度条的

Style

属性设置为

ProgressBarStyle.Marquee

即可显示不确定的进度条

'at the beginning, before entering code blocks that needs some time to complete
ProgressBar1.Style = ProgressBarStyle.Marquee
......
......
'after execution completed
ProgressBar1.Style = ProgressBarStyle.Blocks

除了

样式

，您可能还需要更改

可见

属性以隐藏/显示进度条