Miten saan toimimaan seuraavan:
On luetteloruutu, jossa on lista tuotteista ja vieressä tyhjä ruutu. Kun valitsen tuotteista esim. viisi klikkaamalla ne aktiivisiksi, miten saan ne valitut siirtymään tyhjään ruutuun??
En saa painonappia toimimaan, eikä vba:n kauttakaan ole onnistunut.
Apua kaivataan
Brontosaurus
1
145
Vastaukset
- mmm
Private Sub Komento1_Click()
Dim K, i
For K = Luettelo2.ListCount - 1 To 0 Step -1
Luettelo2.RemoveItem K
Next
K = 0
For Each i In Luettelo1.ItemsSelected
Luettelo2.AddItem Luettelo1.ItemData(i), K
K = K 1
Next
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Stefu LOISTAVAA!
Ilmeisesti joku vedonlyönti tms, selvinpäin-elämästä👍👍👍 ilmankos ei ole Sofiaa näkynyt. Miten tän parin nyt käy, kun viimi ei maksettuna enää virta1331935Msisa on eronnut
Mies ei kestänyt jatkuvia syrjähyppyjä eikä totuutta Turun yöstä.28850- 69845
Venäläisiä keksintöjä?
Kun tässä nyt yritän miettiä venäläisiä keksintöjä, niin ei äkkiseltään tule oikein yhtään mieleen. Onko niitä edes?259728Tiedän että on aika luovuttaa
En vaan osaa. Liian kauan toivonut jotain, mikä ei koskaan tule toteutumaan. Olo ei ole mitenkään hyvä, mutta itken vähemmän kuin silloin kun sinuun r64710- 10677
Katumuksesta
Pitkäperjantaina eräässä seurueessa puhuttiin katumisesta ja mitä itse kukin katuu. Yleisintä tuntui olevan pahasti sanominen jollekin läheiselle ja t132671- 26644
- 77642
Sisällissota kiihtyy Ruotsissa
KaupunkiTaistelut koraanin puolesta kiihtyneet Linköpingissä ja Malmössä. Ruotsin poliisi joutunut vetäytymään suojiin. Päätän raporttini Ruotsista.200635