Rubrik: Controls · UserControl | VB-Versionen: VB5, VB6 | 29.04.02 |
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: | Views: 16.444 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
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
- 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.
- 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
- Wählen Sie aus dem Menü Extras den Eintrag Prozedurattribute
- Suchen Sie in der Liste den Eintrag ShowAboutBox
- Klicken Sie auf die Schaltfläche Weitere
- 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.