Amatööri täällä pähkii todennäköisesti yksinkertaisen asian kanssa......
...eli, jos teen alasvetovalikkoon käskyn siirrä, niin miten saan siirrettyä käskyn kohteena olevaa kuvaa joka kerta, kun valitsen uudelleen valikosta käskyn siirrä, esim. 100 yksikköä lisää alaspäin? Lisäksi vielä haluaisin tulostaa siirtojen lukumäärän ja kuvan sen hetkisen paikan.
(Ymmärsiköhän kukaan edes kysymystä?! :O)
Valikko-ongelma
Los Idiotos
3
287
Vastaukset
- vbguru
Laitoin malliksi ratkaisun, jossa kuvaa siirretään Command1-painikkeella 100 yksikköä alaspäin. Alkuperäinen sijainti otetaan Form_Load:ssa talteen original_top muuttujaan.
Tietysti pitää tehdä rajoitin, ettei kuvaa saa piiloon, ellei halua. Ja palautusnappula, vaikka toiseen Command2-painikkeeseen.
Label1:ssa näytetään kuvan sijainti ja siirtojen määrä.
Dim original_top As Integer
Dim siirto As Integer
Private Sub Command1_Click()
siirto = siirto 100
Picture1.Top = original_top siirto
Label1.Caption = "Kuvan sijainti " & Picture1.Top & " " & " siirtoja " & siirto / 100
End Sub
Private Sub Command2_Click()
siirto = 0
Picture1.Top = original_top
Label1.Caption = "Kuvan sijainti " & Picture1.Top & " " & " siirtoja " & siirto / 100
End Sub
Private Sub Form_Load()
original_top = Picture1.Top
siirto = 0
Label1.Caption = "Kuvan sijainti " & Picture1.Top & " " & " siirtoja " & siirto / 100
End Sub- Los Idiotos
Tosi paljon kiitoksia gurulle! :o)
- vbguru
Los Idiotos kirjoitti:
Tosi paljon kiitoksia gurulle! :o)
Mukavahan se on jos voi hieman auttaa.
Itsekin apuja paljon saa netistä hakemalla, joskus vaan on vaikeampaa, joskus helpompaa,
sen kaipaamansa tiedon löytäminen.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1292073
Noniin rakas
Annetaanko pikkuhiljaa jo olla, niin ehkä säilyy vienot hymyt kohdatessa. En edelleenkään halua sulle tai kenellekään mi1051896Kumpi vetoaa enemmän sinuun
Kaivatun ulkonäkö vai persoonallisuus? Ulkonäössä kasvot vai vartalo? Mikä luonteessa viehättää eniten? Mikä ulkonäössä?841669Lasten hyväksikäyttö netissä - Joka 3. nuori on saanut seksuaalisen yhteydenoton pedofiililtä
Järkyttävää! Lapsiin kohdistuva seksuaalinen hyväksikäyttö verkossa on yhä pahempi ongelma. Ulkolinja: Lasten hyväksikäy641544Multa sulle
Pyörit 24/7 mielessä, kuljet mun mukana, mielessä kyselen sun mielipiteitä, vitsailen sulle, olen sydän auki, aitona. M331202- 841183
Nainen, olen tutkinut sinua paljon
Salaisuutesi ei ole minulle salaisuus. Ehkä teimme jonkinlaista vaihtokauppaa kun tutkisimme toisiamme. Meillä oli kumm561142- 1101103
Mies, eihän sulla ole vaimoa tai naisystävää?
Minusta tuntuu jotenkin, että olisit eronnut joskus, vaikka en edes tiedä onko se totta. Jos oletkin oikeasti edelleen s471076Onko sulla empatiakykyä?
Etkö tajua yhtään miltä tämä tuntuu minusta? Minä ainakin yritän ymmärtää miltä sinusta voisi tuntua. En usko, että olet441023