dotNETportal.cz

Pokud chcete pracovat s hodnotami formuláře v jeho třídě (např. v Public Class Form1) , oslovujete formulář s Me. Pokud voláte jiný formulář, oslovujete jej jeho jménem.

  Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, _ 
        ByVal e As   System.EventArgs) Handles MyBase.Load
      Me.Text = "Text prvního formuláře (Form1.text)"
    End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles Button1.Click
      Dim prvniForm As New Form1
      prvniForm.Label1.Text = Me.Text
      Me.Label1.Text = prvniForm.Label1.Text
    End Sub
  End Class

nebo jinak

  Public Class Form1
  Private Sub Form1_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
      Me.Text = "Text prvního formuláře (Form1.text)"
      Me.Label1.Text = Me.Text
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
      Dim prvniForm As New Form1
      prvniForm.Text = "Text nového formuláře (prvniForm.Text)"
      Me.Label1.Text = prvniForm.Text
    End Sub
  End Class

Ale ono Vám to funguje! V uvedeném kódu máte jenom jeden drobný nedostatek.

Když spustíte standardní winForms aplikaci, pokud neřeknete jinak, spustí se Vám třída Form1.

Ta si vytvoří nějakou svou instanci a běží, jednoduše se na ni odvoláváte jako na "Me" (jméno totiž neznáte).

Nyní, pokud napíšete,

Dim prvniForm As New Form1

,ta je zapotřebí si uvědomit, že vytváříte ZCELA NOVOU instanci, tedy nový "Form", který je, shodou okolností, založen na "stejné šabloně, neboli třídě", tj. na Form1.

Jinak řečeno, bude vypadat stejně jako Vaše "běžící" Form1, budou na něm stejná tlačítka a stejné prvky, ale bude to zcela samostatný objekt a mimo statických proměnných (které jsou společné všem instancím dané třídy) nebudou mít nadále již nic společného.

pokud tedy měníte text labelu:

prvniForm.Label1.Text = "text druhého formuláře"

tak jej skutečně měníte, ale nic nevidíte, protože jste si ten nový druhý form (umně nazvaný "prvniForm") nezobrazil.

zkuste tedy Váš kód upravit následovně (dovolil jsem si novému formu dát příhodnější jméno):

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim dalsiForm As New Form1
dalsiForm.show()
dalsiForm.Label1.Text = "text změněn z předchozího formuláře"
End Sub

a vyzkoušejte, co to dělá - můžete i vícekrát (otevřít těch formů postupně více)

Nevím, komu je Vaše odpověď určená, vhodnější by byla reakce tazatele. Šlo mu o předávání hodnot mezi formuláři. To jsem snad ukázal. První ukázka má nadbytečné předávání hodnot, vím a proto jsem doplnil druhou...

Ale není nejspíš pravda, že neznám jméno formuláře po spuštění formulářové aplikace. Znám. Po založení projektu dostane formulář standardně jméno Form1, další Form2 atd. a jména jim zůstanou, pokud je ve vývojovém prostředí nezměním. Když např. v projektu přidám druhý formulář, můžu napsat

do třídy Form1

Public Class Form1
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ' Me.Text = "text prvního formuláře" jsem vložil ve vývojovém prostředí
    MsgBox("Text z Form2 = " & Form2.Text, , "Zde je Form1 a čte z Form2")
    Form2.Show()
  End Sub
End Class

do třídy Form2

Public Class Form2
  Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'Me.Text = "text druhého formuláře" jsem vložil ve vývojovém prostředí
    MsgBox("Text z Form1 = " & Form1.Text, , "Zde je Form2 a čte z Form1")
  End Sub
End Class

a mezi formuláři komunikovat