Visual Basic 2010 Sleep Funktion

Page 1 of 2 1 2
05/16/2010 10:53 Visonar#1
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
05/16/2010 12:47 P-a-i-n#2
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 
05/16/2010 12:49 Visonar#3
so hab ich es natürlich auch schon probiert, dann kommt folgende fehlermeldung:

Quote:
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.
05/16/2010 12:52 P-a-i-n#4
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 
05/16/2010 13:00 Visonar#5
[Only registered and activated users can see links. Click Here To Register...]
05/16/2010 13:02 P-a-i-n#6
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 
05/16/2010 13:06 Visonar#7
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!
05/16/2010 13:11 P-a-i-n#8
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
05/16/2010 13:21 Visonar#9
Quote:
Originally Posted by P-a-i-n View Post
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?
05/16/2010 13:24 P-a-i-n#10
der kommt automatisch wenn du es gemacht hast per popup fenster
05/16/2010 13:46 Visonar#11
hab schon geschafft!
endlich wieder 2008:D

€: 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
05/16/2010 13:48 P-a-i-n#12
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 
05/16/2010 13:57 Visonar#13
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.
05/16/2010 14:04 P-a-i-n#14
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 
05/16/2010 14:20 Visonar#15
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:D:D
Page 1 of 2 1 2