Как при нажатие кнопки поменять текст в Label1 другой формы

@FadiSh · Регистрация: 24.10.2014

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

Всем привет!
Как можно менять текст Label при нажатие на кнопку ?

Form1 Есть Label и кнопка с текстом (Open Form 2)
Fomr2 Есть только кнопка с текстом (Close Form2 and show Form1)

У меня пока что код такой

VB.NET

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
        Form1.Show()
        If Form1.Label1.Text = "Hello" Then
            Form1.Label1.Text = "Hello World!"
        End If
        If Form1.Label1.Text = "Hello World!" Then
            Form1.Label1.Text = "Hellow World! Welcome!"
        End If
    End Sub

Должно быть так:
При запуске программы Form1 отображает label1 с текстом Hello!
Когда я нажимаю на кнопку Open Form 2, открывается форма и там кнопка закрыть, после того как я закрою форму нужно чтобы текст в Label1 поменялся на Hellow World!. Если заново открыть форму и нажать на кнопку, и закрыть форму 2 , чтобы текст снова поменялся на другой.. И Так далее.

С моим кодом что получается:
1- Форма1 открывается
2- Label Text = Hello
3- Форма2 открывается
4- При закрытие формы 2, Label1 Меняется сразу на Hello World! Welcome!

Как можно сделать чтобы сперва текст был Hello после первой закрытие форма 2 Label менялся на Hello World! а потом Hello World Welcome!

Спасибо !

@Hemicide · 28.10.2014, 21:23

FadiSh, а Вы знаете почему так происходит? У Вас выполняется первое условие и Label1.Text становится "Hello World!", а потом он сразу проверяется на наличия "Hello World!" и снова в точку, выполняется второе условие и "Hello World!" меняется на "Hellow World! Welcome!".
Всё потому что Вы не правильно составили условие!

VB.NET

        If Form1.Label1.Text = "Hello!" Then
            Form1.Label1.Text = "Hello World!"
        ElseIf Form1.Label1.Text = "Hello World!" Then
            Form1.Label1.Text = "Hellow World! Welcome!"
        End If

VB.NET

        Select Case Form1.Label1.Text
            Case "Hello!"
                Form1.Label1.Text = "Hello World!"
            Case "Hello World!"
                Form1.Label1.Text = "Hellow World! Welcome!"
        End Select

Либо счётчик на количество показа формы:

VB.NET

Public Class Form1
    Public ShowCount As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Hide()
 
        ShowCount += 1
 
        Form2.Show()
    End Sub
End Class

VB.NET

        Select Case Form1.ShowCount
            Case 1
                Form1.Label1.Text = "Hello World!"
            Case 2
                Form1.Label1.Text = "Hellow World! Welcome!"
            Case 3
                Form1.Label1.Text = "Hellow World! Welcome! Text"
            Case 4
                Form1.Label1.Text = "Hellow World! Welcome! Text Text"
        End Select

	28.10.2014, 21:23

Опции темы

Как при нажатие кнопки поменять текст в Label1 другой формы

Решение