Új hozzászólás Aktív témák

• #745 [HUN]Zolee őstag Polyák #744

  Új Válasz 2007-01-01 05:44:58 #745

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  [HUN]Zolee

  őstag

  válasz Polyák #744 üzenetére

  7 be így néz ki
  
  
  Dim elemek(3) As Object
  
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  elemek(1) = Label1
  elemek(2) = Button1
  elemek(3) = TextBox1
  End Sub
  
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  If elemek(1).text = ''AK'' Then
  elemek(1).text = ''ASdf''
  elemek(2).text = ''Gomb''
  elemek(3).text = ''Doboz''
  End If
  End Sub
  
  ez csak az hogy hogyan gondoltam, a ciklus meg a beolvasás nincs benne, de gondolom az menni fog
  
  (7 be a label nek caption helyett text-je van már.)
  
  
  [Szerkesztve]

Új hozzászólás Aktív témák