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

• #747 Polyák tag

  Új Válasz 2007-01-04 22:49:02 #747

  Ú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

  

  Polyák

  tag

  Megvan a megldás a kérdésemre ily késői órán!
  
  Szal csak annyi hogy előre betöltöm a sorokat aztán hivatkozok rájuk!
  
  Private Sub Combo1_Click()
  If Combo1.Text = ''Magyar'' Then
  Open ''c:\1.txt'' For Input As #1
  Line Input #1, cimke1$
  Line Input #1, lab1$
  Line Input #1, lab2$
  Line Input #1, lab3$
  Line Input #1, txt1$
  Line Input #1, txt2$
  Close #1
  End If
  
  If Combo1.Text = ''Angol'' Then
  Open ''c:\2.txt'' For Input As #2
  Line Input #2, cimke1$
  Line Input #2, lab1$
  Line Input #2, lab2$
  Line Input #2, lab3$
  Line Input #2, txt1$
  Line Input #2, txt2$
  Close #2
  End If
  
  Me.Caption = cimke1$
  Label1.Caption = lab1$
  Label2.Caption = lab2$
  Label3.Caption = lab3$
  Text1.Text = txt1$
  Text2.Text = txt2$
  
  End Sub
  
  Private Sub Form_Load()
  
  Combo1.AddItem ''Magyar''
  Combo1.AddItem ''Angol''
  
  End Sub
  
  Ha kiválsztom a nyelvet egyből beírja azon a nyelven! De ügyes vagyok!
  Erre rájöhettem volna előbb is nem?

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