InfoBox im UserControl (ActiveX) Hier zeigen wir Ihnen, wie sich das Anzeigen einer AboutBox aus dem Eigenschaftenfenster eines UserControls aufrufen lässt.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  5.318
www.tools4vb.de	System:  Win9x, WinNT, Win2000, WinXP, Vista	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 9 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.9 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Das Erstellen von eigenen UserControls (ActiveX-Controls) ist seit Visual Basic 5 möglich und wird auch dementsprechend genutzt. Wenn man sich einmal die von Microsoft zur Verfügung gestellten Controls anschaut, fällt einem auf, daß es im Eigenschaften-Fenster einen Eintrag Info gibt. Klickt man dann auf die kleine Schaltfläche mit den drei Punkten, so erscheint eine "AboutBox" mit Informationen zum ActiveX-Control (Hersteller, Version usw.).

Erstellt man sich nun sein eigenes UserControl (ActiveX-Control), so fehlt der Info-Eintrag im Eigenschaftenfenster.

Aber nicht mehr lange
Nachfolgend möchten wir Ihnen zeigen, wie Sie diesen Info-Eintrag in das Eigenschaftenfenster Ihres UserControls bringen.

Folgende Vorgehensweise

1. Fügen Sie dem UserControl eine neue Form hinzu und nennen Sie diese frmAbout. Die Form selbst können Sie gestalten, wie Sie möchten - eben ganz nach Belieben.
2. Fügen Sie in den Codeteil des UserControl eine Prozedur ein und nennen Sie diese ShowAboutBox. Hinterlegen Sie hier folgenden Code:

   ' Info-Fenster anzeigen
   Public Sub ShowAboutBox()
     Load frmAbout
     frmAbout.Show vbModal
     Unload frmAbout
   End Sub

3. Wählen Sie aus dem Menü Extras den Eintrag Prozedurattribute
4. Suchen Sie in der Liste den Eintrag ShowAboutBox
5. Klicken Sie auf die Schaltfläche Weitere
6. Legen Sie unter Prozedur ID den Eintrag AboutBox fest.

Ab sofort erscheint im Eigenschaftfenster der Eintrag Info. Beim Klicken auf die kleine Schaltfläche mit den drei Punkten wird dann Ihr frmAbout-Fenster angezeigt.