Добавить событие к объекту

[VB-constructor]

Добавить событие к объекту... line. Хотя бы мысль на этот счёт? Я что-то не пойму, это вообще возможно?
Скажет кто-нибудь?

[ANDLL]

public event Tralala()

[VB-constructor]

А добавить событие на объект line?
Чтобы типа

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

private sub line1_MouseMove(button as integer и т. д.)
'код
end sub


Потому что

public event Tralala()

Это не выход, как его использовать-то? Событие, которое мне нужно - уже объявлено. Нужно его привязать объекту что ли.
P/ S Пoмoгите, <pls>

[Хакер]

VB-constructor
Да нельзя сделать Line событие. Это не контролл вообще.

[VB-constructor]

А как можно сделать что-либо подобное? Есть предложения?

[Хакер]

конечно есть. предложенение всегда есть. Но рассказывать долго.

[VB-constructor]

Ну а намёк?

[Хакер]

Намёков нет. Выложу весь способ. Вопрос только куда - сюда или в ICQ ?

[ANDLL]

Это не контролл вообще

Это котнрол, кстати Он не имеет окна, но это еще не значит что это не котрол.
Доказательство:

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

MsgBox TypeOf Line1 Is Control

[Хакер]

не... я думал свойства Top, Left, Width, height наслудуются от базового класса для контролла.

Ну согласись, что всё таки это не контрол

[vvs_adm]

Вопрос только куда - сюда или в ICQ ?

Естественно сюда. Завтра еще кто-нить лайну событие захочет добавить и что? VB-constructor-у в аську стучаться?

[VB-constructor]

Давай лучше сюда

[alibek]

Ну согласись, что всё таки это не контрол

Контрол. LW-контрол.

[VB-constructor]

Контрол. LW-контрол.

Так значит можно как-нибудь к нему добавить событие или написать контрол подобный лайн?

[Konst_One]

сделай свой OCX на его основе и добавь туда нужные тебе события

[VB-constructor]

Ну в общем-то это и есть наверно единственное решение. помещаю линию на usercontrol, аишу события... И всё бы хорошо - но одна проблема: как сделать, чтобы форма usercontrola стала невидимой или исчезла, а с видимым элементом на ней можно было работать? Скажите пожалуйста

[tyomitch]

BackStyle: 0 - Transparent

[VB-constructor]

tyomitch, ты гений!
Всё работает и только одно смущает очень сильно ( и этим оно уступает linу как контролл): чтобы линия везде рисовалась, нужно растягивать форму контрола( хоть и прозрачного) на всё окно?
Т.к за пределами формы своего контрола она как ни крути она отображаться не хочет.

[tyomitch]

Из Property Let для Xn, Yn позиционируй свой контрол по родительской форме, как угодно душе.

[VB-constructor]

Ну а как там описать, что контрол должен с самого начала ложиться по всей форме(если я правильно понял)?
Вообще я привык пользоваться свойствами top и left, чтобы поместить верхний угол в начало координат. А внутри кода контролаа этих свойств нету (есть только - width и top).

[tyomitch]

Они у объекта Extender.
А растягивать его сразу на всю форму тебе и не нужно.

[VB-constructor]

Они у объекта Extender

Да че то не пашет
Короче даю код:
(Visual Basic)

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

Public Property Let firstX(ByVal New_firstX As Single)
    m_firstX = New_firstX
    PropertyChanged "firstX"
    UserControl.Extender.Top = m_firstX
End Property

Вот так ты себе всё это представляешь?
P.S. А как все делают нормальную подсветку при выводе кода, чтобы родные комманды Visual Basic синие были?

[tyomitch]

Угу, примерно. А что не так?

Подсветку кода нормальную ещё не сделали.

[VB-constructor]

Не знаю, не работает. Вобщем гляди:
Поставил я свой юзерконтрол на форму, чтобы top > 0 и написал в код формы

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

Private Sub Command1_Click()
UserControl11.firstX = 0
End Sub

По идее должен автоматически дотянуть сонтрол до нача координат формы( правильно же я понял?)
Ну он не делает.
P/s Может весь код написать?
PP/s Кстати, куда хакер делся? Вроде б выложить что-то хотел?

[tyomitch]

Не дотянуть, а переместить. Height же не меняется.

[VB-constructor]

Ну или переместить - факт остаётся фактом, к началу он не передвигается (линия так и отсекается на том месте, где до runа была граница контрола)

[VB-constructor]

А вообше как ещё можно работать с формой контрола? Можно через АПИ может быть?

Короче, вот приложение:

[tyomitch]

в ReadProperties пиши не в m_firstX, а в firstX

[VB-constructor]

Ты гений! Всё получилось, спасибо!
Кстати, m_firstX сам бейсик автоматически пишет. Он же должен всё правильно делать?

[Хакер]

Как же я мог забыть выложить сюда пример
И, блин, ведь всё без меня сделали.
Пойду застрелюсь...