Цикл, MsgBox много окон одно на другое
Код:
Private Sub Timer1_Timer()
CurrentTime = Format(#8/23/2012#, "dddd, d MMM yyyy")
If CurrentTime = "8 / 23 / 2012" Then
For i = 1 To 1000
Beep
MsgBox (Text2.Text), , "Персональный секретарь"
Next i
Timer1.Enabled = False
End If
End Sub
CurrentTime = Format(#8/23/2012#, "dddd, d MMM yyyy")
If CurrentTime = "8 / 23 / 2012" Then
For i = 1 To 1000
Beep
MsgBox (Text2.Text), , "Персональный секретарь"
Next i
Timer1.Enabled = False
End If
End Sub
На данный момент пока не нажмёшь ОК or Cancel то след. окно не появится,
Заранее спасибо
Код:
MsgBox (Text2.Text), MsgBoxStyle.MsgBoxSetForeground, "Персональный секретарь"
Цитата: CassandraDied
Код:
MsgBox (Text2.Text), MsgBoxStyle.MsgBoxSetForeground, "Персональный секретарь"
на VB6 не работает, есть еще варианты? Менял местами, дописал vb ставил = вместо точки, толку ноль
Цитата: VadikVB
Цитата: CassandraDied
Код:
MsgBox (Text2.Text), MsgBoxStyle.MsgBoxSetForeground, "Персональный секретарь"
на VB6 не работает, есть еще варианты? Менял местами, дописал vb ставил = вместо точки, толку ноль
Точняк. Совсем перепутал foreground и background. Вот, держи точно работающий с няшными асинхронными вызовами.
Код:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim caller As New AsyncMethodCaller(AddressOf Me.MyMess)
For i As Integer = 0 To 10 Step 1
caller.BeginInvoke("Text", "Секретарь", Nothing, Nothing)
Next i
End Sub
Private Function MyMess(ByVal mess As String, ByVal capt As String)
Return MsgBox(mess, MsgBoxStyle.MsgBoxSetForeground, capt)
End Function
Public Delegate Function AsyncMethodCaller(ByVal mess As String, ByVal capt As String) As MsgBoxResult
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim caller As New AsyncMethodCaller(AddressOf Me.MyMess)
For i As Integer = 0 To 10 Step 1
caller.BeginInvoke("Text", "Секретарь", Nothing, Nothing)
Next i
End Sub
Private Function MyMess(ByVal mess As String, ByVal capt As String)
Return MsgBox(mess, MsgBoxStyle.MsgBoxSetForeground, capt)
End Function
Public Delegate Function AsyncMethodCaller(ByVal mess As String, ByVal capt As String) As MsgBoxResult
End Class
Попробуй API-функцию MessageBox,у неё,кажется,были подобные параметры