трабла с изменением свойства контрола

[AnarCky]

есть некий контрол у которого объявлено следующее свойство

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


    Public Property Bool() As Boolean
        Get
            Return bol
        End Get
        Set(ByVal Value As Boolean)
            bol = Value
        End Set
    End Property


по умолчанию установлено в False
bol - некоторая переменная As Boolean объявленная в классе контрола... (инициализирована как False)

из формы Form1 значение должно меняться на True следующим оператором:
c.Bool = true
но наблюдая свойства в процессе выполнения я не заметил нужной смены значения свойства и bol?
Может кто-нибудь объяснить почему?
Спасибо

[Ramzes]

ниче не понял

[Viper]

Узрим больше кода!!!!

[AnarCky]

код в классе Form1

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


     Dim c As ChemElemCell.ChemElemCell

            Select Case i
                Case 0 To 1 : tmpi = i + 6
                Case 2 To 9 : tmpi = i + 6
                Case 10 To 17 : tmpi = i + 6
                Case 18 To 27 : tmpi = i + 12
                Case 28 To 35 : tmpi = i + 4
                Case 36 To 45 : tmpi = i + 14
                Case 46 To 53 : tmpi = i + 2
                Case 54 To 63 : tmpi = i + 16
                Case 64 To 72 : tmpi = i
                Case 73 To 82 : tmpi = i + 18
                Case 83 To 96 : tmpi = i + 71 : c.Bool = True
            End Select


код в классе контрола

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


    Dim bol As Boolean

    Public Property Bool() As Boolean
        Get
            Return bol
        End Get
        Set(ByVal Value As Boolean)
            bol = Value
        End Set
    End Property


Суть проблемы: не происходит изменения свойства Bool с false (по умолчанию) на true.
Вопрос: почему и как исправить?

[Ramzes]

в представленом коде ошибок не вижу

[Viper]

А собстно в каком месте твоего кода происходит инициализация объекта c?
Здесь

Dim c As ChemElemCell.ChemElemCell

только объявление

З.Ы. Что это вообще такое ChemElemCell.ChemElemCell? Почему два раза?

[AnarCky]

2Viper
а зачем собственно инициализация? поясни плз...

объект ChemElemCell пространства имен (добавленный в решение файл .dll) ChemElemCell. так просто получилось, (давно еще) что имена одинаковые

я тоже ап-псолютно не понимаю что не так в коде.
вот при объвлении свойства...
скажите правильно я расуждаю или криво:
- свойству присваивается значение true
- это же значение присваивается переменной bol

[Ramzes]

напиши для пущей уверености так
а то я как-то внимания не обратил

вместо этого
Dim c As ChemElemCell.ChemElemCell
напиши
Dim c As new ChemElemCell.ChemElemCell

[AnarCky]

безрезультатно

Насколько я помню, в С++ инициализация - это присвоение значения в одном операторе с объявлением, т.е.

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

int a = 10;


тогда я не понимаю, разве в VB не так? как называется тогда вот такой оператор:

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

Dim i As Integer = 10


и почему тогда вы называете инициализацией эту строку:

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

Dim c As New ChemElemCell.ChemElemCell


[Viper]

AnarCky, а является ли ChemElemCell классом?

[Хакер]

Насколько я помню, в С++ инициализация - это присвоение значения в одном операторе с объявлением, т.е.

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

int a = 10;

тогда я не понимаю, разве в VB не так? как называется тогда вот такой оператор:

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

Dim i As Integer = 10

и почему тогда вы называете инициализацией эту строку:

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

Dim c As New ChemElemCell.ChemElemCell

AnarCky, то что ты называешь оператором лучше (правильнее, с точки зрения VB) называть инструкцией (statement).

Почему называем эту строчку инициализацией?

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

Dim abc As Integer
abc = 123
'Можно записать так:
Dim abc As Integer = 123    ' "Инициализация" ?

'________________________

Dim abc as SomeClass
abc = New SomeClass()
' можно _было бы_ записать так:
Dim abc As SomeСlass = New SomeClass()
' Но чтобы не писать лишнее, сделали более сокращённую запись:
Dim abc As New SomeClass


Надеюсь я ничего не напутал с .net-овским синтаксисом.

[AnarCky]

Viper
Э-э... если я все правильно понимаю, то да. Ну вот по крайней мере заголовок (там же написано Public class):

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


Public Class ChemElemCell
    Inherits System.Windows.Forms.UserControl

End Class


Хакер
Спасибо!!!! Теперь я понял

[Viper]

AnarCky, таки просветление то наступило? Или непонятности продолжают жить?

[AnarCky]

Не-а полагаешь, что уже должно? "Непонятности" живут... Я до сих пор не понимаю причин... Если не затруднит - растолкуй мне все таки где собака зарыта
Спасибо!

[Viper]

Дык вот и вот.

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

[AnarCky]

Уже решил проблему другим путем
Спасибо всем за помощь!