Valikko-ongelma

Los Idiotos

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)

3

252

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Miehille kysymys

      Onko näin, että jos miestä kiinnostaa tarpeeksi niin hän kyllä ottaa vaikka riskin pakeista ja osoittaa sen kiinnostukse
      Tunteet
      134
      3879
    2. Miksi kaivattusi on

      erityinen? ❤️‍🔥
      Ikävä
      85
      1905
    3. Olen tosi outo....

      Päättelen palstajuttujen perusteella mitä mieltä minun kaipauksen kohde minusta on. Joskus kuvittelen tänne selkeitä tap
      Ikävä
      15
      1771
    4. Haluaisin jo

      Myöntää nämä tunteet sinulle face to face. En uskalla vain nolata itseäni enää. Enkä pysty elämäänkin näiden kanssa jos
      Ikävä
      54
      1412
    5. Kotkalainen Demari Riku Pirinen vangittu Saksassa lapsipornosta

      https://www.kymensanomat.fi/paikalliset/8081054 Kotkalainen Demari Riku Pirinen vangittu Saksassa lapsipornon hallussapi
      Kotka
      46
      1337
    6. Ylen uutiset Haapaveden yt:stä.

      Olipas kamalaa luettavaa kaupungin irtisanomisista. Työttömiä lisää 10 tai enempikin( Mieluskylän opettajat). Muuttavat
      Haapavesi
      130
      1323
    7. VENÄJÄ muuttanut tänään ydinasetroktiinia

      Venäjän presidentti Vladimir Putin hyväksyi tiistaina päivitetyn ydinasedoktriinin, kertoo uutistoimisto Reuters. Sen mu
      Maailman menoa
      99
      1280
    8. Nainen olet valoni pimeässä

      valaiset tietäni tietämättäsi ❤️
      Ikävä
      70
      1166
    9. Mitä toivot

      Tulevilta päiviltä?
      Ikävä
      69
      1033
    10. Hommaatko kinkkua jouluksi?

      Itse tein pakastimeen n. 3Kg:n murekkeen sienillä ja juustokuorrutuksella. Voihan se olla, että jonkun pienen, valmiin k
      Sinkut
      113
      1022
    Aihe