VB.net - Valdymo elementų indekso pakeitimas

Įvadas

Tiems, kurie jau yra pristatyti į VB6, lengva sukurti tokį pat pavadinimą turinčius valdiklius, bet su kitu indeksu.

Pagal VB.Net BG dalykai sustingsta; kontrolinių rinkinių nebėra.

Todėl būtina sukurti gudrybės, kad įveiktų šį trūkumą, tačiau nesijaudinkite, viskas yra įmanoma VB.Net.
Galime manyti, kad visos formos kontrolės priemonės jau yra kolekcijos dalis. Iš ten mes galime juos identifikuoti!
Mes galime peržiūrėti visas „kontrolės“ formas, sudarančias formos formą, tačiau pagrindinis sunkumas yra tas, kad kiekviena kontrolė turi savo savybes.
Šis pirmasis požiūris, kai mes valdysime įvairių tipų valdiklių savybes su kai kuriomis kodo eilutėmis viename sub.

Preliminarus

Atidarykite naują „Windows“ formos projektą

Įklijuokite 4 teksto lapus ir nustatykite 1, 2, 3 ir 4 žymės savybes
Įklijuokite 6 nuotraukų langelį ir nustatykite jų žymės savybes 1, 2, 3, 4 ... 6
Įklijuokite 2 mygtukus

Kodas

Kodas yra padalintas į dvi dalis, kad būtų geriau įskaitomas, tačiau jį galima pasiekti vienu sub.

Jei norite, galite išvalyti abi eilutes: Img.image = ...

Vaizdai yra užtrauktuku.

'================================================= =============

„Formoje

„4„ TextBox propriété Tag de 1 à 4 “

6 „PictureBox propriété Tag de 1 à 6“

'================================================= =============

 Viešoji klasė Form1 privataus sub Form1_Load (ByVal siuntėjas Kaip System.Object, ByVal e kaip System.EventArgs) Rankenos MyBase.Load InitPic () Iniciatyva () Pabaiga Subt InTimeText () Dim Ctl kaip kontrolė Dim Txt As TextBox Statinis NbAlea As Integer NbAlea + = 1: Jei NbAlea> 4 Tada NbAlea = 1 kiekvienam Ctl In Me.Controls boucle sur Tout les la Forme Jei TypeOf Ctl yra TextBox Tada „Vérifie que c'est un textbox Txt = Ctl Jei Txt.Tag = Tada „S'il n'y a que des TextBox sur la form il n'est pas nécessaire 'de passer par une kintamasis buferis Txt.Text =" c'est le TextBox: "& Txt.Name Txt.BackColor = Spalva .Uchsia Else Txt.Text = "" Txt.BackColor = Color.Empty End Jei pabaiga Jei kitas pabaiga Sub Sub InitPic () Dim Pic kaip kontrolė, kaip „PictureBox“, statinis NbAlea kaip vientisas NbAlea + = 1: Jei NbAlea> 6 Tada NbAlea = 1 'S'il n'y a que des pictureBox sur la form il n'est pas nécessaire' de passer par une kintamasis buferis Kiekvienam Pic In Me.Controls boucle sur tout les de la forme Jei tipasOf Pi c Ar „PictureBox“ tada „Img“ = „Pic“, jei „Pic.Tag“ = „NbAlea“, tada „Img.BackColor“ = „Coloramarine Img.BorderStyle“ = „BorderStyle.Fixed3D“ „Img.Image = System.Drawing.Bitmap.FromFile (My.Application.Info.DirectoryPath &” bt "& NbAlea &" .bmp ") Img.SizeMode = PictureBoxSizeMode.StretchImage Else Img.BackColor = Color.Chocolate Img.BorderStyle = BorderStyle.FixedSingle End Jei pabaiga Jei Next End Sub Private Sub Button1_Click (ByVal siuntėjas kaip sistema. Spragtelėję mygtuką Button1.Click InitText () End Sub Private Sub Button2_Click (ByVal siųstuvas kaip System.Object, ByVal e As System.EventArgs) Rankenos Button2.Click InitPic () End Sub End Class

Parsisiųsti: