[i_am_Beginner]

Hello Guys
i Have a Problem in VB.NET With EtherealTheme ,
i cannot add a multiline in textbox ,multiline function = false and locked cannot change to true
how to fix please help me ,....
EtherealTheme ...
https: //pastebin.com/BR0fkev7

[Vyxn]

Because there was no multiline function on that textbox.

[i_am_Beginner]

Because there was no multiline function on that textbox.

Public Overridable Shadows ReadOnly Property Multiline() As Boolean
Get
Return False
End Get
End Property

My Bro ...How can i Edit this code unlock multiline change to true

[SaketSaket]

check if you have something like this as property of that control..

Code

Private _multiLine As Boolean = False
   Public Shadows Property MultiLine() As Boolean
       Get
           Return _multiLine
       End Get
       Set(ByVal value As Boolean)
           _multiLine = value
           _tb.Multiline = value
           OnResize(EventArgs.Empty)
           Invalidate()
       End Set
   End Property

you need something like this in paint event...

Code

Protected Overrides Sub OnResize(e As EventArgs)
       MyBase.OnResize(e)
       If Not MultiLine Then
           Dim tbheight As Integer = _tb.Height
           _tb.Location = New Point(10, CType(((Height / 2) - (tbheight / 2) - 1), Integer))
           _tb.Size = New Size(Width - 20, tbheight)
       Else
           _tb.Location = New Point(10, 10)
           _tb.Size = New Size(Width - 20, Height - 20)
       End If
   End Sub

Regards
Saket

Edit : I just added these lines from my one theme...

[i_am_Beginner]

Thanks For all Guys , i am Fixed ....