Какая-то непонятка с переменной...

[moppuk]

http://slil.ru/22622226 ссылка на файл...

[Konst_One]

не пойму точно, что ты хочешь, но может тебе это нужно

[Aleksej]

В проекте было:

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

Load Form2
Form2.Visible = True
dd = Val(Text1.Text)

А вот так всё работает:

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

dd = Val(Text1.Text)
Load Form2
Form2.Visible = True


[moppuk]

Да блин, мне надо, что бы ввел число в text1.text на форме1, и он появилось в text2.text на форме2... Ну чего тут не понятного то......
Вот и в примере вводишь число, а на form2 появляется 0, а не это число...
Блин, нуя не знаю, как юолее понятно объяснить!!!
http://slil.ru/22622226

[Konst_One]

я тебе это и сделал
скачивай обновленный пример

[RayShade]

ну елки палки. А что ты хотел если у тебя форма грузится ДО ИНИЦИАЛИЗАЦИИ ПЕРЕМЕННОЙ?! Ты ее УЖЕ ЗАГРУЗИЛ и только потом ЗАПИСАЛ ЧИСЛО.

[Dec]

У меня давно была подобная проблема, и я ее так и не решил.

Была форма. На ней HScrollbar и кнопка ОК.
Private Sub Form_Load()
HScroll1.Value=intSpeed
End Sub

Private Sub cmdOK_Click()
intSpeed=HScroll1.Value
End Sub

(intSpeed - глобальная переменная типа Integer)

Так вот, когда я нажимал ОК, в intSpeed записывалось 1000 независимо от положения бегунка hscroll1 (min=0,max=1500). Ну, я поставил breakpoint в cmdOK_Click на 2й строке. Все заработало, т.е. жму ОК, VB прерывает, смотрю intspeed - она старая (разумеется), смотрю hscroll1.value - все как надо, жму F8, опять смотрю обе переменные - они равны hscroll1.value (т.е. все правильно). убираю breakpoint - все по-старому. Создаю Watch для intspeed - работает. Убираю watch - опять... Компилирую в EXE - РАБОТАЕТ!!! А тут в чем дело?

[moppuk]

Konst_One, а можешь пояснить как это ты так сделал...

[Konst_One]

что конкретно тебе непонятно?

[Крост]

На, не мучайся.. )

[moppuk]

Ребята, спасибо всем огормное, но я уже давно сам разобрался...
Всем огрмный респект!