Visual Basic 2010 Sleep Funktion

[Visonar]

Hallo,
ich möchte bei VB gerne eine Sleep Funktion einbauen, nur weiß ich nicht, wie das gehen soll. Tuts habe ich mir auch schon angeschaut, nur weiter bringen die mich nicht.

PHP Code:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

End Sub
End Class 


Nach Klicken auf den Button soll 5 Sekunden gewartet werden und dann eine MsgBox erscheinen.


Wie genau muss das jetzt aussehen?


Danke im Vorraus!


MfG

[P-a-i-n]

soo funzt es

PHP Code:

   Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Sleep(5000)
        MessageBox.Show("blabla", "blaaa")
    End Sub 


[Visonar]

so hab ich es natürlich auch schon probiert, dann kommt folgende fehlermeldung:

Ein Aufruf an die PInvoke-Funktion "WindowsApplication2!WindowsApplication2.Form1::Sl eep" hat das Gleichgewicht des Stapels gestört. Wahrscheinlich stimmt die verwaltete PInvoke-Signatur nicht mit der nicht verwalteten Zielsignatur überein. Überprüfen Sie, ob die Aufrufkonvention und die Parameter der PInvoke-Signatur mit der nicht verwalteten Zielsignatur übereinstimmen.

[P-a-i-n]

Probier das mal

PHP Code:

Imports System.Threading

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Thread.Sleep(5000)
        MessageBox.Show("blabla", "blaaa")
    End Sub 


[Visonar]

[P-a-i-n]

einen hab ich noch ist halt VS2010 ich nutz 2008 das 10er ist mir zu verbuggt
wenn das jetzt nicht geht weiß ich auch nicht weiter

PHP Code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Pause(5000)
        MessageBox.Show("blabla", "blaaa")
    End Sub
  
    Public Sub Pause(ByVal Milliseconds As Integer)
        Dim dTimer As Date
        dTimer = Now.AddMilliseconds(Milliseconds)
        Do While dTimer > Now
            Application.DoEvents()
        Loop
    End Sub 


[Visonar]

ne geht auch net...ich hab früher auch mit 08 gearbeitet, nur ist mir dann die 30tage frist abgelaufen.:'(

trotzdem danke, für die mühe!

[P-a-i-n]

die 30 tage frisst einfach anmelden kostet nichts kriegst auch keine mails von msdn
;] aber die 30 tage frisst kommt nicht immer bei win7 hatte ich die noch nicht weder bei VB noch bei c++

ja beim 2010er hat ich auch voll die probleme da hab ich das wieder runter gehauen ist auch wirklich sehr sehr big von der installionsgrößen

[Visonar]

Originally Posted by P-a-i-n

die 30 tage frisst einfach anmelden kostet nichts kriegst auch keine mails von msdn
;] aber die 30 tage frisst kommt nicht immer bei win7 hatte ich die noch nicht weder bei VB noch bei c++

ja beim 2010er hat ich auch voll die probleme da hab ich das wieder runter gehauen ist auch wirklich sehr sehr big von der installionsgrößen

ja, das hab ich auch schon mal versucht, aber i-wie klappte es nicht.
wie/wo erhalte ich den registreirungsschlüssel?

[P-a-i-n]

der kommt automatisch wenn du es gemacht hast per popup fenster

[Visonar]

hab schon geschafft!
endlich wieder 2008

€: jetzt klappt es

da ich gerade beim fragen bin:
weißt du, wie ich es anstelle, dass wenn ich auf einen button klicke, z.b. eine msgbox mit 1 kommt und wenn man dann nochmal auf den button klickt, eine msgbox mit 2 kommt usw.?

mfg

[P-a-i-n]

meinste sowas hier

PHP Code:

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Do
            Dim zahl As Integer = zahl + 1
            MessageBox.Show(zahl, "blaaaaa")

            If zahl = 20 Then
                Exit Do
            End If
        Loop
    End Sub 


[Visonar]

hm, als erstezen wir mal die msgbox durch ein laben, also

button1 klick
label text = 1

wieder button1 klick
label text = 2

wieder button1 klick
label text = 3

usw.

[P-a-i-n]

ja hättest gleich gesagt das ist ganz einfach

PHP Code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Label1.Text = Val(Label1.Text) + 1
    End Sub 


[Visonar]

das ist schon so ungefähr das, was ich wollte^^

also ist es auch möglich, dass mit texten zu machen?

also:

1. klick:
"hallo"

2. klick:
"blubb"

3. klick:
"lalala"

usw.


sry^^
ich hoffe ich nerve nicht allzu doll