Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: ReadProperties - WriteProperties
Autor: Ronny42DAch
Datum: 04.10.01 00:28
Set Picture = PropBag.ReadProperty("LoadImageEnabled", Nothing) Set Picture = PropBag.ReadProperty("LoadImageDisabled", Nothing) Call PropBag.WriteProperty("LoadImageEnabled", Picture, Nothing) Call PropBag.WriteProperty("LoadImageDisabled", Picture, Nothing) Die 4 Zeihlen habe ich drinne - da der ActiveX Assistent das erledigt kann ich dir nichtmal viel dazu sagen Properybags komplett (Bags?) Private Sub UserControl_ReadProperties(PropBag As PropertyBag) ' ButtonLabel.BackColor = PropBag.ReadProperty("BackColor", &H8000000F) ' UserControl.Enabled = PropBag.ReadProperty("Enabled", Wahr) Set ButtonLabel.Font = PropBag.ReadProperty("Font", Ambient.Font) Set Picture = PropBag.ReadProperty("LoadImageEnabled", Nothing) Set Picture = PropBag.ReadProperty("LoadImageDisabled", Nothing) m_ImageHeight = PropBag.ReadProperty("ImageHeight", m_def_ImageHeight) m_ImageWidth = PropBag.ReadProperty("ImageWidth", m_def_ImageWidth) ' m_ImageAllignment = PropBag.ReadProperty("ImageAllignment", m_def_ImageAllignment) ButtonLabel.Caption = PropBag.ReadProperty("Caption", "ButtonLabel") Set MouseIcon = PropBag.ReadProperty("MouseIcon", Nothing) ' UserControl.MousePointer = PropBag.ReadProperty("MousePointer", 0) ' m_ToolTipText = PropBag.ReadProperty("ToolTipText", m_def_ToolTipText) ' m_WhatsThisHelpID = PropBag.ReadProperty("WhatsThisHelpID", m_def_WhatsThisHelpID) ZeichneUP UserControl.ScaleHeight = PropBag.ReadProperty("ScaleHeight", 1989) UserControl.ScaleLeft = PropBag.ReadProperty("ScaleLeft", 0) UserControl.ScaleMode = PropBag.ReadProperty("ScaleMode", 1) UserControl.ScaleTop = PropBag.ReadProperty("ScaleTop", 0) UserControl.ScaleWidth = PropBag.ReadProperty("ScaleWidth", 6052) ButtonLabel.Alignment = PropBag.ReadProperty("Alignment", 2) ' m_ImageAlignment = PropBag.ReadProperty("ImageAlignment", m_def_ImageAlignment) ButtonLabel.Enabled = PropBag.ReadProperty("Enabled", Wahr) ' m_ImageAlignment = PropBag.ReadProperty("ImageAlignment", m_def_ImageAlignment) Timer1.Enabled = PropBag.ReadProperty("redraw", Wahr) m_ImageAlignment = PropBag.ReadProperty("ImageAlignment", m_def_ImageAlignment) End Sub Private Sub UserControl_WriteProperties(PropBag As PropertyBag) ' Call PropBag.WriteProperty("BackColor", ButtonLabel.BackColor, &H8000000F) ' Call PropBag.WriteProperty("Enabled", UserControl.Enabled, Wahr) Call PropBag.WriteProperty("Font", ButtonLabel.Font, Ambient.Font) Call PropBag.WriteProperty("LoadImageEnabled", Picture, Nothing) Call PropBag.WriteProperty("LoadImageDisabled", Picture, Nothing) Call PropBag.WriteProperty("ImageHeight", m_ImageHeight, m_def_ImageHeight) Call PropBag.WriteProperty("ImageWidth", m_ImageWidth, m_def_ImageWidth) ' Call PropBag.WriteProperty("ImageAllignment", m_ImageAllignment, m_def_ImageAllignment) Call PropBag.WriteProperty("Caption", ButtonLabel.Caption, "ButtonLabel") Call PropBag.WriteProperty("MouseIcon", MouseIcon, Nothing) ' Call PropBag.WriteProperty("MousePointer", UserControl.MousePointer, 0) ' Call PropBag.WriteProperty("ToolTipText", m_ToolTipText, m_def_ToolTipText) ' Call PropBag.WriteProperty("WhatsThisHelpID", m_WhatsThisHelpID, m_def_WhatsThisHelpID) Call PropBag.WriteProperty("ScaleHeight", UserControl.ScaleHeight, 1989) Call PropBag.WriteProperty("ScaleLeft", UserControl.ScaleLeft, 0) Call PropBag.WriteProperty("ScaleMode", UserControl.ScaleMode, 1) Call PropBag.WriteProperty("ScaleTop", UserControl.ScaleTop, 0) Call PropBag.WriteProperty("ScaleWidth", UserControl.ScaleWidth, 6052) Call PropBag.WriteProperty("Alignment", ButtonLabel.Alignment, 2) ' Call PropBag.WriteProperty("ImageAlignment", m_ImageAlignment, m_def_ImageAlignment) ' ''ACHTUNG! DIE FOLGENDEN KOMMENTIERTEN ZEILEN NICHT ENTFERNEN ODER VERÄNDERN! ''MappingInfo=imgEnabled,imgEnabled,-1,Enabled 'Public Property Get Enabled() As Boolean ' Enabled = imgEnabled.Enabled Call PropBag.WriteProperty("Enabled", ButtonLabel.Enabled, Wahr) 'End Property ' Call PropBag.WriteProperty("ImageAlignment", m_ImageAlignment, m_def_ImageAlignment) Call PropBag.WriteProperty("redraw", Timer1.Enabled, Wahr) Call PropBag.WriteProperty("ImageAlignment", m_ImageAlignment, m_def_ImageAlignment) End Sub

Click ereigniss grafisch umsetzen...	158	Ronny42DAch	03.10.01 22:44
Re: Click ereigniss grafisch umsetzen...	792	Dieter	03.10.01 22:55
das sieht gut aus...	139	Ronny42DAch	03.10.01 23:42
Re: das sieht gut aus...	725	Dieter	03.10.01 23:47
Re: das sieht gut aus...	119	Ronny42DAch	04.10.01 00:04
Eigenschaften verändern wie?	186	Ronny42DAch	04.10.01 00:11
Enum...	701	Dieter	04.10.01 00:25
Ich kann mir das ohne Online irgendwie garnicht denken..	116	Ronny42DAch	04.10.01 00:33
Re: Ich kann mir das ohne Online irgendwie garnicht denken..	605	Dieter	04.10.01 00:40
ReadProperties - WriteProperties	710	Dieter	04.10.01 00:22
Re: ReadProperties - WriteProperties	148	Ronny42DAch	04.10.01 00:28
Set Picture... Was ist Picture?	656	Dieter	04.10.01 00:33
Ich glaube gelöst..	104	Ronny42DAch	04.10.01 00:49

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen