Visual Basic - poradna.net

Select Case PictureBox36.Tag
Case "1" : PictureBox36.Image = mini1.Image
Case "2" : PictureBox36.Image = mini2.Image
Case "3" : PictureBox36.Image = mini3.Image
Case "4" : PictureBox36.Image = mini4.Image
Case "5" : PictureBox36.Image = mini5.Image
Case "6" : PictureBox36.Image = mini6.Image
Case "7" : PictureBox36.Image = mini7.Image
Case "8" : PictureBox36.Image = mini8.Image
Case "9" : PictureBox36.Image = mini9.Image
Case "10" : PictureBox36.Image = mini10.Image
Case "11" : PictureBox36.Image = mini11.Image
Case "12" : PictureBox36.Image = mini12.Image
Case "13" : PictureBox36.Image = mini13.Image
Case "14" : PictureBox36.Image = mini14.Image
Case "15" : PictureBox36.Image = mini15.Image
Case "16" : PictureBox36.Image = mini16.Image
Case "17" : PictureBox36.Image = mini17.Image
Case "18" : PictureBox36.Image = mini18.Image
Case "19" : PictureBox36.Image = mini19.Image
Case "20" : PictureBox36.Image = mini20.Image
Case "21" : PictureBox36.Image = mini21.Image
Case "22" : PictureBox36.Image = mini22.Image
Case "23" : PictureBox36.Image = mini23.Image
Case "24" : PictureBox36.Image = mini24.Image
Case "25" : PictureBox36.Image = mini25.Image
Case "26" : PictureBox36.Image = mini26.Image
Case "27" : PictureBox36.Image = mini27.Image
Case "28" : PictureBox36.Image = mini28.Image
Case "29" : PictureBox36.Image = mini29.Image
Case "30" : PictureBox36.Image = mini30.Image
Case "31" : PictureBox36.Image = mini31.Image
Case "32" : PictureBox36.Image = mini32.Image
Case "33" : PictureBox36.Image = mini33.Image
Case "34" : PictureBox36.Image = mini34.Image
Case "35" : PictureBox36.Image = mini35.Image
Case "36" : PictureBox36.Image = mini36.Image
Case "Else" : MsgBox("Neni" & PictureBox36.Tag)
End Select

K čemu přesně je tu využit tag?

Předmět	Autor	Datum
CASE slouzi na overeni, jetli je tam to co hledas. CoCoChanel 22.03.2015 20:30	CoCoChanel	22.03.2015 20:30
Já se ale ptám na vlastnost tag Programátooor 22.03.2015 20:31	Programátooor	22.03.2015 20:31
• Nevim jak to napsat, ten .tag je aby si to zapamatoval, zapsal do pameti. CoCoChanel 22.03.2015 20:33	CoCoChanel	22.03.2015 20:33
Tag obsahuje obecnou integer hodnotu. V tomto pripade se na zaklade hodnoty TAG zobrazi v PictureBox… Jan Fiala 22.03.2015 20:33	Jan Fiala	22.03.2015 20:33
A jak se do tagu zapíše nějaká hodnota? Programátooor 22.03.2015 20:36	Programátooor	22.03.2015 20:36
• Zrejme pres nakou knihovnu.. CoCoChanel 22.03.2015 20:39	CoCoChanel	22.03.2015 20:39
neco.Tag = nejaka_hodnota; Wikan 22.03.2015 20:40	Wikan	22.03.2015 20:40
TAG je property objektu. Zrovna tak, jako kdyz priradis text treba do editu: edit.Text = 'Muj prvni… Jan Fiala 22.03.2015 20:46	Jan Fiala	22.03.2015 20:46
Tag není integer, ale libovolný object, teda alespoň v .NETu. Wikan 22.03.2015 20:39	Wikan	22.03.2015 20:39
V čemkoliv je to "libovolný objekt". Je to integer hodnota, do které můžeš zapsat ukazatel na objekt… Jan Fiala 22.03.2015 20:44	Jan Fiala	22.03.2015 20:44
Neviem či si dal dobrý príklad: Pointer(objekt) predsa nie je integer... Ak by som chcel do vlastno… pme 22.03.2015 20:57	pme	22.03.2015 20:57
Omlouvám se, přetypovaní musí být na integer, ne na Pointer. Takže něco takového: procedure TForm1.… Jan Fiala 22.03.2015 21:59	Jan Fiala	22.03.2015 21:59
Jinak ten kód psal pracovitý pit*mec. :-) Šlo by to zapsat na řádek či dva. Flash_Gordon 22.03.2015 21:24	Flash_Gordon	22.03.2015 21:24
Díky moc všem :) Vím jsem ale začátečník;) Programátooor 22.03.2015 22:07	Programátooor	22.03.2015 22:07
Kde jsi ten kód vůbec sebral? Protože pokud se z něj chceš něco naučit, tak je přímo ukázkový - ukáz… Wikan 22.03.2015 22:16	Wikan	22.03.2015 22:16
To je můj kod :D Programátooor 22.03.2015 23:32	Programátooor	22.03.2015 23:32
To je tvůj kód a přitom nevíš, co dělá? To ho píšeš náhodnými údery do klávesnice? Wikan 23.03.2015 07:49	Wikan	23.03.2015 07:49
Ne, prostě to někde zkopíruje a pastne a až má kódu 2 stránky, tak se mu to celé rozsype, protože ne… poslední Jan Fiala 23.03.2015 09:59	Jan Fiala	23.03.2015 09:59

