MessageBox
Привет Всем!
Подскажите плиз как сделать чтобы MsgBox появился сам через 15-20 секунд со словом "Complete!" после нажатия на определённую кнопку!
-----------------------------------------------------------
Private Sub Command1_Click()
MsgBox "Ждите!"
End Sub
------------------------------------------------------------
Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Progress = 100
End Sub
------------------------------------------------------------
Подскажите плиз как сделать чтобы MsgBox появился сам через 15-20 секунд со словом "Complete!" после нажатия на определённую кнопку!
-----------------------------------------------------------
Private Sub Command1_Click()
MsgBox "Ждите!"
End Sub
------------------------------------------------------------
Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Progress = 100
End Sub
------------------------------------------------------------
вам нужно именно через 15-20 сек или по окончанию какого нибудь мат процесса?
на с# говорю, на бейсики по аналогу:
первое через thread.Sleep()
второе через progressbar.Value
на с# говорю, на бейсики по аналогу:
первое через thread.Sleep()
второе через progressbar.Value
cronya на Visual Basic 6.0 через 10 секунд автоматически
Цитата: BagiLR
cronya на Visual Basic 6.0 через 10 секунд автоматически
Код:
Thread.Sleep(10000) '10 сек к примеру
Код:
Dim i As Integer
progressBa1.Value = 0
progressBa1.Minimum = 0
progressBa1.Maximum = 10
For i = 1 To 10 ' 10 сек всего
progressBar1.Value = i
Thread.Sleep(1000) 'интервал повторения
'или какое - то действие примерно время выполнения 1 сек
Next
'по окнчанию либо обработчик либо условие или еще что то
Dim Message As String = "Complete!"
MessageBox.Show(Message);
progressBa1.Value = 0
progressBa1.Minimum = 0
progressBa1.Maximum = 10
For i = 1 To 10 ' 10 сек всего
progressBar1.Value = i
Thread.Sleep(1000) 'интервал повторения
'или какое - то действие примерно время выполнения 1 сек
Next
'по окнчанию либо обработчик либо условие или еще что то
Dim Message As String = "Complete!"
MessageBox.Show(Message);
Примерно выглядеть так должно, сделано по нажатию кнопки
Код:
Imports System.Threading
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim idx As Integer
ProgressBar1.Value = 0
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 10
For idx = 1 To 10 ' 10 сек всего
ProgressBar1.Value = idx
Thread.Sleep(1000) 'интервал повторения
'или какое - то действие примерно время выполнения 1 сек
Next
Dim Message As String = "Complete!"
MessageBox.Show(Message)
End Sub
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim idx As Integer
ProgressBar1.Value = 0
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 10
For idx = 1 To 10 ' 10 сек всего
ProgressBar1.Value = idx
Thread.Sleep(1000) 'интервал повторения
'или какое - то действие примерно время выполнения 1 сек
Next
Dim Message As String = "Complete!"
MessageBox.Show(Message)
End Sub