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
3
245
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
Suomi on täysin sekaisin
Jo ties monettako päivää hirveä itku ja poru jostain helvetin nilviäisistä. https://www.is.fi/taloussanomat/art-20000104594950Ensimmäisestä kohtaamisesta saakka
minulla on ollut hämmentynyt olo. Miten voit tuntua siltä, että olisin tuntenut sinut aina? Sinun kanssasi on yhtä aikaa151762Aivan täysin tahallinen teko
Ei mitään puolusteluja, eikä selittelyitä. Kuljettajalle kerrottiin asiasta siinä paikanpäällä, mutta silti hän ajoi ves941488Olet saanut minut sekoamaan
Tunteiden ristiaallokossa vellominen on ollut melkoinen kokemus. Ei kukaan ole saanut minua niin raiteiltaan kuin sinä.231377Suomussalmi saatu vihdoin maailmankartalle!
Nyt kun Suomussalmi on vihdoin viimein saatu ennennäkemättömällä tavalla maailman tietoisuuteen niin voitaisiin järjestä531369Mainehaitta metsäkonefirmalle
Hukkajoen tapahtumista liikkuu paljon huhuja. Eikö kannattaisi julkaista raakkuja tuhonneen metsäkoneyrityksen nimi, kos531258Oho! 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-01085Myö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ä miele541030Pysytäänkö nainen
edelleen yhtä viileän tyynenä kun nähdään. Uskotko että tahtoessani saisin murettua tyyneytesi hyvin helposti.57905Olen 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ä, kyl62904