Чего то не катит... но все ровно спасибо..

Во блин.. на Программинге все програмеры перевелись.. или 6ку от сети отключили, элементарный вопрос и все молчат

Исправлено eagle (25.11.05 22:19)

Form1.Textbox1.Text = "bla" ?
эта штука вроде как не ругается но данные в Form1 Textbox1 остаются прежнеми а не "Bla" :-)
Слышал что можно все это как то через События осуществить(event), но как конкретно не знаю..

Исправлено eagle (26.11.05 00:08)

public class Form1 : Form
{
        private Form2 mForm2;
        private void button1_Click(object sender, EventArgs e)
        {
            mForm2 = new Form2(this);
            mForm2.Show();
        }
}
 
public class Form2 : Form
{
        private Form1 mForm1;
	public Form2(Form1 pForm1)
	{
		InitializeComponent();
                 mForm1 = pForm1;
	}
        private void button1_Click(object sender, EventArgs e)
        {
            mForm1.Text = textBox1.Text;
        }
}

Форма2 создается из формы1. У них есть ссылки друг на друга. Ну а как после этого ты будешь взаимодействие делать - твое дело, можешь напрямую свойства дергать, насоздавать кучу событий, и т.д.

про. написал(а):

ты на шестерку не гони. просто VB, тем более VB.NET ниже программисткого достоинтства.

VB.NET, начиная с .net 2.0 (до этого у него были незначительные отставания от C#, сейчас не вспомню какие), ничем не хуже любого другого языка. Особенно для реализации корпоратиыных приложений. Да и вообще, язык - это всего лишь инструмент (согласен что он может быть более или менее удобным), все зависит от человека. На любом языке можно написать бредовый, падучий и нечитаемый код.

Исправлено Logos (26.11.05 09:54)

Присоединяюсь к спасибу :)  .....
А я вот ещё в MSDN накопал кое-что, только откровенно ни чего не понял и не одно из предложенного у меня не заработало, наверно это все из=за нулевого опыта..
Кому интересно..

http://www.microsoft.com/Rus/Msdn/Activ … /217a.mspx
___________________________________________________________________________________
Совет 217a. Как передавать данные между формами

Читатель прислал нам такой вопрос
«Пишем программу на VB4/16, и не можем передать переменную или массив из одной формы в другую. Если Вас не затруднит, помогите советом.»

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

1. Передача параметров через свойства объектов
Для этого создадим две формы Form1 и Form2, на каждой из которых разместим текстовое поле и командную кнопку. При такой последовательности создания форм в качестве стартовой формы приложения будет выбрана Form1. В VB4 этот параметр корректируется командой Tools|Options|Project|Startup Form, в VB5/6 — Project|Project Properties|General|Startup Object. Для элементов Form2 установим имена элементов управления как Text2 и Command2 соответственно (чтобы отличать зрительно объекты по их именам), а также Text2.Text = «Text2». Для кнопок Command1 и Command2 установим соответственно такие свойства Caption: «Запустить Form2» и «Вернуть управление в Form1». И напишем для них следующий программный код:

Private Sub Command1_Click()
  Form2.Show 1 ' вывод Form2 в модальном режиме
End Sub

для формы Form2 (для внешнего элемента управления Text1 обязательно указание имени формы Form1):

Private Sub Form_Activate()
  ' установка при запуске формы
  Text2.Text = Form1.Text1.Text
  Form1.Text1.Text = "" 'очистить поле
End Sub
Private Sub Command2_Click()
  ' Возврат в Form1
  ' переписываем содержимое Text2 в Text1
  Form1.Text1.Text = Text2.Text
  Form2.Hide ' закрыть форму
End Sub

Обратите внимание, что форма Form2 запускается в модальном режиме (значение параметра равно 1). Это означает, что фокус приложения переходит в Form2 — родительская форма Form1 остается видимой, но недоступной для каких-либо операций. Запустите приложение и нажмите кнопку «Запустите Form2» — появится форма Form2, при этом в поле Text2 будет записано содержимое Text1. (Само поле Text1 при этом очистится). Теперь нажмите «Вернуть управление в Form1» — управление вернется в Form1 и в поле Text1 будет установлено содержимое Text2. (Вы можете сами устанавливать содержимое полей, чтобы убедиться в правильности обмена информацией.)

Таким образом мы видим, как происходит передача информации от одной формы к другой в виде установки или чтения свойств элеменов управления. Все формы и находящиеся на них элементы управления являются глобальными: их свойства и методы доступны из процедур других модулей (в том числе BAS-модулей). Вот как выглядит полное имя элемента управления:

[Имя_Формы.]Имя_Элемента_Управления

При обращении к внутренним элементам управления (внутри данной формы) можно указывать сокращенное имя объекта (что мы и делаем), а при работе с внешними — полное, которое начинается с имени формы.

