Ominaisuuksien kopionti

"Tutkija"

VB-taitajat!
Kertokaahan miten kopioidaan esim. combobox ja groupbox (sis. radionappeja) ominaisuuksineen.
Tällaisena aloittelevana "Tutkijana" kykenen ajon aikana lisäämään komponentteja mutta ominaisuudet pitäisi saada mukaan.

Toisena murheena: textboxin tekstin lisääminen buttonilla vanhaa tekstiä hävittämättä...

Kovasti ennakkoon kiittäen!

Ps. Tälläerää en kaipaa fanaattisia vinkkejä "kunnon kieliin" vaihtamisesta. Ehkä pikemminkin asiallisia kommentteja aloittelevalle "helposti" omaksuttavasta...

4

702

    Vastaukset 4

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Nimetön

      ..sanomasta että vb on vain osittain ohjelmointikieli, mutta siinäkin eräs oikean ohjelmoinnin kulmakivi tietääkseni on, eli periytyvyys, ominaisuudet siis voidaan periyttää lapsioliolle.

    • vbguru

      Panenpa tähän malliksi miten esimerkiksi Comboboxin ominaisuuksia voi kopioda toiseen.

      Tässä ensin MSDN mallin mukaan ladataan Combo1

      Private Sub Form_Load()

      Combo1.AddItem "Chardonnay"
      Combo1.AddItem "Fumé Blanc"
      Combo1.AddItem "Gewürztraminer"
      Combo1.AddItem "Zinfandel"

      End Sub


      Ja jos Combo2 on luotu, lennosta tai muuten, sen arvoiksi kopioidaan nuo Combo1 datat

      Private Sub Command1_Click()
      Dim i As Integer
      For i = 0 To Combo1.ListCount - 1
      Combo2.AddItem Combo1.List(i)
      Next i
      End Sub

      Ja Textboxin tekstin lisääminen vanhaa hävittämättä. Jos vanha teksti halutaan säilyttää nimenomaan saman Textboxin sisältönä, niin laittaa vaan

      Text1.Text = Text1.Text & uusiteksti

      siis tuossa lisättävä teksti muuttujana "uusiteksti"

    • zardid

      Edellinen teksti ei katoa boxista, jos kirjoitat text.box.text= text.box.text "lisää tekstiä2

      • "Tutkija"

        Kiitos vastanneille!!!
        Projekti on ollut jäissä kys. ongelmien, puutarhatöiden ym. takia. Siinä välissä ehdin hieman tutustumaan muihinkin ohjelmiin ja Python vaikutti muita selkeämmältä, ei ylimääräisiä (???) välimerkkejä...
        Oletin tämän kysymykseni jo kuoppaantuneen aikasegmentteihin mutta jatketaan kun keritään.
        Kiitos!


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Gallup: Kansalaiset eivät usko velkajarruun

      Puolet suomalaisista ei usko velkajarrun vaatimien sopeutusten toteutuvan, kertoo Iro Researchin kyselytutkimus. Kokoom
      Maailman menoa
      99
      1214
    2. Ethän mies vielä

      luovu meistä? Haluaisin jo sun syliin.
      Ikävä
      67
      950
    3. Mä oon kallistumassa

      Rikosilmoitukseen!
      Suhteet
      215
      944
    4. Haaveilen edelleen

      Sinusta aika ajoin
      Ikävä
      58
      922
    5. Sinulle nainen

      En ehkä koskaan osannut sanoa tätä oikein. Minun vaikeuteni luottaa liittyi ennen kaikkea menettämisen pelkoon. Siihen
      Ikävä
      66
      886
    6. Martsusta tuli leuhka

      Ja ylimielinen. Hän ei nosta persettäkään ilmaseksi . Luulempa et nämä ei tee hyvää hyvinvointivalmennuksille.... Nannal
      Kotimaiset julkkisjuorut
      236
      795
    7. Hei rakkaani.

      Kohtaaminen lähestyy. Miten teemme sen? Kumpi ottaa yhteyttä vai törmäämmekö jossain sattumalta? Tuleva vaimosi
      Ikävä
      70
      755
    8. Kuisla Group Oy jättänyt yrityssaneeraushakemuksen

      Samalla yrityssaneeraukseen on hakeutunut Kuisla henkilökohtaisesti ja Seinäjoen Motelli Oy, joka omistaa Sorsanpesän ki
      Seinäjoki
      36
      748
    9. Ethän voinut nainen tietää, että rikot rikotun

      Omaa elämää taas mietin aamuyön tunteina. En vieläkään löytänyt muistin sokkeloista ainuttakaan onnen hetkeä. Kaipuu on
      Ikävä
      72
      742
    10. Tiedätkö sitä

      Että sinun äänesi on ihanan pehmeä
      Ikävä
      42
      716
    11. Uskallanko laittaa sulle viestiä?

      Se viesti on tossa valmiina ja lähettämistä vaille valmis. Kun ei kauhee sti tunneta niin eipä sillä olisi niin väliä. S
      Ikävä
      58
      650
    12. Kiulu myynnissä!

      Kiulu hakee taas uutta yrittäjää. https://www.yritysporssi.fi/etela-pohjanmaa-lansi-suomi-finland/myytavat/yritykset/ma
      Ähtäri
      26
      598
    13. On paha olla

      Kun olen käyttäytynyt aiemmin kaivattua kohtaan kuin joku narsisti.
      Ikävä
      42
      578
    14. Et pysty peittämään minulta

      Sinä olet hyvä peittämään asioita niin halutessasi. Pystyt pitkiäkin aikoja salaamaan juttuja. Juuri mietin tuossa, olet
      Ikävä
      47
      494
    15. Tulisiko naisille asettaa korkeammat eläkemaksut

      Tämä tuli mieleeni kun luin aamun lööppejä. Japanissa alkaa olla "uutta nuorisoa" ihan urakalla, ikä alkaa sadan jälkeen
      Sinkut
      174
      490
    16. Mikä tekee kaivatustasi

      Haluttavan?
      Ikävä
      18
      478
    17. Mitä oikein tapahtui? Maajussi-Jetta sai tylyt pakit - Sulhoehdokas selittää: "Ei lentänyt kipinät"

      Maajussille morsian -sarjassa etsitään rakkautta ja rinnalle kumppania. Yksi maajusseista on Jetta - liikunnallinen ja
      Maajussille morsian
      12
      457
    18. Vieläkin saat

      Sydämen tykyttämään. Vaikka emme näe
      Ikävä
      24
      444
    19. Huumekauppaako

      ”Huumekauppa johti rajuun väkivaltaan Kokkolassa – Kolme nuorta otettu kiinni, yksi epäillyistä alaikäinen”
      Kokkola
      9
      434
    20. En tahallaan sua välttele...

      Olis niin kiva nähdä jossain muualla kuin kaupassa!
      Ikävä
      39
      417
    Aihe