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

• sonar addikt

  #748

  #747 Polyák

  2007-01-05 14:26:35

  Új Válasz

  Ú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

  

  sonar

  addikt

  #747 Polyák

  #747 Polyák

  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?

  Igen és ha vki elüt egy betüt akkor micsinál?
  Amugy a beolvasást egy rutinba irnám meg, rövidebb lenne átláthatóbb később könnyebb módosítani
  If Combo1.Text = ''Magyar'' Then
  Open ''c:\1.txt'' For Input As #1
  call beolvas
  
  
  sub beolvas
  Line Input #1, cimke1$
  Line Input #1, lab1$
  Line Input #1, lab2$
  Line Input #1, lab3$
  Line Input #1, txt1$
  Line Input #1, txt2$
  

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