VB.net - kontrolsaraksta nomaiņa uz veidlapas

Ievads

Tiem, kas jau ir iepazīstināti ar VB6, ir viegli izveidot tādu pašu nosaukumu, bet ar citu indeksu.

Saskaņā ar VB.Net BG lietas ir stingrākas; kontroles kolekcijas vairs nepastāv.

Tāpēc ir nepieciešams izstrādāt trikus, lai pārvarētu šo trūkumu, bet neuztraucieties, viss ir iespējams ar VB.Net.
Mēs varam uzskatīt, ka visas veidlapas kontroles jau ir kolekcijas daļa. No turienes mēs varam mēģināt tos identificēt!
Mēs varam pārskatīt visu "kontroles" veidlapu, kas veido veidlapas dizainu, bet galvenais ir tas, ka katrai kontrolei ir savas īpašības.
Šī pirmā pieeja, ko mēs izmantojam, attieksies uz dažādu tipu vairāku vadības elementu īpašībām ar dažām koda rindām vienā apakšgrupā.

Iepriekšējs

Atveriet jaunu Windows veidlapas projektu

Ielīmējiet 4 tekstu un iestatiet to atzīmes 1, 2, 3 un 4
Ielīmējiet 6 attēlu lodziņu un iestatiet to iezīmes 1, 2, 3, 4 ... 6
Ielīmēt 2 pogas

Kods

Kods ir sadalīts divās daļās, lai iegūtu labāku lasāmību, bet to var panākt ar vienu apakšsadaļu.

Ja vēlaties, varat tīrīt abas līnijas: Img.image = ...

Attēli ir zip.

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

“Veidlapā

'4 TextBox propriété Tag de 1 à 4

'6 PictureBox propriété Tag de 1 à 6

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

 Publiskā klase Form1 Private Sub Form1_Load (ByVal sūtītājs Kā System.Object, ByVal e kā System.EventArgs) Rokturi MyBase.Load InitPic () InitText () Beigas Sub Sub InitText () Dim Ctl kā Kontrole Dim Txt Kā TextBox Statiskā NbAlea Kā Integer NbAlea + = 1: Ja NbAlea> 4 Tad NbAlea = 1 katram Ctl In Me.Controls "Boucle sur Tout les la Forme" Ja TypeOf Ctl ir TextBox Tad 'Vérifie que c'est un textbox Txt = Ctl Ja Txt.Tag = NbAlea Tad 'S'il n'y a que des TextBox sur la form il n'est pas nécessaire' de passer par une mainīgais buferis Txt.Text = "c'est le TextBox:" & Txt.Name Txt.BackColor = Color Fuchsia Else Txt.Text = "" Txt.BackColor = Color.Empty End Ja Beigas Ja Nākamais Beigas Sub Sub InitPic () Dim Pic Kā Kontrole Dimgg Kā PictureBox Statisks NbAlea Kā Integer NbAlea + = 1: Ja NbAlea> 6 Tad NbAlea = 1 'S'il n'y a que des pictureBox sur la form il n'est pas nécessaire' de passer par une mainīgais buferis Katram Pic In Me.Controls 'boucle sur tout les de la Forme' Ja tipsOf Pi c Vai PictureBox tad Img = Pic Ja Pic.Tag = NbAlea Tad Img.BackColor = Color.Aquamarine 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 Ja Beigas Ja Nākamais Beigas Sub Private Sub Button1_Click (ByVal sūtītājs kā sistēma. Rokturi Button1.Click InitText () End Sub Private Sub Button2_Click (ByVal sūtītājs kā System.Object, ByVal e kā System.EventArgs) Rokturi Button2.Click InitPic () Beigas beigu klase

Lejupielādēt: