Pytanie : VB.NET 2008 2008 Dodawać Forma Kontrola Opierać się na Książka telefoniczna i Kartoteka

I pracować na zastosowanie który dawać użytkownik końcowy the zdolność pismo przeciw SQLServer baza danych.  The forma mieć zakładka dla książka telefoniczna typ pismo (BO, FA, IR) che być książka telefoniczna. The combo pudełko na combo zakładka zaludniać z the pismo od ono być poszczególny książka telefoniczna.  Zamiast i the formularzowy opóźniony jeżeli nowy typ dodawać i nowy pismo dodawać.  I chcieć książka telefoniczna tabpages mój zakładka kontrola na formload według jaki książka telefoniczna być w the główny książka telefoniczna.  Obecnie the główny książka telefoniczna mieć "BO" "FA" i "IR" falcówka.  Jeżeli I dodawać "ST" I chcieć nowy zakładka na formload.

Currently Wszystkie 3 zakładka dostawać tworzyć ale zamiast zakładka "BO" "FA" i "IR" I dostawać "IR" "FA" i "IR".  I móc obliczać dlaczego. The zakładka imię dla tbpIR kończyć wszystko "tbpIR".  Mój kontrola (combobox i etykietka) dostawać dodawać the tabpages gdy well.

See kod below
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

Private Okręt podwodny Form1_Load (ByVal nadawca Jako Przedmiot, ByVal e Jako System.EventArgs) Obchodzić się Me.Load
        conn. Otwierać ()


        Ćmić cmb Jako Nowy ComboBox
        Ćmić tbp Jako Nowy TabPage
        Ćmić lbl Nowy Etykietka
        Ćmić dir Jako Nowy DirectoryInfo ("\ \ serwer \ ono \ ScriptTest \ ")

        Dla Dir.GetDirectories D Jako DirectoryInfo W dir.GetDirectories

            tbp. Imię = "tbp" & d.Name
            tbp. Lokacja = Nowy System.Drawing.Point (4, 22)
            tbp. = Nowy System.Windows.Forms.Padding (3)
            tbp. Rozmiar = Nowy System.Drawing.Size (281, 187)
            tbp.UseVisualStyleBackColor = Prawdziwy
            tbp. Tekst = d.Name
            Me.tbcModules.Controls.Add (tbp)

            cmb.FormattingEnabled = Prawdziwy
            cmb. Lokacja = Nowy System.Drawing.Point (15, 98)
            cmb. Imię = "cmb" & d.Name
            cmb. Rozmiar = Nowy System.Drawing.Size (228, 21)
            tbp. Controls.Add (cmb)

            lbl.AutoSize = Prawdziwy
            lbl. Lokacja = Nowy System.Drawing.Point (12, 42)
            lbl. Imię = "Lbl" & d.Name
            lbl. Rozmiar = Nowy System.Drawing.Size (219, 13)
            lbl.TabIndex = 3
            lbl. Tekst = "Wybiórka praca od the opuszczać puszek menu."
            tbp. Controls.Add (lbl)

            Ciemnawy falcówka Jako Nowy DirectoryInfo ("\ \ serwer \ ono \ ScriptTest \" & d.Name)
            Ciemnawy tmpName Jako Sznurek = ""
            Próba
                Dla Folder.GetFiles f Jako FileInfo W folder.GetFiles
                    cmb. Items.Add (f.Name.Replace (".txt", ""))
                Następnie


            Chwyt c Jako Wyjątek
                tbp. Dispose ()
            Kończyć Próba
        Następnie
    Końcówka Okręt podwodny

Odpowiedź : VB.NET 2008 2008 Dodawać Forma Kontrola Opierać się na Książka telefoniczna i Kartoteka

Bez testowanie ono, ale przy szybki spojrzenie, I sugerować to

Ciemnawy cmb Jako Nowy ComboBox
Ciemnawy tbp Jako Nowy TabPage
Ciemnawy lbl Nowy Etykietka

to
Ciemnawy cmb Jako ComboBox
Ciemnawy tbp Jako TabPage
Ciemnawy lbl Etykietka

i inside the dla pętla pętla
ustawiać cmb = nowy ComboBox
etc.

Ponieważ ono pojawiać się ty tworzyć jeden przedmiot i the odniesienie dostawać rozmieniony, raczej tworzyć nowy przedmiot.
Inne rozwiązania  
 
programming4us programming4us