Послать текст контролу

[step]

Есть контрол, на нём есть текст бокс, как при нажатии на кнопку, расположенную на форме, чего-нить писалось в текстбоксе, расположенном на контроле ?

[Шурик]

Так и пиши:

Код: Выделить всё

Private Sub Command1_Click()
    Text1.Text = "TEST"
End Sub


или я чета не понял

[RayShade]

Не понял У него бокс не на форме а на контроле

[Шурик]

Блин, сорри
Не то...

[Морфий]

step
А у тебя есть исходник этого контрола?
Если есть, то создаешь в контроле новое свойство, например, text, и потом на форме пишешь:

Код: Выделить всё

Private Sub Command1_Click()
    YourControl.Text = "TEST"
End Sub


[step]

Вот:

На контроле:

Код: Выделить всё

Public Property Get textbox()
Set textbox = UserControl.Text1
End Property


На форме:

Код: Выделить всё

Private Sub Command1_Click()
UserControl11.textbox = "TEKCT"
End Sub


Всем огромное спасибо!

[Arcanoid]

Есть контрол, на нём есть текст бокс, как при нажатии на кнопку, расположенную на форме, чего-нить писалось в текстбоксе, расположенном на контроле ?

Найти в контроле окно текстбокса через GetWindow() и вызвать SetWindowText() ))))))))

[step]

А ещё, если в контроле стоит линия, как изменить её координаты из формы? Т.е.

Код: Выделить всё

Public Property Get textbox() as ТУТ ЧЁ ПИСАТЬ
Set textbox = UserControl.line1
End Property


[Arcanoid]

Лайн ?!

[Qubicz]

UserControl.line1.X1
UserControl.line1.Y1
UserControl.line1.X2
UserControl.line1.X2
?

[step]

Повторяю вопрос ещё раз:
Есть контрол, на котором есть линия, этот контрол расположен на форме и на форме стоит кнопка, при нажатии на которую координаты линии, стоящей на конроле, который стоит на форме, изменялись.
Как это сделать?

[uhm]

...в доме, который построил Джек...

У контрола либо задаешь public properties с координатами линии и изменяешь их при нажатии кнопочки, либо (что лучше) задаешь метод, который получает 4 параметра - координаты и по ним перерисовывает линию.

[step]

...в доме, который построил Джек...

У контрола либо задаешь public properties с координатами линии и изменяешь их при нажатии кнопочки, либо (что лучше) задаешь метод, который получает 4 параметра - координаты и по ним перерисовывает линию.

Можно пример, или код?

[Arcanoid]

Код: Выделить всё

Public Sub ChangeLine(byval X1 as long, byval Y1 as long, byval X2 as long, byval Y2 as long)
   UserControl.Line1.X1 = X1
   UserControl.Line1.Y1 = Y1
   UserControl.Line1.X2 = X2
   UserControl.Line1.Y2 = Y2
end sub

-------

public Sub CommandButton_Click()
   TvojKonrolVForme.ChangeLine(100,200,300,400)
end sub


[step]

Arcanoid
Спачиб тебе, это то, что я искал!

[Tarik]

А ещё в качестве параметра можно добавить clLine as Object, тогда процедура вообще универсальная будет...