VPF::Как сделать чтоб не обнулялась глобальная перем.?

kentaro

Дата 5.6.2009, 12:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 24.3.2009

Репутация: нет
Всего: нет

Я вызываю процедуру в дочерней форме

Код


 Private Sub ChildForm_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        Dim ter As String = "hor"
        Dim ac As New frmMain
     
        ac.test("1")
    End Sub

она уходит в главную там я передаю функции

Код

Call der(planeStr)

параметер
она заполняет глобальную переменую

Код

 If str = 1 Then
            temp = 4
        End If

Потом закрывается дочернея форма -> срабатывает событие

Код

frmMain_MdiChildActivate

Но глобальная переменая уже обнулилась
Как сделать чтоб она не обнулялась?

Akina

Дата 5.6.2009, 12:59 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 1
Всего: 454

Цитата(kentaro @ 5.6.2009, 13:55

)

она заполняет глобальную переменую

Где именно объявлена глобальная переменная?

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

kentaro

Дата 5.6.2009, 13:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 24.3.2009

Репутация: нет
Всего: нет

Akina,

Код


Public Class frmMain
    Public temp As String

Akina

Дата 5.6.2009, 14:53 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 1
Всего: 454

Это не глобальная переменная.

--------------------

kentaro

Дата 5.6.2009, 15:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 24.3.2009

Репутация: нет
Всего: нет

Akina, А как тогда сделать глобальную переменую?

Akina

Дата 5.6.2009, 15:18 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 1
Всего: 454

ммм... ну скажем справку почитать... про жизнь и видимость переменных... найти такой тип, который живёт, пока работает приложение...

--------------------

kentaro

Дата 5.6.2009, 15:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 24.3.2009

Репутация: нет
Всего: нет

Akina, Нигде не нашёл может напишите как?

diadiavova

Дата 5.6.2009, 16:03 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

kentaro, честно говоря, не понятно где что обнуляется, я думаю, что сведений недостаточно для того, чтобы судить о чём бы то ни было. Если говорить о "глобальных" переменных, то можно объявить такую переменную в модуле.

Код


Module MyModule
    Public temp As String
End Module

Везде где виден модуль можно будет получить к ней доступ. Однако общедоступные переменные - это плохо. Лучше использовать свойства. А вообще надо больше кода. Так ничего не ясно.

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

kentaro

Дата 5.6.2009, 16:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 24.3.2009

Репутация: нет
Всего: нет

diadiavova,

Код

Private Sub ChildForm_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        Dim ter As String = "hor"
        Dim ac As New frmMain
        're()
        ac.test("1")
    End Sub

главная

Код


Public Sub test(ByVal planeStr As String)
        Dim activeChild As Form = Me.ActiveMdiChild
        If planeStr = 1 Then
            Call der(planeStr)
        End If
    End Sub
    Function der(ByVal str As String) As String
        Dim qwert As String
        'Dim temp As String

        If str = 1 Then
            temp = 4
        End If
        If str = 5 And temp = 4 Then
            qwert = 3
            temp = Nothing

        End If
        MsgBox("str = " & str & " TEMP= " & temp)
        Return qwert
    End Function

после отработки закрытия вызывается

Код


Private Sub frmMain_MdiChildActivate(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.MdiChildActivate
        'Me.LayoutMdi(System.Windows.Forms.MdiLayout.TileHorizontal)
        Dim f As New ChildForm
        'Dim value As Size

        'value = f.GetPreferredSize(f.PreferredSize)
        'MsgBox(value.ToString)
        Dim instance As String = 5
        Dim value As String
        value = der(instance)
        If value = 3 Then
            MsgBox("q")
            Me.LayoutMdi(System.Windows.Forms.MdiLayout.TileHorizontal)
        End If


        'f.MdiParent = Me
        'value = Me.IsDisposed


    End Sub

когда она вызывается моя переменая temp уже обнулилась хотя приложение работает

Akina

Дата 5.6.2009, 16:14 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 1
Всего: 454

Скажи уж честно - не искал...

http://msdn.microsoft.com/ru-ru/library/ke6sh835.aspx
http://msdn.microsoft.com/ru-ru/library/1t0wsc67.aspx
http://msdn.microsoft.com/ru-ru/library/35styb3a.aspx

Добавлено через 1 минуту и 43 секунды

Цитата(diadiavova @ 5.6.2009, 17:03

)

не понятно где что обнуляется, я думаю, что сведений недостаточно для того, чтобы судить о чём бы то ни было

Да всё понятно... переменная объявлена на уровне объекта. Объект разрушается - переменная дохнет. Новый объект - новая копия переменной (она же не static).

--------------------

diadiavova

Дата 5.6.2009, 16:17 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

сначала вызывается метод der и ему передаётся 5

Код


        Dim instance As String = 5
        Dim value As String
        value = der(instance)

далее, в самом методе переменной temp присваивается значени 4, после чего проверяется равно ли temp четырём, а так же равно ли str пяти, естественно эти условия выполняются и стало быть темп присваивается значение Nothing. Здесь переменная и "обнуляется"

Код


        Dim qwert As String
        'Dim temp As String
        If str = 1 Then
            temp = 4
        End If
        If str = 5 And temp = 4 Then
            qwert = 3
            temp = Nothing
        End If

Добавлено через 5 минут и 13 секунд
Akina, у него MDI приложение(посмотри его предыдущий вопрос), переменную temp он объявил в главной форме, а закрывает дочернюю.

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

Akina

Дата 5.6.2009, 16:31 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 1
Всего: 454

Цитата(diadiavova @ 5.6.2009, 17:17

)

у него MDI приложение(посмотри его предыдущий вопрос), переменную temp он объявил в главной форме, а закрывает дочернюю.

Ну он бы, наверное, мог соскочить с граблей, если бы не Dim ac As New frmMain

--------------------

diadiavova

Дата 5.6.2009, 16:33 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Цитата(Akina @ 5.6.2009, 16:31

)

Ну он бы, наверное, мог соскочить с граблей, если бы не Dim ac As New frmMain

И это тоже.

Добавлено через 14 минут и 20 секунд
Вообще: код очень путанный. Попытался изучить повнимательней, только запутался.

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

kentaro

Дата 8.6.2009, 09:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 24.3.2009

Репутация: нет
Всего: нет

спасибо всем за участие.Наконецто решил эту проблему

Код


''' <summary>
    ''' возвращает параметер по которому регулируются дочерние окна
    ''' </summary>
    ''' <param name="str"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Function regulation(ByVal str As String) As String
        Dim flag As String
        If str = 1 Then
            start.temp = 4 'Глобальная переменая находится в модули старт
        End If
        If str = 5 And start.temp = 4 Then
            flag = 2
            start.temp = Nothing
        End If
        Return flag
    End Function

Код


Private Sub frmMain_MdiChildActivate(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.MdiChildActivate
        Dim activeChild As ChildForm
        Dim instance As String = 5
        Dim value As String
        Dim f As New ChildForm

        f.MdiParent = Me
        value = regulation(instance)
        If value = "2" Then
            If start.casc = 1 Then
                Exit Sub
            Else
                Timer1.Interval = 100
                Timer1.Start()
            End If
        End If


    End Sub

Код


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.LayoutMdi(System.Windows.Forms.MdiLayout.TileHorizontal)
        Timer1.Stop()
    End Sub

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »