![]() Nach sevMail hat Tools & Components wieder etwas Neues herausgebracht: sevWizard ActiveX. "Ein ActiveX-Control, mit dem sich im Handumdrehen eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP erstellen lassen."15.08.02Ein Bericht von Monika Knödel Dieser Satz stammt aus der dem Tool beigefügten Hilfe. Neugierig wie ich bin, interessierte mich das, vor allem diese Behauptung "im Handumdrehen". Geht es wirklich so einfach und schnell? Also - ausprobieren war angesagt. Zuerst mal ein kurzer Überblick über Einsatzgebiet und Funktionen der sevWizard ActiveX-Komponente: sevWizard ist eine 32-Bit OCX-Komponente für den Einsatz in Visual Basic 5/6. Mit der sevWizard-Komponente ist es möglich, eigene Anwendungsprogramme mit einem Assistenten à la Microsoft auszustatten - und zwar in Windeseile
Sie brauchen jetzt nur noch die benötigten Elemente auf die einzelnen WizardPages zu verteilen und schon ist Ihr Assistent fertig gestellt. Features Allgemein
sevWizard(Page)-Control
Installation Systemvoraussetzungen Ausprobieren der Komponente Nachdem ich die Komponente installiert hatte, galt mein erster Blick wieder mal dem mitgelieferten Beispiel sowie der Hilfe. Das Beispiel ist sehr ausführlich und man kann
hier schon mal diverse Einstellungen ausprobieren, wie z. B. die Farben des Headers auf schöne grelle Neonfarben setzen Da ich aber ausprobieren wollte, wie das Ganze überhaupt funktioniert, habe ich erst mal ein neues Projekt gestartet und diesem die Komponente mittels "Komponenten" hinzugefügt. Anschließend habe ich ein sevWizard-Control und mehrere sevWizardPage-Controls auf meine Form gezogen, die vorhandenen Standard-Buttons ausgeblendet und meine sevCommandButtons, die einfach besser aussehen, eingefügt. Mit einem Minimum an Code (den ich aus der Hilfe geklaut habe) funktioniert die Navigation von Seite zu Seite und wieder zurück prima: Private Sub sevWizard1_PageChanged(ByVal iOldPage As Integer, _ ByVal iNewPage As Integer) ' Schaltflächen-Status setzen With sevWizard1 cmdBack.Enabled = Not (.IsFirstPage) cmdNext.Caption = IIf(.IsLastPage, "&Fertigstellen", "&Weiter") End With End Sub Private Sub cmdBack_Click() ' Klick auf Zurück-Button sevWizard1.GoBack End Sub Private Sub cmdNext_Click() ' Weiter / Fertigstellen If sevWizard1.IsLastPage Then ' Fertigstellen... Else ' Weiter-Button sevWizard1.GoNext End If End Sub Noch einfacher ist es natürlich, wenn man die integrierten Standard-Buttons verwendet: dann braucht man nämlich gar keinen Code für die Navigation von Seite zu Seite. Klar, ein bisschen Zeit musste ich schon investieren, um überhaupt durchzublicken. Aber wenn man das mal gemacht hat, dann geht es wirklich "im Handumdrehen", da wurde nichts Falsches versprochen. Registrierung Die volle Entwicklerversion kostet 49,00 Euro. In Anbetracht dessen, dass keine weiteren Lizenzgebühren anfallen, egal wie oft man seine Anwendung verkauft, ist der Preis mit Sicherheit nicht zu hoch. Gesamteindruck Bewertung
Fazit Kontakt Diese Seite wurde bereits 17.197 mal aufgerufen. |
sevWizard für VB5/6 ![]() Professionelle Assistenten im Handumdrehen Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Tipp des Monats ![]() Manfred Bohn IndexOf für mehrdimensionale Arrays Die generische Funktion "IndexOf" ermittelt das erste Auftreten eines bestimmten Wertes in einem n-dimensionalen Array 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. |