Text box ve Multiline problems solution
Hiii
Was given earlier i d'ont know but i too called and i have finally solved :)
now we need to do that
before usercontrol form open and 2 text box(text1,text2) and 1 shape1 form add in and one's of text box properties(text2) Multiline=true and scarollbars=2(vertical if more scrollbars properties want each scroll for text add are required)
after
After Code:
'General ..
Private m_MultiLine As Boolean
Private Sub UserControl_InitProperties()
m_MultiLine = False
'....
End Sub
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
m_MultiLine = PropBag.ReadProperty("MultiLine", False)
'....
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("MultiLine", m_MultiLine, False)
'...
End Sub
Public Property Get MultiLine() As Boolean
MultiLine = m_MultiLine
End Property
Public Property Let MultiLine(ByVal NewMultiLine As Boolean)
m_MultiLine = NewMultiLine
PropertyChanged "MultiLine"
Text1.Visible = False
Text2.Visible = True
boyut
End Property
Private Sub UserControl_Initialize()
boyut
End Sub
Private Sub UserControl_Resize()
boyut
End Sub
Sub boyut()
If UserControl.Width < 190 Then UserControl.Width = 190
If UserControl.Height < 250 Then UserControl.Height = 250
Shape1.Move 0, 0, UserControl.Width, UserControl.Height
If m_MultiLine = True Then
Text2.Move 20, 20, Shape1.Width - 40, Shape1.Height - 40
Text1.Visible = False
Text2.Visible = True
Else
Text1.Move 20, 20, Shape1.Width - 40, Shape1.Height - 40
Text1.Visible = True
Text2.Visible = False
End If
End Sub
' Note ... related parts your code
That's it :wave: