классы

[Bonesnapper]

у меня есть поект ехе в нем 2 класса
как передать 1му классу 2й класс в качестве параметра

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


Dim L As New 2
Dim  butT1 As New 1
Dim  butT2 As New 1

butT1.init d3dDevice, pos, textur(), L
butT2.init d3dDevice, pos, textur(), L
  в 1 классе функция INIT:
Sub init(...,l_ as 2)

If Not l_ Is Nothing Then
    Set lb = New 2
    Set lb = l_
...
    lb.setPos x, y
End If

lb.draw

end sub



проблема в том что lb получается общим для butT1 и butT2
хотя lb должна быть уникальна для каждого butT1 и butT2

заранее спасибо

[tyomitch]

Ничего не понял... Но если ты хочешь, чтобы существовало два разных lb, то явно "Set lb = New 2" должно быть написано дважды.

[Bonesnapper]

вот полная функция

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



Sub init(d3dDev As Direct3DDevice8, butT As RECT, textur() As Direct3DTexture8, lab_ As DXlabel)

If Not lab_ Is Nothing Then
    Set labl = New DXlabel
    Set labl = lab_
    hasLabel = True
   
    Dim x As Long, y As Long
    x = 0
    y = 0
    x = labl.getPos.Left + 10
    y = labl.getPos.Top + 10
    MsgBox x
    labl.setPos x, y
Else
    hasLabel = False
End If
end sub

в начале labl.getPos.Left =10
то есть х=20 и все ок
но тк у меня L передается 2 раза
butT1.init d3dDevice, pos, textur(), L '-msgbox выдает 20
butT2.init d3dDevice, pos, textur(), L '-msgbox выдает 30 !!!!!!!!

то х в конце получается =30
да и передаваемый мной L тоже меняется !?

как я думаю если так записать
Set labl = lab_
то при изменении labl будет меняться lab_ и наоборот
как мне это обойти

если совсем уж не понятно могу дать исходник

[GSerg]

Неа.
Ничё не понятно.

Option explicit поставь. Переменные объяви. И объясни, в чём смысл

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

Set labl = New DXlabel
Set labl = lab_

, потому что одна из двух строк точно не имеет смысла, правда не знаю какая, по логике твоей функции.

[Bonesnapper]

смысл

есть класс который рисует Лэйбл (dxlabel)
есть класс который рисует кнопку (dxbutton)

хочу сделать так
при создании кнопки (dxbutton.init) передать ей (кнопке) лэйбл
и чтоб этол лэйбл выступал как Caption Следоватьльно должен
быть свой у каждой кнопки

делаю так
1) создаю один лэйбл
2) создаю первую кнопку и передаю ей этот лэйбл
3) меняю текст и координаты в лэйбле из пункта 1
4) создаю вторую кнопку и передаю ей этот лэйбл

НО получается так что текст в лэйбле один и тот же и координаты те же

lab_- тот лайбл который я создаю и передаю кнопке
Set labl = lab_ - этим я копирую передаваемый лайбл что бы затем
при рисовании его опять не передавать
НО затем при изменении labl изменяется и lab_

Option explicit поставил


смысл

Set labl = New DXlabel
Set labl = lab_

просто я сначала вне функции обьявляю так dim labl as dxlabel
я не знаю может Set labl = New DXlabel не нужно писать если
затем приравнивать к такому же классу

[GSerg]

Ну а чему ты удивляешься?
Ты же каждый раз делаешь setPos x, y одному и тому же Label.


А Set labl = New DXlabel убрать, предварительно почитав азы работы с объектами...

[Bonesnapper]

почему одному и томуже то
в каждом классе кнопки есть свой Label (labl-обьявляется в классе кнопки)

и вообще почему при изменении (внутри класса кнопки) labl
изменяется и передаваемый лэйбл

[GSerg]

Ты понимаешь разницу между структурными и ссылочными объектами?
Ты понимаешь, в чём разница между копированием объекта и копированием ссылки?

[tyomitch]

Ты понимаешь разницу между структурными и ссылочными объектами?
Ты понимаешь, в чём разница между копированием объекта и копированием ссылки?

В VB6 нету структурных объектов, только ссылочные
Более корректно было бы сформулировать вопрос так: "... разницу между структурными и ссылочными типами."

[GSerg]

А... Редиска

Объясни лучше смысл своей текущей подписи, потому что я не въезжаю

[alibek]

Объясни лучше смысл своей текущей подписи, потому что я не въезжаю

Хм...
Может это?

http://groups.google.ru/groups?q=%22Sanity+is+a+little+box%22&hl=ru&lr=&selm=31F24805.5889%40earthlink.net&rnum=2

> S N I P
> I read a couple posts about the Rev being a pedophile. I really don't
> care, but i wanted to say something that was probably said already. At
> the very end of My Monkey, after the loops of Charles Manson? saying
> 'sanity is a little box', you can hear Marilyn say 'um, it better that
> you, uh, d-don't tell your mom and dad we did this, ok?' and right
> after it there's some backwards thing that i haven't figured out yet.

[Bonesnapper]

Ну скажите тогда как мне копировать обьект

[alibek]

Set ... = New ...
и поэлементно

[Bonesnapper]

Спасибо

[tyomitch]

Объясни лучше смысл своей текущей подписи, потому что я не въезжаю

Хм...
Может это?

Почти: http://64.233.183.104/search?q=cache:Ya ... x%22&hl=ru

Sanity is a little box society expects you to live in. Insanity is a universe...

2Bonesnapper: приличные люди добавляют в свои классы метод Clone, который возвращает копию текущего объекта. Тогда не придётся его копировать по одному полю каждый раз, где это требуется.

[alibek]

tyomitch, я как раз хотел про Clone написать, но передумал, чтобы меня снобом не посчитали

[Bonesnapper]

А в методе Clone как я понимаю нужно будет по элементно копировать

[alibek]

Разумеется.
Но снаружи будет выглядеть грамотно и удобно.