ABOUT Visual Basic Programmieren Programmierung Download Downloads Tips & Tricks Tipps & Tricks Know-How Praxis VB VBA Visual Basic for Applications VBS VBScript Scripting Windows ActiveX COM OLE API ComputerPC Microsoft Office Microsoft Office 97 Office 2000 Access Word Winword Excel Outlook Addins ASP Active Server Pages COMAddIns ActiveX-Controls OCX UserControl UserDocument Komponenten DLL EXE
Diese Seite wurde zuletzt aktualisiert am 24.10.2000

Diese Seite wurde zuletzt aktualisiert am 24.10.2000
Aktuell im ABOUT Visual Basic-MagazinGrundlagenwissen und TechnologienKnow How, Tipps und Tricks rund um Visual BasicActiveX-Komponenten, Controls, Klassen und mehr...AddIns für die Visual Basic-IDE und die VBA-IDEVBA-Programmierung in MS-Office und anderen AnwendungenScripting-Praxis für den Windows Scripting Host und das Scripting-ControlTools, Komponenten und Dienstleistungen des MarktesRessourcen für Programmierer (Bücher, Job-Börse)Dies&Das...

Themen und Stichwörter im ABOUT Visual Basic-Magazin
Code, Beispiele, Komponenten, Tools im Überblick, Shareware, Freeware
Ihre Service-Seite, Termine, Job-Börse
Melden Sie sich an, um in den vollen Genuss des ABOUT Visual Basic-Magazins zu kommen!
Informationen zum ABOUT Visual Basic-Magazin, Kontakt und Impressum

Zurück...

Options-Alternativen

Zurück...


Anzeige

(-hg) mailto:hg_ownoption@aboutvb.de

Wenn Ihnen das Standard-Aussehen des OptionButtons nicht gefällt, und wenn Ihnen auch die Variante als grafische Schaltfläche nicht gefällt, können Sie auch eigene Options-Steuerelemente auf der Basis eines UserControls erstellen.


Eigene Options-Steuerelemente, die sich wie originale OptionButtons verhalten

Damit sich Ihr eigenes Options-Steuerelement wie das Original verhält (gegenseitiges Auslösen aller im gleichen Container bzw. im gleichen Form enthaltenen Options-Steuerelemente), ist lediglich ein kleiner Trick notwendig. Die Eigenschaft, die den Zustand (Wert, Value) der Option darstellen soll, muss als Datentyp MSDN Library - VB Standard Control Property TypesOLE_OPTEXCLUSIVE deklariert sein. Dieser spezielle Datentyp entspricht intern dem Datentyp Boolean. Wird eine Eigenschaft eines ActiveX-Steuerelements (UserControls) mit diesem Datentyp deklariert und als Standard-Eigenschaft des betreffenden Steuerelements festgelegt, erkennt Visual Basic daran (bzw. ein anderer OLE-Container), dass das Steuerelement eine Option darstellt, und sorgt für das gegenseitige Auslösen, ohne dass Sie weiter etwas dazu tun müssten.

Die Standard-Eigenschaft legen Sie im Dialog "Prozedurattribute" fest (das Code-Modul des UserControls muss geöffnet und aktiv sein, dann Menü Extras). In der Auswahlliste "Prozedur-ID" (sie wird nach einem Klick auf "Weitere..." sichtbar) wählen Sie "(Voreinstellung)".


Im Dialog "Prozedurattribute" legen Sie die Standard-Eigenschaft eines Objekts fest

Der folgende Code zeigt Ihnen ein Grundgerüst für ein eigenes Options-Steuerelement.

Private pValue As OLE_OPTEXCLUSIVE

Public Property Get Value() As OLE_OPTEXCLUSIVE
  Value = pValue
End Property

Public Property Let Value(ByVal New_Value As OLE_OPTEXCLUSIVE)
  If New_Value <> pValue Then
    pValue = New_Value
    PropertyChanged "Value"
' zB Darstellung des Zustands:
    Select Case pValue
      Case False
        UserControl.BackColor = vbGreen
      Case True
        UserControl.BackColor = vbRed
    End Select
  End If
End Property

Private Sub UserControl_Click()
  Me.Value = True
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  Me.Value = PropBag.ReadProperty("Value", False)
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  PropBag.WriteProperty "Value", pValue, False
End Sub

Beispiel-Control und Projekt OwnOption (ownoption.zip - ca. 3,2 KB)


Artikel
Zum Download-Bereich dieses Artikel
Mail an den Autor dieses Artikels

KnowHow
Zur KnowHow-Übersicht

KnowHow-Themen
Themen - Allgemeines
Themen - Entwicklungsumgebung (VB-IDE)
Themen - Forms
Themen - Steuerelemente (Controls)
Themen - Grafik
Themen - Dateien
Themen - UserControls
Themen - Einsteiger-Tipps
Themen - Wussten Sie...?

Übersicht nach Titeln in alphabetischer Reihenfolge
Übersicht nach Erscheinungsdatum

Schnellsuche



Zum Seitenanfang

Copyright © 1999 - 2017 Harald M. Genauck, ip-pro gmbh  /  Impressum

Zum Seitenanfang

Zurück...

Zurück...

Download Internet Explorer