Klasse aus Windows Forms Projekt als DLL einzeln erstellen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Matix Media.

    @xChRoNiKx & @'Nolde' ich weiß wie man eine DLL als einzeldes Projekt erstellt, das Problem ist das diese Klasse auf Windows Forms Komponente zugreift und wenn ich diese in einer eilzel-Projekt-Klasse erstelle zeigt er es als Fehler an.
    Wenn es eine Möglichkeit geben würde diese zu Importieren wär das natürlich cool.

    code:

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System
    3. Imports System.Windows.Forms
    4. Imports System.Drawing
    5. Public Class WaterMarkTextBox
    6. Inherits TextBox
    8. Private oldFont As Font = Nothing
    9. Private waterMarkTextEnabled As Boolean = False
    11. #Region "Attributes"
    12. Private _waterMarkColor As Color = Drawing.Color.Gray
    14. Public Property WaterMarkColor() As Color
    15. Get
    16. Return _waterMarkColor
    17. End Get
    18. Set(ByVal value As Color)
    19. _waterMarkColor = value
    20. Me.Invalidate()
    21. End Set
    22. End Property
    24. Private _waterMarkText As String = "Water Mark"
    26. Public Property WaterMarkText() As String
    27. Get
    28. Return _waterMarkText
    29. End Get
    30. Set(ByVal value As String)
    31. _waterMarkText = value
    32. Me.Invalidate()
    33. End Set
    34. End Property
    35. #End Region
    37. ' Default constructor
    38. Public Sub New()
    39. JoinEvents(True)
    40. End Sub
    42. Private Sub JoinEvents(ByVal join As Boolean)
    43. If join Then
    44. AddHandler(TextChanged), AddressOf WaterMark_Toggle
    45. AddHandler(LostFocus), AddressOf WaterMark_Toggle
    46. AddHandler(FontChanged), AddressOf WaterMark_FontChanged
    47. 'No one of the above events will start immeddiatlly
    48. 'TextBox control still in constructing, so,
    49. 'Font object (for example) couldn't be catched from within WaterMark_Toggle
    50. 'So, call WaterMark_Toggel through OnCreateControl after TextBox is totally created
    51. 'No doupt, it will be only one time call
    53. 'Old solution uses Timer.Tick event to check Create property
    54. End If
    55. End Sub
    57. Private Sub WaterMark_Toggle(ByVal sender As Object, ByVal args As EventArgs)
    58. If Me.Text.Length <= 0 Then
    59. EnableWaterMark()
    60. Else
    61. DisableWaterMark()
    62. End If
    63. End Sub
    65. Private Sub WaterMark_FontChanged(ByVal sender As Object, ByVal args As EventArgs)
    66. If waterMarkTextEnabled Then
    67. oldFont = New Font(Font.FontFamily, Font.Size, Font.Style, Font.Unit)
    68. Refresh()
    69. End If
    70. End Sub
    72. Private Sub EnableWaterMark()
    73. 'Save current font until returning the UserPaint style to false (NOTE: It is a try and error advice)
    74. oldFont = New Font(Font.FontFamily, Font.Size, Font.Style, Font.Unit)
    76. 'Enable OnPaint Event Handler
    77. Me.SetStyle(ControlStyles.UserPaint, True)
    78. Me.waterMarkTextEnabled = True
    80. 'Trigger OnPaint immediatly
    81. Refresh()
    83. End Sub
    85. Private Sub DisableWaterMark()
    86. 'Disbale OnPaint event handler
    87. Me.waterMarkTextEnabled = False
    88. Me.SetStyle(ControlStyles.UserPaint, False)
    90. 'Return oldFont if existed
    91. If Not oldFont Is Nothing Then
    92. Me.Font = New Font(Font.FontFamily, Font.Size, Font.Style, Font.Unit)
    93. End If
    94. End Sub
    96. ' Override OnCreateControl
    97. Protected Overrides Sub OnCreateControl()
    98. MyBase.OnCreateControl()
    99. WaterMark_Toggle(Nothing, Nothing)
    100. End Sub
    102. ' Override OnPaint
    103. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
    104. ' Use the same font that was defined in base class
    105. Dim drawFont As Font = New Font(Font.FontFamily, Font.Size, Font.Style, Font.Unit)
    106. ' Create new brush with gray color or
    107. Dim drawBrush As SolidBrush = New SolidBrush(Me.WaterMarkColor) 'use WaterMarkColor
    108. ' Draw Test or WaterMark
    109. e.Graphics.DrawString(IIf(waterMarkTextEnabled, WaterMarkText, Text).ToString(), drawFont, drawBrush, New Point(0, 0))
    110. MyBase.OnPaint(e)
    111. End Sub
    113. End Class​
    Grüße, Matix

    Dann setze halt den nötigen Verweis.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Für System.Windows.Forms, natürlich System.Windows.Forms.

    Doppelklick im Projektmappenexplorer auf "MyProject", Verweise auswählen, verweiss hinzufügen wählen und TADA:
    Cloud Computer? Nein Danke! Das ist nur ein weiterer Schritt zur totalen Überwachung.
    „Wer die Freiheit aufgibt, um Sicherheit zu gewinnen, wird am Ende beides verlieren.“
    Benjamin Franklin