Работа с несколькими формами

Язык Visual Basic на платформе .NET.

Модераторы: Ramzes, Sebas

Cold_Almaty
Начинающий
Начинающий
 
Сообщения: 15
Зарегистрирован: 28.06.2007 (Чт) 12:07

Работа с несколькими формами

Сообщение Cold_Almaty » 16.08.2007 (Чт) 6:52

Всем доброго времени суток.
Народ. Подскажите пожалуйста.
Вот есть две формы: одна основная, вторая дочерняя. На дочерней форме расположен объект CheckedListBox1, ну и кнопка OK. Скажем выбрал я в CheckedListBox1 нужные мне элементы. Как теперь передать их в основную форму?

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Сообщение Viper » 16.08.2007 (Чт) 7:20

Cold_Almaty, используй ссылку на экземпляр родительской формы в дочерней или ссылку на экземпляр дочерней формы в родительской. И не забывай создавать объекты обоих форм.
З.Ы. А вообще сей вопрос настолько изжеван, что Поиск рулит неимоверно.
Весь мир матрица, а мы в нем потоки байтов!

Cold_Almaty
Начинающий
Начинающий
 
Сообщения: 15
Зарегистрирован: 28.06.2007 (Чт) 12:07

Сообщение Cold_Almaty » 20.08.2007 (Пн) 8:03

Viper:
А нет какого нибудь примера? Я запутался окончательно.

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Сообщение Viper » 20.08.2007 (Пн) 10:27

Ну так приведи здесь код в которм ты запутался, а ваще насчет примеров Поиск опять же рулит
Весь мир матрица, а мы в нем потоки байтов!

AlexM
Новичок
Новичок
 
Сообщения: 31
Зарегистрирован: 25.06.2002 (Вт) 11:26
Откуда: Украина, Житомир

Сообщение AlexM » 20.08.2007 (Пн) 11:01

На главной форме расположи кнопку и в процедуру обработки события вставь следующий код:

Код: Выделить всё
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim F2 As New Form2 'Экземпляр дочерней формы.
        Dim CurrentItem As String
        Dim AllCheckedItems As String = ""

        If F2.ShowDialog = Windows.Forms.DialogResult.OK Then

            For Each CurrentItem In F2.CheckedListBox1.CheckedItems
                If AllCheckedItems <> "" Then
                    AllCheckedItems = AllCheckedItems + vbCrLf + CurrentItem
                Else
                    AllCheckedItems = CurrentItem
                End If
            Next

            MessageBox.Show(AllCheckedItems)

        End If

    End Sub

[/code]


Вернуться в Visual Basic .NET

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 57

    TopList