2. Передача данных через параметры процедур
Продолжим наши эксперименты. Создадим на форме Form1 еще одну командную кнопку, для которой установим свойства Name = Command11 и Caption = «Второй вариант запуска», и напишем для нее такой код:

Private Sub Command11_Click()
  ' второй вариант запуска
  Call Form2.Text2_KeyPress(65)
End Sub

Для поля Text2 на форме Form2 напишем следующую процедуру:

Листинг 5.

Public Sub Text2_KeyPress(KeyAscii As Integer)
  Show  ' запуск формы Form2 в немодальном режиме
  Text2.Text = "Значение = " & KeyAscii
End Sub

Запустите на выполнение приложение, нажмите на форме Form1 кнопку Command21 и вы увидите картину, изображенную на   Рис. 1. рисунке.

В этом примере мы обратились из формы Form1 напрямую к процедуре Form2 (в данном случае к Text2_KeyPress) и даже передали в нее информацию в виде параметра процедуры. Но обратите внимание, что выше мы установили для событийной процедуры Text2_KeyPress тип Public, вместо Private по умолчанию.

Очевидно, что такое использование встроенной событийной процедуры является довольно искусственным и ограниченным по возможностям — мы можем использовать только весьма простые, предопределенные варианты передачи параметров. К тому же можно столкнуться с тем, что эти процедуры неожиданно выполняют еще какие-то встроенные операции, которые нам тут не нужны.

Гораздо лучше для реализации второго варианта создать в Form2 простую процедуру, например с именем Start3 (но обязательно типа Public):

Листинг 6.

Public Sub Start3(StartName$)
  Show 'запуск формы Form2
  Text2.Text = StartName$
End Sub

а в процедуре Command11_Click (форма Form1) записать такой код:

Листинг 7.

Private Sub Command11_Click()
  Call Form2.Start3("Третий вариант запуска")
End Sub

Очевидно, что в этом случае мы может реализовать любой вариант передачи параметров из Form1 в Form2, в том числе и массивы.

Совсем другой вопрос — что мы будем делать с передаваемыми параметрами? В приведенном здесь примере мы их сразу использовали для формирования свойств объектов. А можно переписать эти данные в глобальные переменные на уровне данного модуля (формы), которые затем передать в другие процедуры.

3. Передача данных через глобальные переменные
Еще один вариант передачи данных между модулями — использование глобальных переменных, доступ к которым разрешен из любых процедур приложения. Однако нужно иметь в виду, что в VB такие переменные можно создавать только в модуле кода BAS. Поэтому если вы хотите, чтобы обе созданные нами формы работали с общими данными, то нужно создать BAS-модуль и в нем описать соответствующие глобальные переменные:

Листинг 8.

Global MyArray$(), MyVar As Integer

В форме Form1 создадим еще одну командную кнопку Command12 и запишем для нее такой код:

Листинг 9.

%
Private Sub Command12_Click()
  ' передача данных через глобальные переменные
  ReDim MyArray$(200)
  MyArray$(1) = "Элемент1"
  MyVar = 1001
  Call Form2.Start4
End Sub

В форме Form2 сформируем еще одну процедуру:

Листинг 10.

Public Sub Start4()
  Form1.Text1.Text = MyArray$(1)
  Text2.Text = MyVar
  Show
  MsgBox UBound(MyArray$)
End Sub

Запустите приложение на выполнение и убедитесь, что при нажатии кнопки Command12 передача данных в Form2 выполняется правильно. Обратите внимание, что в модуле формы Form1 мы не только устанавливаем значения глобальных переменных, но и можем изменять размер массивов, объявленных динамическими.
_____________________________________________________________________
Похоже отличия между версиями Basic все же значительны...

Исправлено eagle (26.11.05 14:02)

2 eagle: это C#, студия понять должна, просто тебе надо то же самое в VB конвертнуть

Получается что таким образом можно передавать только значение одной переменной через заголовок... :( Как быть тогда когда требуется пердать больше..

Private  Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
            mForm1.textBox1.Text = "qweqweqwe"
        End Sub

Я так понимаю что если в Form1 объявить публичную переменную(по логике что все объекты формы идут как публичные), то она тоже должна быть видна в Form2
Что то типа

Form1
 
 Private mForm2 As Form2
 Public rut As String 'Объявляем её родимую
(.....)
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
mForm2 = New Form2(Me)
        mForm2.TextBox1.Text = Text1.Text
        mForm2.TextBox2.Text = Text2.Text
        mForm2.ShowDialog()
        Text1.Text = mForm2.TextBox1.Text
        Text2.Text = mForm2.TextBox2.Text
       MsgBox(rut) ' Пытаемся воспроизвести присвоенное ей значение при нажати батона в Form2
End Sub

Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
mForm1.rut = "dfdf" 'присваевает rut значение dfdf
Close()
End Sub

То по идеи Месаджбокс мне должен показать dfdf, после закрытия модальной формы Form2
но он мне показывает пустoту, почему это не должно работать... все происходит без ошибок

Исправлено eagle (27.11.05 03:17)