dotNETportal.cz

 Dim i As Integer
        Dim Obrazok As New PictureBox
        Dim c As Integer = 1
        For i = 1 To 36
            With Obrazok
                .Name = "PictureBox" & c
                .Height = 150
                .Width = 150
                .Location = New Point(784, 783)
                .Visible = True
                .Image = Image.FromFile("Pictures\Picture.jpg")
            End With
        Next

Riešim taký problem. Chcel by som kódom pridať na formulár 36 PictureBoxov s názvom PictureBox1 až PictureBox36 s rovnakým obrázkom, rovnaká velkosť ale rôzna lokacia. Aby som to nemusel všetko vypisovať chcel som použiť príkaz približne takýto kód. Nefunguje. Lokáciu doriešim neskôr ale momentálne mám problém aby sa mi zobrazili. Poradí niekto ?

Dík. Som len začiatočník. Nevedel som si s tým poradiť. Je to paráda.

Prominte že vám skáču do rozhovoru ale jsem zvědavej začátečník,avšak nikde jsem zde nenašel polohu ostatních pictureboxu.Našel jsem prvního a následujícího...z čeho se bere poloha dalších?

Děkuji a ještě jednou se omlouvám za vpadnutí.

Tazatel psal, že polohování bude teprve řešit. V uvedených příkladech jsou všechny pictureboxy naskládány na sobě (mají stejnou polohu).

Aha omlouvám se tedy to jsem nepostřehl.

A čo ak už mám na Form1 36x PictureBox a kódom im chcem priradiť rovnaký obrázok ?

Je otázkou, jak tam ty PictureBoxy máte.

Jestli to jsou jediné PictureBoxy, pak je nejjednodušší a asi i nejrychlejší projít všechny Controlls ve stejnojmenné kolekci Vašeho formuláře, zjistit, jestli se jedná o Picturebox a pokud ano, přiřadit mu obrázek (případně můžete udělat ještě i jiné kontroly třeba na jméno atd. pokud potřebujete třeba nějaké pictureboxy vyloučit)

Pokud máte ve formuláři hodně i jiných prvků, pak bude výhodné umístit všechny pictureboxy, o které máte zájem, do jednoho kontejneru a pak máte situaci zjednodušenou a zrychlenou (projdete všechny controlls pouze tohoto kontejneru).

Naopak přes jména to jde taky, ale bude to asi pomalejší - diskutovali jsme o tom dost pod tímnto článkem http://www.vbnet.cz/clanek--45-vb_net_od... , nebo například tady http://www.vbnet.cz/forum-tema--331-jak_...