进度条实现

[aab_123456789]

请问怎么实现弹出另一个对话框，实现进度数字变化，只有执行完了或者关掉进度条对话框，才能操作主对话框

[threenewbee]

Public Class Form1
    Private stopped As Boolean
    Private Sub oncancel(ByVal sender As System.Object, ByVal e As System.EventArgs)
        stopped = True
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        stopped = False
        Dim f As New Form2
        f.canclose = False
        f.Show(Me)
        AddHandler f.Cancelled, AddressOf oncancel
        Me.Enabled = False
        For i As Integer = 0 To 100
            If stopped Then Exit For
            f.ProgressBar1.Value = i
            Application.DoEvents()
            Threading.Thread.Sleep(100)
        Next
        f.canclose = True
        f.Close()
        Me.Enabled = True
        Me.Focus()
    End Sub
End Class

Public Class Form2
    Public Event Cancelled As EventHandler
    Public canclose As Boolean = False
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RaiseEvent Cancelled(Me, Nothing)
        canclose = True
        Close()
    End Sub

    Private Sub Form2_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        If Not canclose Then e.Cancel = True
    End Sub
End Class

完整代码下载
https://download.csdn.net/download/caozhy/12285570

[aab_123456789]

版主，写这个功能很好，但是很多平时都没用上，所以也看不懂，close事件是自己写的么，下拉好像只有disposed，所以我只是实现了简单了在未关闭附属窗口前，禁用主窗口。

[末影小末EnderMo]

这个很好，可以出一个VC代码吗？

[aab_123456789]

高手，谢谢版主！

[dv_zheng]

感谢分享！！

[my_lemon123]

高手，谢谢版主

[yeshengheng]

学习了，谢谢。

[dv_zheng]

感谢分享！！

[末影小末EnderMo]

大概知道怎么做了，最近学C++，来补一下VB的，两个都不可以忘

[Heart.White]

版主牛逼，谢了

[tjufeqs]

非常感谢，高手呀

[huilang88]

[beifengruyuyc]

高手高手，顶一个

[w4505021990]

高手顶一个！！！

[xiong123li]

每个人都有一个梦

[syg2625]

fd gfd gfd

[qsdcplkm]

高手啊，[斗图表情],点击[ http://img04.sogoucdn.com/app/a/200678/6b4cab7814aaa75302450b240d2ba672.gif ]查看表情