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

• sztanozs veterán

  #2372

  #2371 cigam

  2014-02-17 11:56:43

  Ú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

  

  sztanozs

  veterán

  #2371 cigam

  #2371 cigam

  Ismerkedem a VBExpress-el, és belefutottam egy kérdésbe: Amikor a lenti kóddal hozzáadok egy új fület, hogyan adok az új fülhöz egy, a fül sorszámával megegyező nevü szövegdobozt?

  Dim ujful As New TabPage
  ujful.Text = "szöveg " & (TabControl1.TabPages.Count + 1)
  TabControl1.TabPages.Add(ujful)
  ' ide kéne az as varázskód ami a fülhöz hozzáadja a szovegelosorszam nevü RichTextBox-ot
  Dim "szovegdoboz" & (TabControl1.TabPages.Count) As New RichTextBox
  'Átváltok az új fülre
  TabControl1.SelectedTab = (ujful)

  1) Használd a kód formázást.
  2) kb fejből, szal lehet benne hiba vagy elírás

  for ix = 1 to fulek_szama
  Dim ujful As TabPage
  Set ujful = New TabPage
  ujful.Text = "szöveg " & (TabControl1.TabPages.Count + 1)
  ' ide kéne az as varázskód ami a fülhöz hozzáadja a szovegelosorszam nevü RichTextBox-ot
  Dim szovegdoboz As RichTextBox
  Set szovegdoboz = new RichTextBox
  szovegdoboz.Name = "szovegelosorszam" & (TabControl1.TabPages.Count + 1)
  ujful.Controls.Add szovegdoboz
  TabControl1.TabPages.Add(ujful)
  next

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