16,554
社区成员
发帖
与我相关
我的任务
分享
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
RefreshUI()
End Sub
Private Sub ShowWaitting()
Dim tt As New 进度窗口() '有进度图片的窗体
tt.ShowDialog()
tt.Dispose()
End Sub
Private Sub RefreshUI()
Dim tGetData As New Thread(New ThreadStart(AddressOf ShowWaitting))
' Dim tGetData1 As New Thread(New ThreadStart(AddressOf ShowWaitting1))
tGetData.Name = "请等候......"
tGetData.Start()
系统窗口.ShowDialog() '需要载入的窗体,为如何用ShowDialog()来显示
tGetData.Abort()
End Sub
Me.Enabled = False
Dim f as new FormProgress()
f.Show()
while true
'操作
application.Doevents()
end while
f.close()