Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 6301
Последний выпуск: 19.06.2015

Цикл, MsgBox много окон одно на другое

57K
25 августа 2012 года
VadikVB
30 / / 05.08.2012
 
Код:
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
Окошко должно появится каждую секунду, но пред. но должно исчезнуть, след окно должно стать поверх заднего окошка, и так постепенно в зависимости от цикла, цикл 10, значит открывается 10 окошек!
На данный момент пока не нажмёшь ОК or Cancel то след. окно не появится,

Заранее спасибо
413
26 августа 2012 года
CassandraDied
763 / / 24.05.2012
 
Код:
MsgBox (Text2.Text), MsgBoxStyle.MsgBoxSetForeground, "Персональный секретарь"
57K
29 августа 2012 года
VadikVB
30 / / 05.08.2012
Цитата: CassandraDied
 
Код:
MsgBox (Text2.Text), MsgBoxStyle.MsgBoxSetForeground, "Персональный секретарь"



на VB6 не работает, есть еще варианты? Менял местами, дописал vb ставил = вместо точки, толку ноль

413
29 августа 2012 года
CassandraDied
763 / / 24.05.2012
Цитата: 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
6
29 августа 2012 года
@pixo $oft
3.4K / / 20.09.2006
Эээ,мне кажется или такое на VB6 всё равно работать не будет? :)
Попробуй API-функцию MessageBox,у неё,кажется,были подобные параметры

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог