Myform.a <> a, при том, что public a as integer - единственная переменная А в проекте. - VB
Формулировка задачи:
В дочерней форме MyForm имею некоторую переменную NekotorayaPeremennaya.
Как может получиться такое, что
NekotorayaPeremennaya <> MyForm.NekotorayaPeremennaya
?
Пишу
NekotorayaPeremennaya = 5
Переходит в первую строку.
Делаю переход в дефинишн от строки
MyForm.NekotorayaPeremennaya = 8
Переходит в окно списка классов (которое вызывается нажатием F2). Там нахожу переменную NekotorayaPeremennaya в списке, делаю двойной щелчок - открывается этот же код программы и курсор стоит в первой строке
Как может получиться такое, что
NekotorayaPeremennaya <> MyForm.NekotorayaPeremennaya
?
Пишу
делаю переход к дефинишн от строки
NekotorayaPeremennaya = 5
Переходит в первую строку.
Делаю переход в дефинишн от строки
MyForm.NekotorayaPeremennaya = 8
Переходит в окно списка классов (которое вызывается нажатием F2). Там нахожу переменную NekotorayaPeremennaya в списке, делаю двойной щелчок - открывается этот же код программы и курсор стоит в первой строке
Решение задачи: «Myform.a <> a, при том, что public a as integer - единственная переменная А в проекте.»
textual
Листинг программы
<font color="#00AA00">'внутри формы Form1</font>
<font color="blue">Option</font> <font color="blue">Explicit</font>
<font color="blue">Public</font> a <font color="blue">As</font> <font color="blue">Integer</font>
<font color="blue">Private</font> <font color="blue">Sub</font> Command1_Click()
<font color="blue">Dim</font> f2 <font color="blue">As</font> <font color="blue">New</font> Form1
a = <font color="darkblue"><b>5</b></font>
f2.a = a
f2.Show
<font color="blue">End</font> <font color="blue">Sub</font>
<font color="blue">Private</font> <font color="blue">Sub</font> Form_Click()
a = <font color="darkblue"><b>10</b></font>
MsgBox a
<font color="blue">End</font> <font color="blue">Sub</font>
<font color="blue">Private</font> <font color="blue">Sub</font> Form_Load()
MsgBox a
<font color="blue">End</font> <font color="blue">Sub</font>