CASE slouzi na overeni, jetli je tam to co hledas.

Já se ale ptám na vlastnost tag

• Nevim jak to napsat, ten .tag je aby si to zapamatoval, zapsal do pameti.

Tag obsahuje obecnou integer hodnotu. V tomto pripade se na zaklade hodnoty TAG zobrazi v PictureBox36 obrazek podle hodnoty TAG.
Ale prece neni zase tak slozite ten kod precist...

A jak se do tagu zapíše nějaká hodnota?

• Zrejme pres nakou knihovnu..

neco.Tag = nejaka_hodnota;

TAG je property objektu. Zrovna tak, jako kdyz priradis text treba do editu:
edit.Text = 'Muj prvni text v editu'
tak muzes zapsat Tag nebo priradit jakoukoliv jinou vlastnost - font, velikost, pozici, viditelnost...

Tag není integer, ale libovolný object, teda alespoň v .NETu.

V čemkoliv je to "libovolný objekt". Je to integer hodnota, do které můžeš zapsat ukazatel na objekt. Zřejmě to můžeš v :NET udělat přímo, v Delphi musíš použít

neco.Tag := Pointer(objekt);

Neviem či si dal dobrý príklad:
Pointer(objekt) predsa nie je integer...

Ak by som chcel do vlastnosti objektu tag uložiť napr. nejaký text, potom asi nejak takto:

var
 mystring : String;
 tagstring: PChar;
begin
  mystring := 'blabla';
  getmem(tagstring, 1+ Length(mystring);
  StrPCopy(tagString, mystring); 
  neco.tag := integer(mystring);
end;

Omlouvám se, přetypovaní musí být na integer, ne na Pointer. Takže něco takového:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Tag := Integer(Edit1);
  TEdit(Button1.Tag).Text := 'Novy text';
end;

Jinak ten kód psal pracovitý pit*mec.

Šlo by to zapsat na řádek či dva.

Díky moc všem :) Vím jsem ale začátečník;)

Kde jsi ten kód vůbec sebral? Protože pokud se z něj chceš něco naučit, tak je přímo ukázkový - ukázka jak to rozhodně nedělat.

To je můj kod :D

To je tvůj kód a přitom nevíš, co dělá? To ho píšeš náhodnými údery do klávesnice?

Ne, prostě to někde zkopíruje a pastne a až má kódu 2 stránky, tak se mu to celé rozsype, protože neví, co to vlastně dělá

Zpět do poradny Odpovědět na původní otázku Nahoru