Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Visual Basic net

[es] :: .NET :: Visual Basic net

[ Pregleda: 3031 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

mka

Član broj: 317853
Poruke: 3
*.teol.net.



Profil

icon Visual Basic net27.09.2013. u 07:58 - pre 128 meseci
Pozdrav, imam problem sa dijelom koda za promjenu picturebox ikone. Primjer problema
Code:

dim tekst1 as String
dim tekst2 as String
tekst1="PictureBox.Image"
tekst2="My.Resources.slika"

e sad kako da napisem tekst1=tekst2 pa da to u vb izgleda kao PictureBox.Image=My.Resources.slika i da promjeni sliku?
Hvala unaprijed
 
Odgovor na temu

dusans
Stojanov Dušan
Pančevo

Član broj: 9551
Poruke: 1343
*.dynamic.sbb.rs.



+311 Profil

icon Re: Visual Basic net27.09.2013. u 08:18 - pre 128 meseci
A šta je problem da napišeš ovo umesto svega onog?
Code:

PictureBox.Image=My.Resources.slika
 
Odgovor na temu

mka

Član broj: 317853
Poruke: 3
*.teol.net.



Profil

icon Re: Visual Basic net27.09.2013. u 08:33 - pre 128 meseci
Imam vise picturebox-ova i iz sql baze povlacim informaciju o kome picturebox-u se radi i koju sliku da stavi
 
Odgovor na temu

dusans
Stojanov Dušan
Pančevo

Član broj: 9551
Poruke: 1343
*.dynamic.sbb.rs.



+311 Profil

icon Re: Visual Basic net27.09.2013. u 08:57 - pre 128 meseci
Onako kako si zamislio preko stringova ne može pošto u VB.net-u ne postoji eval.

Evo ti jedan od načina kako da uradiš to što treba.
Prvo pronađeš picture box po imenu, evo ti jedan način, primer:
http://bytes.com/topic/visual-...s/348664-getting-controls-name

Zatim da mu dodeliš odgovarajući image:
Code:

PictureBox.Image = My.Resources.ResourceManager.GetObject("ImageName")
 
Odgovor na temu

mka

Član broj: 317853
Poruke: 3
89.111.250.*



Profil

icon Re: Visual Basic net27.09.2013. u 18:20 - pre 128 meseci
Hvala puno, pomoglo mi je al' sam imao problema jer nisam znao da controls ima child pa ovi mogu jos child da imaju... rjesio sam problem na sledeci nacin
Code:

Public Shared Function nadjisve(ByVal list As List(Of Control), ByVal parent As Control, ByVal ctrlType As System.Type) As List(Of Control)
        If parent Is Nothing Then Return list
        If parent.GetType Is ctrlType Then
            list.Add(parent)
        End If
        For Each child As Control In parent.Controls
            nadjisve(list, child, ctrlType)
        Next
        Return list
    End Function

Hvala puno !!!
 
Odgovor na temu

[es] :: .NET :: Visual Basic net

[ Pregleda: 3031 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.