Har någon kod för hur man får msgboxen i VB till att själv svara på ett alternativ efter ett visst antal sekunder, så att programmet inte stannar upp vid denna fråga?

Jag har inte testat denna koden, men den kanske funkar, vem vet. I koden där msgboxen kommer fram lägger du till
Timer1.Enabled = True

Option Explicit
Public time as Integer

Private Sub Form_Load ()
time = 0
End Sub

Private Sub Timer1_Timer() 'det kanske ska stå nått inom parentesen också. Glöm inte att sätta "Intervall" till 1000
time = time + 1
If time = 5 Then
Sendkeys "{ENTER}" 'osäker om det ska vara med citationstecken
time = 0
Timer1.Enabled = False
End If
End Sub

'byt femman mot det antal sekunder som ska gå innan "han" 'ska trycka på Defaultknappen

Jag är osäker på om detta funkar, det finns risk att msgboxen avmarkeras när Timer1_Timer inträffar.

MvH Dan "DaPe" Persson

Jag har testat den, men den funkade inte. "Han" tryckte på Enter EFTER man själv tryckt på en knapp, vilket kan bli aningens fel.

Du kan väl försöka ändra lite på koden själv. Tyvärr hinner jag inte göra det nu.


MvH Dan "DaPe" Persson

http://www.mvps.org/vbnet/code/callback/messageboxhooktimerapi.htm

/peterh