TextBox в качестве параметра функции/процедуры

[Голованов Д.]

Доброго времени суток.

Вопрос следующий. Как передать в процедуру/функцию в качестве параметра ссылку на текстбокс таким образом, что бы можно было внутри процедуры/функции читать/записывать свойства этого текстбокса?

Процедура:

Public Sub MyFunc(aTB As TextBox)
    ...
End Sub

Вызов:

Call MyFunc(Me.TextBox2)
MyFunc Me.TextBox2

В обоих случаях эррор 13: Type mismatch

[viter.alex]

Передавать нужно не по значению (ByVal), а по ссылке (ByRef), это раз. Ну и правильно объявить тип, это два.

Public Sub ChangeTextbox(ByRef MyTextbox As MSForms.textbox)
  MyTextbox.Text = "Текст изменен в процедуре"
End Sub

Private Sub UserForm_Initialize()
  Call ChangeTextbox(TextBox1)
End Sub

[Голованов Д.]

О! Работает! )) Благодарствую! А то уже голову сломал себе.

ЗЫ: Передавать можно как угодно, и по значению и по ссылке. Только при передече по значению, насколько я понимаю, появится дополнительный указатель на Текстбокс.

[viter.alex]

Если передавать по значению, то создается еще один экземпляр объекта, с которым и работает процедура. При передаче по ссылке, передается сам объект. Для объектов внешне разница не заметна, ведь объект не клонируется, но передача по ссылке работает быстрее, особенно при работе с объектными данными.

[Голованов Д.]

Ваша правда, работатет конечно быстрее.

Ещё раз спасибо за помощь!

[Barul]

подскажите пожалуйста как передать значение Textbox в модуль ЭтаКнига, или вызвать ChangeTextbox в этом модуле

[viter.alex]

Сообщение от Barul

подскажите пожалуйста как передать значение Textbox в модуль ЭтаКнига, или вызвать ChangeTextbox в этом модуле

Нужно обратиться к нему через его родительскую форму:

UserForm1.TextBox1.Text

Ну и событие Change будет вызываться, когда ты попытаешься задать новый текст