Question

我在一个窗体上放了一个进度条,但是我在窗体运行时拖动窗体,进度条却不动了 怎么回事 vb.net写的

没有人啊 救急啊

Answer 1

我下面的代码不会你可以参考下
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If ProgressBar1.Value < ProgressBar1.Maximum Then
ProgressBar1.Value = ProgressBar1.Value + 1
Else
ProgressBar1.Value = 0
End If
End Sub
End Class

Answer 2

进度条是根据什么动的？

拖动期间不动是正常的，鼠标松开后应当恢复正常
用了多线程吗？

追问

没有用多线程
拖完后也不动了，窗体显示未响应，不过后台程序还在运行
我的进度条就是两个Label 一个是底色，一个通过一个值去改变他的长度

追答

建议你用多线程实现

Answer 3

Public JS, JD
Private Sub Command1_Click()
On Error Resume Next
JS = 1000000
JD = JS
ProgressBar1.Min = 0
ProgressBar1.Max = 100
ProgressBar1.Value = 0
For i = 1 To JS
JD1 = JD1 + 1
ProgressBar1.Value = Round(JS / (JS - JD1))
Next
End Sub

Answer 4

不太明白你说的。拖动窗体时进度条不动还是完了也不动？
拖动时不动应该是消息阻塞，试着调用新线程异步操作
拖完不动，应该是你代码问题吧，逐步调试代码找下问题

追问

估计是窗体的点击事件造成的，我点击窗体后，进度条就不动了，程序还在运行，不过窗体变灰了，鼠标也成了等待状态，程序运行完后，进度条也就显示100%了

我用的是两个label做的进度条，请问有什么办法能避免这个问题或实现窗体点击，拖动时进度条也跟着变

Answer 5

你在说什么，进度条跟拖动窗体有啥关系，进度条的进度是靠Vaule属性控制的，

Answer 6

有代码吗？贴出来看看。