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
265
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
Ja taas ammuttu kokkolassa
Kokkolaisilta pitäisi kerätä pois kaikki ampumaset, keittiöveitset ja kaikki mikä vähänkään paukku ja on terävä.354289Kuinka kauan
Olet ollut kaivattuusi ihastunut/rakastunut? Tajusitko tunteesi heti, vai syventyivätkö ne hitaasti?1141586Milli-helenalla ongelmia
Suomen virkavallan kanssa. Eipä ole ihme kun on etsintäkuullutettu jenkkilässäkin. Vähiin käy oleskelupaikat virottarell2481546Helena Koivu on äiti
Mitä hyötyä on Mikko Koivulla kohdella LASTENSA äitiä huonosti . Vie lapset tutuista ympyröistä pois . Lasten kodista.2181400- 351266
Ja taas kerran hallinto-oikeus että pieleen meni
Hallinto-oikeus kumosi kunnanhallituksen päätöksen vuokratalojen pääomituksesta. https://sysmad10.oncloudos.com/cgi/DREQ881078Löydänköhän koskaan
Sunlaista herkkää tunteellista joka jumaloi mua. Tuskin. Siksi harmittaa että asiat meni näin 🥲1321072Kun näen sinut
tulen iloiseksi. Tuskin uskallan katsoa sinua, herätät minussa niin paljon tunteita. En tunne sinua hyvin, mutta jotain471054Purra saksii taas. Hän on mielipuuhassaan.
Nyt hän leikkaa hyvinvointialueiltamme kymmeniä miljoonia. Sotea romutetaan tylysti. Terveydenhoitoamme kurjistetaan. ht2671031- 62994