Zufallsnachricht erscheinen lassen

[cobfreaky]

Guten Abend Community,

Ich brauche dringend Hilfe bei einem Projekt, dass in VB6 Gecodet ist.

Also, ich habe 2 Message Boxen, diese sollen nach dem Zufallsprinzip erscheinen, also ca. so:

MsgBox1, MsgBox1, MsgBox2, MsgBox1, MsgBox2 etc.

Das ganze soll durch einen Klick auf einen Button ausgelöst werden. Mein jeziger Code funktioniert nicht, schlimmer sogar, beim Klick auf den Button kommt "Runtime Error '424'".

Ich wäre euch sehr dankbar, wenn ihr mir helfen oder sogar einen ganzen Code posten könntet.

Gruß,
cobfreaky

 

[FwDonnerbalken]

N'Abend,

bitte poste doch mal deinen Code, vielleicht finden wir deinen Fehler gemeinsam!

 

[wincnc]

Hallo, hier ein Beispiel:

Private MsgTexte(4) As String ' Array für die Texte der MsgBox

Private Sub Command1_Click()
Dim Nr As Integer

  Randomize -Timer
  
  ' Zufallszahl zwischen 0 und 4 ermitteln
  Nr = UBound(MsgTexte) * Rnd

  MsgBox MsgTexte(Nr), vbInformation, "Zufallsnachricht"

End Sub

Private Sub Form_Load()
  ' Array mit Texten füllen
  MsgTexte(0) = "Hallo"
  MsgTexte(1) = "Guten Morgen"
  MsgTexte(2) = "Guten Tag"
  MsgTexte(3) = "Guten Abend"
  MsgTexte(4) = "Bis Später"
End Sub

 

[cobfreaky]

Hier mein Code:

 If Button1Click Then Rnd MsgBox ("Blubb...") or ("Blubb.....")

Danke schonmal für die schnellen Antworten

Gruß,
cobfreaky

 

[rat-cop]

Der Code von wincnc sollte dir eigentlich weiter helfen. Du musst nur die drei letzten MsgTexte wegkuerzen und das Array fuer die Textbox auf "1" stellen. Dann sollte er zwischen zwei Nachrichten wechseln.

 

[cobfreaky]

Ich habe schon mit dem Code gearbeitet, leider kommt es nie zur .exe erstellung.

Fehler

Private Sub Command1_Click()

Antwort von VB: Amiguos name detected

Ich hatte mich schon an die 5 Boxen angepasst, nur leider kommt noch der oben gennante Fehler.

 

[rat-cop]

Dann poste mal bitte den Code, denn irgendwo hast du einen doppelten Eintrag/Variable vergeben. Mit einer Zeile koennen wir nicht viel anfangen.

gruss,
rat-cop

 

[Alex F.]

Ich habe schon mit dem Code gearbeitet, leider kommt es nie zur .exe erstellung.

Fehler

Private Sub Command1_Click()

Antwort von VB: Amiguos name detected

Ich hatte mich schon an die 5 Boxen angepasst, nur leider kommt noch der oben gennante Fehler.

Das bedeutet die Sub Command1_Click gibt es mindestens 2 mal