Wie kann ich SelectionRules unter design entwurf ändern zb wie bei Textbox?

  • VB.NET

    Wie kann ich SelectionRules unter design entwurf ändern zb wie bei Textbox?

    Ausgelagert aus: Beim Eigenen Control Größenänderung enschränken

    Hallo Leute!
    Wie kann ich SelectionRules unter design entwurf ändern zb wie bei Textbox?

    habe gerade herausgefunden
    sieht folgendermaßen aus

    VB.NET-Quellcode

    1. <Designer(GetType(MyControlDesigner))>
    2. Public Class MyControl
    3. Inherits Control
    4. Public Enum emTest
    5. Ändern= 0
    6. Sperren= 1
    7. End Enum
    8. Dim tmpTest As emTest
    9. Public Property Test() As emTest
    10. Get
    11. Return tmpTest
    12. End Get
    13. Set(Test As emTest)
    14. tmpTest = Test
    15. End Set
    16. End Property
    17. End Class
    19. Public Class MyControlDesigner
    20. Inherits ControlDesigner
    22. Public Sub New()
    23. End Sub
    25. Public Overrides ReadOnly Property SelectionRules As SelectionRules
    26. Get
    27. Dim rules As SelectionRules
    28. rules = MyBase.SelectionRules
    29. If (CType(MyBase.Control, MyControl).Test= MyControl.Test.Ändern) Then
    31. rules = SelectionRules.LeftSizeable Or
    32. SelectionRules.RightSizeable Or SelectionRules.Visible Or
    33. SelectionRules.Moveable
    34. Else
    35. rules = SelectionRules.Locked
    36. End If
    38. Return rules
    39. End Get
    40. End Property
    42. End Class

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcus Gräfe“ ()

Facebook
Telefonspende