Работа с данными в двух формах

@maf103 · Регистрация: 29.11.2009

Студворк — интернет-сервис помощи студентам

Здравствуйте!

сразу прошу прощение что пишу с ошибками,нету Русской клавиатуры!

Помогите составить правильно решение задачи!

Пишу программу в VB 6.
ОК,проблема такая:

1. у меня 2 формы в первой форме я должен внести число от -999 до 999
2.жму на кнопку далее и это число сохраняется к примеру в Laibel 1
3. мне надо чтоб от этого числа делалась решение во 2 форме

к примеру:

в первои форме я внес число 500,жму далее оно сохраняется, вношу в окно которое я создаю во 2 форме число 100,
и 500 делает математическое решение к примеру 500-100,а ответ получаем ниже в другой Laibel!

@Toxa33rus · 02.12.2009, 10:39

Visual Basic
1
form2.label1 = val(form1.label1) - val(form1.text2.text)

@maf103 · 02.12.2009, 14:04 **[ТС]**

Спасибо

если будут еще вопросы буду спрашивать!

Добавлено через 7 минут
такои вопрос: далее я хачу сделать огронечение в числах,длинна числа должна быть не болше 4 цифр кпримеру 9999 ета максимальное число и -9999 это минимальное число.

я создаю TextBox,и хачу это огранечение сделать через TextBox!

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

Добавлено через 1 час 21 минуту
нехватает еще одного значение,мне так кажется!

как я задавал первыи вопрос получил этот код с двомя формами котороее делают математическое решение!

1) я создаю в первои форме TextBox1,пишу число 500,мне надо чтоб это число сохронилась в Laibel 1 во 2 форме при нажатее на кнопку некст,и еще если я не внесу число это то не смогу переити во 2 форму (чтоб можно было вносить только числа от -9999 и до 9999 ,если я буду вводить число 999999 то немагу переити вследушее окно до тех пор пока не внесу чесло с промежтком от -9999 до 9999,а когда вношу не то число мне надо чтоб выдавало окно о ошибке к премеру неправелное чесло)

2) во 2 форме мне надо чтоб етат Laibel 1 с сохраненым числом делала математическое решение сTextBox2 уже,кпремеру текст бокс 2 вношу туже формулу что и в первои тот же промежуток между числами,внашу число 500 и оно отнемает от лаибела 1 ,ну я уверен что как раз этот код подоидет!

@Inkvizitor · 02.12.2009, 18:20

Если ты сидишь в Visual Studio 2008 Sp1, тогда код таков

VB.NET
1
2
3
4
5
6
7
8
9
Private Sub TextBox1_textChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.textChanged
if textbox1.text > 0 then
        If TextBox1.TextLength > 4 Then
            TextBox1. TextLength = 4
        End If
form2.show
Form2.label1.text = Form1.TextBox1.text
End if
End sub

Добавлено через 15 минут
Если же тебе нужны поправление, то вот код:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
Private Sub TextBox1_textChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.textChanged
if textbox1.text > 0 then
        If TextBox1.TextLength > 4 Then
            TextBox1. TextLength = 4
             msgbox "максимальное число символов, которое можно вводить = 4",  msgboxstyle.critical, "ошибка ввода"
        End If
Form2.show
Form2.label1.text = Form1.TextBox1.text
End if
msgbox "вы не ввели число",  msgboxstyle.critical, "ошибка ввода"
End sub

есди нужно, что бы при ввдении большего числа символов, число не обрезалось автоматичски, то в куске кода напиши так:

VB.NET
1
2
3
4
5
If TextBox1.TextLength > 4 Then
      TextBox1. TextLength = 4
      msgbox "максимальное число символов, которое можно вводить = 4",  msgboxstyle.critical, "ошибка ввода"
      Exit Sub
End If

а код с вычитанием у тебя есть выше, только вместо label у тебя будет textbox

@maf103 · 03.12.2009, 00:26 **[ТС]**

кароче дело такое всe неплохо работаеет есть кое какие некоректности!

1) допостим этот код [

Visual Basic
1
B]form2.label1 = val(form1.label1) - val(form1.text2.text) [/B]

в VB 2008 нераспазнает

2)мне надо создавать модуль?
я хачу чтоб не высвечивались все окна Form1, Form2.....
или как можно сделать чтоб они просто закрывались при клике длаее на следущею Form?

а тут такая проблема: когда я пишу число кпремеру 99999 то он выдает как надо ошибку и блокирует Текст бокс,
как перезаписать заново число,или стереть ?

Visual Basic
1
2
3
4
5
If TextBox1.TextLength > 4 Then
      TextBox1. TextLength = 4
      msgbox "максимальное число символов, которое можно вводить = 4",  msgboxstyle.critical, "ошибка ввода"
      Exit Sub
End If

Новые блоги и статьи Все статьи Все блоги /
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .

@maf103 14 / 14 / 1 Регистрация: 29.11.2009 Сообщений: 254

	Работа с данными в двух формах 02.12.2009, 01:52. Показов 1255. Ответов 4 Метки нет (Все метки) Здравствуйте! сразу прошу прощение что пишу с ошибками,нету Русской клавиатуры! Помогите составить правильно решение задачи! Пишу программу в VB 6. ОК,проблема такая: 1. у меня 2 формы в первой форме я должен внести число от -999 до 999 2.жму на кнопку далее и это число сохраняется к примеру в Laibel 1 3. мне надо чтоб от этого числа делалась решение во 2 форме к примеру: в первои форме я внес число 500,жму далее оно сохраняется, вношу в окно которое я создаю во 2 форме число 100, и 500 делает математическое решение к примеру 500-100,а ответ получаем ниже в другой Laibel! 0

@maf103 14 / 14 / 1 Регистрация: 29.11.2009 Сообщений: 254
	02.12.2009, 14:04 [ТС]
	Спасибо если будут еще вопросы буду спрашивать! Добавлено через 7 минут такои вопрос: далее я хачу сделать огронечение в числах,длинна числа должна быть не болше 4 цифр кпримеру 9999 ета максимальное число и -9999 это минимальное число. я создаю TextBox,и хачу это огранечение сделать через TextBox! заранее спасибо! Добавлено через 1 час 21 минуту нехватает еще одного значение,мне так кажется! как я задавал первыи вопрос получил этот код с двомя формами котороее делают математическое решение! 1) я создаю в первои форме TextBox1,пишу число 500,мне надо чтоб это число сохронилась в Laibel 1 во 2 форме при нажатее на кнопку некст,и еще если я не внесу число это то не смогу переити во 2 форму (чтоб можно было вносить только числа от -9999 и до 9999 ,если я буду вводить число 999999 то немагу переити вследушее окно до тех пор пока не внесу чесло с промежтком от -9999 до 9999,а когда вношу не то число мне надо чтоб выдавало окно о ошибке к премеру неправелное чесло) 2) во 2 форме мне надо чтоб етат Laibel 1 с сохраненым числом делала математическое решение сTextBox2 уже,кпремеру текст бокс 2 вношу туже формулу что и в первои тот же промежуток между числами,внашу число 500 и оно отнемает от лаибела 1 ,ну я уверен что как раз этот код подоидет! 0