Private Sub UserControl_ReadProperties(PropBag As PropertyBag) txt.BackColor = PropBag.ReadProperty(\"BackColor\", &H80000005) Set txtTemp.Font = PropBag.ReadProperty(\"Skrifttype\", Ambient.Font) End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag) Call PropBag.WriteProperty(\"BackColor\", txt.BackColor, &H80000005) Call PropBag.WriteProperty(\"Skrifttype\", txtTemp.Font, Ambient.Font) End Sub
OK. Du bør helt sikkert bruge de Wizards der kommer med VB. Hvis du ikke allerede har brugt \'VB ActiveX Control Interface Wizard\', så skal du lige kører din komponent igennem den (Den laver nogle kommentarer som den anden wizard skal bruge). Derefter starter du \'VB Property Page Wizard\', som giver dig skelettet til en \'Property Page\'. Derefter er du faktisk kørende.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.