Ominaisuuksien kopionti

..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.

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"

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