Я полагаю, что это будет работать:
TextArea.Text = "Line 1" & vbCrLf & "Line 2"
Система. Среда. NewLine мог использоваться вместо vbCrLf, если бы Вы хотели быть немного меньшим количеством VB6 об этом.
Наконец-то я заставил это работать в VB. Мне пришлось отключить оператор Set, по сути превратив свойство Overridden AutoSize в свойство только для чтения.
Public Overrides Property AutoSize() As Boolean
Get
Return MyBase.AutoSize
End Get
Set(ByVal value As Boolean)
'Do nothing here
End Set
End Property
Спасибо NascarEd за то, что указал мне правильное направление.
На всякий случай, чтобы установить для свойства autosize значение False в окне свойств, вам необходимо установить атрибут: -
Общедоступное переопределяет свойство AutoSize () как логическое ....
В своем классе меток вы должны переопределить свойство AutoSize.
//(In C#)
[System.ComponentModel.Browsable(false)]
[System.ComponentModel.DesignerSerializationVisibility(System.ComponentModel.DesignerSerializationVisibility.Hidden)]
public new bool AutoSize
{
get { return base.AutoSize; }
set { base.AutoSize = value; }
}
Browsable (false) скроет свойство во время разработки, а атрибут DesignerSerializationVisibility скажет дизайнеру не писать никакого кода в файл дизайнера.
Если вы перейдете в режим разработки для нового элемента управления, который вы создаете, вы сможете выбрать этот элемент управления и изменить свойства по своему усмотрению. С этого момента всякий раз, когда вы добавляете этот элемент управления в форму (или другой элемент управления), он будет иметь свойства, которые вы установили там по умолчанию. Это должно позволить вам устанавливать значения по умолчанию, а также сохранять их видимыми, чтобы разработчики могли что-то изменить, если они не захотят изменять размер в будущем.
В качестве альтернативы, проверьте код, созданный дизайнером, так как он покажет вам именно что он сделал, чтобы добиться желаемого поведения.