An und für sich wollte ich, glaube ich, schon seit ich mit VB begonnen habe, eine bessere MsgBox programmieren. Es schien mir jedoch immer zu aufwendig, zu diesem Zweck einen solch riesigen Aufwand zu treiben. Stattdessen habe ich eine Form "zurecht gemacht", wenn die normale MsgBox nicht ausreichend für meine Zwecke war. In den letzten Monaten hatte ich mich zum 1-millionsten Mal darüber geärgert, dass in der Origina-MsgBox einfach ein Button fehlt, sowie die Möglichkeit, eine eigenen Beschriftung auf die Buttons zu bringen. Irgendwie wurde mir auf einen Schlag bewusst, dass der bisherige Aufwand, jedes Mal eine Form zu modifizieren, auch nicht viel geringer war, als der, eine "anständige" MsgBox zu programmieren. Also fing ich an die MsgBoxEx (GES) zu programmieren. Nach einigen Versuchen stellte ich fest, dass es nicht "mal eben schnell" zu machen war. Ich suchte im Internet nach schon vorhandenen Codes. Doch was ich dort fand, waren allesamt aufgeblähte, umständlich zu handhabende "Projekte". Dies entsprach nicht meiner Vorstellung eines einfach zu handhabenden Codes einer simplen MsgBox. Wenn ich eine MsgBox verwende, will ich nicht noch eine Anleitung studieren, die ich beim übernächsten Projekt wieder vergessen habe. Deshalb habe ich mich entschlossen, auf unnötigen Firlefanz zu verzichten und die MsgBoxEx (GES) so weit wie möglich am Original zu orientieren. Zudem sollte das Einfügen in ein beliebiges Projekt mit einfachem Hineinkopieren und Einbinden erledigt sein! So entstand ein Code, der zuverlässig funktioniert und den ich mittlerweile schon öfter verwendet habe. Es hat sich herausgestellt, dass meine Befürchtungen, dass ich den Code doch nicht mehr benutze, unnötig waren. Ich habe ihn schon mehrmals in verschiedenen Projekten benötigt und es war kinderleicht, ihn in diese einzubinden. Syntax (Original): MsgBox(Prompt[, Buttons As VbMsgBoxStyle = vbOkOnly] [, Title] [, Helpfile, Context]) As VbMsgBoxResult Syntax („MsgBoxEx (GES)“) MsgBoxEx(MsgText [, Buttons As String] [, ShowStyle As GES_ShowStyle] [, Title] [, HelpFile] [, Context]) As Integer Sie sehen, die beiden Aufrufe sind sehr ähnlich. Die "MsgBoxEx (GES)" trennt jedoch die eigentlichen Buttons und den Anzeige-Stil. Sie ist auch um einiges flexibler bei der Angabe einer Hilfedatei Die Handhabung wird in der Hilfe unter "Eingeben von Button-Captions" und "Aufrufen einer Hilfe-Datei" beschrieben. Die „MsgBoxEx (GES)“ hat folgende Vorteile:
Ebenso beherscht die „MsgBoxEx (GES)“ (fast) alle Features der "normalen" MsgBox, z.B.:
Was die „MsgBoxEx (GES)“ nicht kann:
Handhabung ist sehr einfach: Skins Dieser Tipp wurde bereits 22.961 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
TOP! Unser Nr. 1 Neu! sevDataGrid 3.0 Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |