kostenloser Webspace werbefrei: lima-city

Was mach ich falsch

lima-city → Forum → Programmiersprachen → Basic

1. Autor dieses Themas

   zordy

   

   zordy hat kostenlosen Webspace.

   10:04, 12.7.2007

   mein Programm funktioniert jetzt...naja fast nicht ganz wie ich es will
   If 0 = ABCD Then
   Msg = "System error occured!"
   If MsgBox("An Error occured:" & vbNewLine & Msg, vbExclamation & vbOKCancel) = vbOK Then
   End If
   
   ich dachte so schreib ich eine Msgbox mit OK und Cancle zeichen aber nix!
   was mach ich falsch!
   Wie bekomm ich eine mit stop zeichen

2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

3. cbhp

   Co-Admin

   cbhp hat kostenlosen Webspace.

   14:07, 12.7.2007

   Wie schon das Wort "vbExclamation" sagt, handelt es sich um das gelbe Ausrufezeichen. Das rote X heißt vbCritical. Die Verknüpfung einzelner Konstanten bei der MsgBox muss mit dem Operator "Or" erfolgen. In VB 6 ist zwar "&" möglich, ist aber eigentlich nicht korrekt.
   
   
   

   Dim Message As String
   Dim abcd As Integer
   
   
   If 0 = abcd Then
     Message = "A system error occured."
   
     If MsgBox("The following error occured:" & vbNewLine & Message, vbOKCancel Or vbCritical, "Error Report") = vbOK Then
       'OK was clicked.
     Else
       'Something else was clicked.
     End If
   
   End If

   
   
   Beitrag geändert: 12.7.2007 14:10:02 von cbhp
4. Autor dieses Themas

   zordy

   

   zordy hat kostenlosen Webspace.

   16:24, 12.7.2007

   ne war ein anderer fehler hab das teil aus dem excel heraus gemacht und deshalb nur excel Msgs angezeigt und keine system msgs
   danke trotzdem
   mfg

5. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?