自动更新进度条或从其他表单更新（VB）

Question

我在表单上有一个进度条，在另一个表单上有一些问题。用户完成问题并获得显示为百分比的分数。我可以使用按钮更新进度条。但是我希望进度条在表单显示时自动更新（在带有show和hide命令的表单之间交换）或者在另一个表单上单击一个按钮时。我该怎么做呢？

Answer 1

你需要像这样在模块中声明两个表单

Module Questions
 Public WndForm1 as New Form1
 Public WndForm2 as New Form2

 Sub ShowQuestions()
   WndForm1.show()'//===>Here is where is your progress bar
   WndForm2.ShowDialog()'//===>Here is where you are going to update you progress bar
 End Sub
End Module

如果你想更新wndForm2中的进度，你只需要像WndForm1.MyProgress.Value = 10

那样做。