Komplizierter Doppel-If code

27/09/2007 - 18:06 von Paul Retzer | Report spam
Hallo,
fast passt der code, aber leider nur fast ...:

Private Sub Button24_Click(ByVal sender As System.Object, ByVal

e As System.EventArgs) Handles Button24.Click

If Now.Day = 5 And Now.Month = 5 Then

Me.PictureBox1.Image = My.Resources.t24n

My.Computer.Audio.Play(My.Resources.WunschW, AudioPlayMode.

WaitToComplete)

Else

My.Computer.Audio.Stop()

MsgBox("Sorry, heute ist NICHT der 5. Mai! ")

End If

Zahl1 = Int(2 * Rnd())

If Zahl1 = 0 Then

My.Computer.Audio.Play(My.Resources.4m, AudioPlayMode.Background)

End If

If Zahl1 = 1 Then

My.Computer.Audio.Play(My.Resources.02, AudioPlayMode.Background)

End If

End Sub



Was ich will: Nachdem fall else eingetreten ist und die msg-box

startet, sollte der code enden und aus. Leider wird beim beenden

der msg-box einer der unteren codes weiterhin ausgeführt, also:

My.Computer.Audio.Play(My.Resources.4m, AudioPlayMode.Background)

My.Computer.Audio.Play(My.Resources.02, AudioPlayMode.Background)



Sicher wàre es einfacher, sogar sehr einfach, wenn ich nicht durch

zufall zwischen zwei liedern entscheiden wollte. Aber vieleicht

blickt sich da einer von euch durch :) Ansonsten muss ich die

zufalls-if anweisung rausnehmen und halt nur ein bestimmtes lied

abspielen. Aber gerade habe ich einen geistesblitz: Was ist, wenn

ich der msg-box befehle, nach dem schliessen ... ? Weiss zwar

gerade nicht weiter, aber vieleicht so ein stopbefehl? Bitte um
hilfe

und danke im voraus!


MFG: PR
 

Lesen sie die antworten

#1 Samaschke, Karsten
27/09/2007 - 18:17 | Warnen spam
Hi,

[Suche nach...]



Du suchst Exit Sub? Oder ein einfaches Return, das Du nach den
MessageBoxen einbaust?

Mit freundlichen Gruessen / Best regards

Karsten Samaschke
IT-Entwicklung, IT-Beratung, IT-Training
Web: http://www.ksamaschke.de
Blog: http://www.karsan.de
Lesen: http://www.xmldotnet.de

Ähnliche fragen