Miten voin Visual Basic 2005:llä tehdä ohjelmallisesti esimerkiksi PictureBoxin?
Kokonaan koskematta designeriin siis. Olisi tarvetta tollaiselle, koska tarvittavien picture boksien määrä saadaan selville vasta kun ohjelmaa ajetaan.
Kontrollien tekeminen ohjelmallisesti
8
448
Vastaukset
- xxxxx
Tee formille yksi kontrolli, jonka indeksiksi annat nollan. Tämän jälkeen voit kopioida sitä ajoaikana.
Esim. tee KuvaKontrolli(0)
Sitä saat kopioitua halutun määrän:
For i=1 to LKM
Load Kuvakontrolli(i)
next- Kysymyksen esittäjä
Hmm tajusinkohan nyt oikein.. Mihin tuo indeksi pitäisi laittaa? Ainakaan en voi tehdä pictureboxia jonka nimen perässä olisi indeksi tuolla tavalla.
- xxxxx
Kysymyksen esittäjä kirjoitti:
Hmm tajusinkohan nyt oikein.. Mihin tuo indeksi pitäisi laittaa? Ainakaan en voi tehdä pictureboxia jonka nimen perässä olisi indeksi tuolla tavalla.
Kun olet lisänyt formiin pictureboxisi. Paina sitten f4, jolloin ruudun oikeaan reunaan tulee pictureboxin propertiesit (=ominaisuudet), kuten visible, top/left ym. asetukset. Siellä on myös Index-ominaisuus. Se on aluksi tyhjä. Laita siihen nolla. Voit myös ruudussa kopioida pictureboxisi ja liittää sen samaan formiin, jolloin vb kysyy tehdäänkö siitä index-kontrolli vai annetaanko uusi nimi. Tämän jälkeen sinulla tosin on indeksit 0 ja 1, joten poista 1-indeksin kontrolli.
- Kysymyksen esittäjä
xxxxx kirjoitti:
Kun olet lisänyt formiin pictureboxisi. Paina sitten f4, jolloin ruudun oikeaan reunaan tulee pictureboxin propertiesit (=ominaisuudet), kuten visible, top/left ym. asetukset. Siellä on myös Index-ominaisuus. Se on aluksi tyhjä. Laita siihen nolla. Voit myös ruudussa kopioida pictureboxisi ja liittää sen samaan formiin, jolloin vb kysyy tehdäänkö siitä index-kontrolli vai annetaanko uusi nimi. Tämän jälkeen sinulla tosin on indeksit 0 ja 1, joten poista 1-indeksin kontrolli.
Oletko varma että se toimii VB 2005:ssä noin? Siellä propertiesseissa ei nimittäin ole indeksiä, ja jos kontrollia yrittää kopioida sille annetaan automaattisesti uusi nimi.
- xxxxx
Kysymyksen esittäjä kirjoitti:
Oletko varma että se toimii VB 2005:ssä noin? Siellä propertiesseissa ei nimittäin ole indeksiä, ja jos kontrollia yrittää kopioida sille annetaan automaattisesti uusi nimi.
Näköjään se ei onnistu tuolla tavalla VB 2005:ssä.
Itse käytän VB 6:sta.
Microsoft antaa näköjään ilmaiseksi ladata VB 2005:n. Joten latasin sen ja ihmettelin.
Siinä ei tarvitsekaan olla ruudussa kontrollia etukäteen, sillä sen voi kokonaan lisätä ajoaikana.
Se täytyy määritellä: Dim Testiobjekti As New Label()
Ja sitten lisätä formin kontrolleihin: Me.Controls.Add(Testiobjekti)
Tein ensimmäisen ohjelmani VB 2005:llä. Loin formiin suunniteluvaiheessa yhden labelin (Label1) ja kirjoitin siihen koodin. Aina kun labelia klikkaa, niin tehdään yksi uusi Label.
Tässä on koodi:
Public Class Form1
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
Static LKM
LKM = LKM 1
Dim Testiobjekti As New Label()
Me.Controls.Add(Testiobjekti)
Testiobjekti.Top = Label1.Top Label1.Height * LKM
Testiobjekti.Left = Label1.Left
Testiobjekti.AutoSize = True
Testiobjekti.Text = "Lisätty" Str$(LKM)
End Sub
End Class - Kysymyksen esittäjä
xxxxx kirjoitti:
Näköjään se ei onnistu tuolla tavalla VB 2005:ssä.
Itse käytän VB 6:sta.
Microsoft antaa näköjään ilmaiseksi ladata VB 2005:n. Joten latasin sen ja ihmettelin.
Siinä ei tarvitsekaan olla ruudussa kontrollia etukäteen, sillä sen voi kokonaan lisätä ajoaikana.
Se täytyy määritellä: Dim Testiobjekti As New Label()
Ja sitten lisätä formin kontrolleihin: Me.Controls.Add(Testiobjekti)
Tein ensimmäisen ohjelmani VB 2005:llä. Loin formiin suunniteluvaiheessa yhden labelin (Label1) ja kirjoitin siihen koodin. Aina kun labelia klikkaa, niin tehdään yksi uusi Label.
Tässä on koodi:
Public Class Form1
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
Static LKM
LKM = LKM 1
Dim Testiobjekti As New Label()
Me.Controls.Add(Testiobjekti)
Testiobjekti.Top = Label1.Top Label1.Height * LKM
Testiobjekti.Left = Label1.Left
Testiobjekti.AutoSize = True
Testiobjekti.Text = "Lisätty" Str$(LKM)
End Sub
End ClassKiitoksia, sain toimimaan :)
- Kysymyksen esittäjä
Nyt ilmaantui sellainen ongelma että pitäisi saada tehtyä subi joka ajetaan kun tuosta ajon aikana tehdystä kontrollista painaa, mutta se ei tunnu onnistuvan ainakaan niin että yksinkertaisesti laittaa Handles kontrollinNimi.Click. Mikä neuvoksi?
- xxxxx
Voit määritellä kontrollin eventille (esim. Click) halutun Subin näin: AddHandler Testiobjekti.Click, New EventHandler(AddressOf Testi)
Parantelin edellistä ohjelmapätkääni. Nyt aina kun lisättyä labelia klikataan, niin sen teksin perään lisätään uusi "x".
Public Class Form1
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
Static LKM
LKM = LKM 1
Dim Testiobjekti As New Label()
Me.Controls.Add(Testiobjekti)
Testiobjekti.Top = Label1.Top Label1.Height * LKM
Testiobjekti.Left = Label1.Left
Testiobjekti.AutoSize = True
Testiobjekti.Text = "Lisätty" Str$(LKM)
'tämä suorittaa kontrollin (tai olion) eventissä Click ohjelman Testi
AddHandler Testiobjekti.Click, New EventHandler(AddressOf Testi)
End Sub
Public Sub Testi(ByVal sender As System.Object, ByVal e As System.EventArgs)
'lisätään kontrollin (eli labelin tekstin perään x)
sender.text = sender.text "x"
End Sub
End Class
Ihan tässä harjoittelun ja mielenkiinnon vuoksi vastailen. VB 2005 käsitteet poikkeavat VB6:sta melkoisesti, joten ei heti löydä vastauksia. Nyt syötin quukleen näin: vb 2005 handles runtime "as new"
VB 2005 on ihan eri tuote kuin VB6. Todellakin sitä on parannettu todella paljon. Siirtyisin itsekin siihen, mutta kun ylläpidettävää VB6 koodia on niin paljon etten voi :(
VB 2005 vaatii ohjelmoijalta enemmän tietoa ja taitoa kuin VB6, mutta sillä myös voi ilmeisesti tehdä vapaammin mitä tahansa. Se myös pikaisen tutustumisen aikana vaikuttaa täydelliseltä oliokieleltä (mitä VB6 ei ollut).
Joten jos joku koodaaja tai yritys miettii millä kielellä alkaa tekemään uusia ohjelmia, niin suosittelen kyllä Visual Basic 2005:tä. Tai VB.NET-kieltä (josta en kyllä tiedä mitään).
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Suomi on täysin sekaisin
Jo ties monettako päivää hirveä itku ja poru jostain helvetin nilviäisistä. https://www.is.fi/taloussanomat/art-20000104504859Ensimmäisestä kohtaamisesta saakka
minulla on ollut hämmentynyt olo. Miten voit tuntua siltä, että olisin tuntenut sinut aina? Sinun kanssasi on yhtä aikaa151732Aivan täysin tahallinen teko
Ei mitään puolusteluja, eikä selittelyitä. Kuljettajalle kerrottiin asiasta siinä paikanpäällä, mutta silti hän ajoi ves941478Suomussalmi saatu vihdoin maailmankartalle!
Nyt kun Suomussalmi on vihdoin viimein saatu ennennäkemättömällä tavalla maailman tietoisuuteen niin voitaisiin järjestä531359Olet saanut minut sekoamaan
Tunteiden ristiaallokossa vellominen on ollut melkoinen kokemus. Ei kukaan ole saanut minua niin raiteiltaan kuin sinä.231337Mainehaitta metsäkonefirmalle
Hukkajoen tapahtumista liikkuu paljon huhuja. Eikö kannattaisi julkaista raakkuja tuhonneen metsäkoneyrityksen nimi, kos531228Oho! Maajussi-Kallelta pakit saanut morsioehdokas Miss Suomi -kisoissa! Tunnistaisitko hänet nyt?
Hmm, tunnistaisitko?!? Onnea missihulinoihin! Lue lisää ja katso kuvat: https://www.suomi24.fi/viihde/oho-maajussi-01075Myönnän sinulle nyt
Että olen erittäin mustasukkainen sinusta jo nyt. Ikävä on tämä tunne, kun tietämättömyyden solista nousee myrkkyä miele541010Pysytäänkö nainen
edelleen yhtä viileän tyynenä kun nähdään. Uskotko että tahtoessani saisin murettua tyyneytesi hyvin helposti.57895Olen käyttäytynyt ristiriitaisesti
eikä minusta varmaankaan ota mitään selvää. Se johtuu siitä, kun järki sanoo ei, ei, ei ja sydän sanoo kyllä, kyllä, kyl61879