[VB/VBA] MessageBoxen Gleichzeitig öffnen?

MrDick · 18. November 2005

moinsen,

wollte mal fragen ob es in VBA oder VB möglich ist mehrere MsgBoxen gleichzeitig zu öffnen. In erster Linie würde es mich für VBA interessieren wenn es aber nur in VB gehen sollte bin ich für diese Lösung auch sehr dankbar.

Hoffe das ist nicht zu schwer.

Anzeige

The Doctor · 18. November 2005

naja mehrere msgboxen gleichzeitig is ja kein prob!
Du schreibst einfach 10 hin...

Code:

MsgBox "toll"
MsgBox "bin"
MsgBox "ich"

wobei die sich dann überlappen und bei der ausgabe dann natürlich in der 1. steht: Ich
2. bin
3. toll

Theoretisch kannste das auch mit ner schleife machen!

vorher ne variable machen

Code:

Option Explicit
dim i as integer
dim inhalt(1 to 100) as string '1 to wieviel de willst

Private Sub Command1_Click()
inhalt(1)="abc" 'musste dann wohl selbst hier quasi beschriften was drin stehen soll
inhalt(2)="def"
inhalt(3)="hij"
etc.

For i = 1 To 100
MsgBox inhalt(i)
Next

würde dann auch gehen per schleife!

Hab die frage so verstanden, ansonsten schreib nochma genauer was du machen willst ^^

MrDick · 18. November 2005

moinsen,

also dann kommen die sachen ja nacheinander sie sollen aber alle Gleichzeitig auf dem Bildschirm erscheinen.

Hier mal ein Link wo so eine Art Programm ist....

http://lustich.de/lustich/programmedb-programme-52-4.html

Es sollen sich also GLEICHZEITIG mehrere Messageboxen öffnen.

The Doctor · 18. November 2005

was bringt dir das?
wenn die sich unmittelbar nacheinander öffnen macht das kein unterschied, aufhalten kann man's eh nit!

Evtl. versteh ich's wenn du kurz erläutern kannst was du damit vor hast...

DarkRaven · 18. November 2005

das auf dem screenshot ist keine MSGbox, das ist eine einfache Form die nur so aus sieht wie eine MSGbox

ist nicht möglich mehrere MSGboxen in einer Form zu starten (dürfte eigentlich nicht gehen)

w!ns0ck · 19. November 2005

Also denke das geht net..

aber du kannst einfach ne neue form anzeigen lassen, da nen Text reinschreiben und die dann beliebig oft öffnen..
anleitung:

1. Erst ma ne neue Form anlegen mit Name frmMessage
2. in die neue Form ein label setzen namens lblMessage..
Die schrift des labels kansnte noch verändern
3. Danach nen Button cmdClose, kannste beschriften wie du willst
4. Dann in die erste Form folgenden Code kopieren:

Code:

Option Explicit

Private Sub Form_Load()
Dim i, frmKopie As frmMessage
Me.Hide
For i = 1 To 10 'Die 10 kannste natürlich ersetzen
 With frmMessage
 .lblMessage.Caption = "Die nachricht die du anzeigen lassen willst"
 Set frmKopie = New frmMessage
 frmKopie.Show
 
 End With
Next i
End Sub

6. In die frmMessage folgenden Code kopieren:

Code:

Option Explicit

Private Sub cmdClose_Click()
Unload Me
End Sub

Fertig

Nützliche Suchen

[VB/VBA] MessageBoxen Gleichzeitig öffnen?

Videos zum Themenbereich