Keskustelu: Ohjelmointikysymykset: VB6: Kuvio-ongelma(vb)

Palasin taas vb:n ääreen ja tuli ensimmäinen ongelma vastaan:

Elikkäs, olen luonut vb:llä kuvion(shape1), ja nyt haluaisin tietää milloinka sitä painetaan. Mitenkäs tämä luonnistuu?

Line- ja Shape-kontrolleilla ei ole lainkaan tapahtuma-aliohjelmia, joten ei onnistu suoraan. Mutta voit koettaa ratkaista ongelman kirjoittamalla koodin formin hiirenkäsittelyyn ja vertaamalla hiiren koordinaatteja kuvion paikkaan. Parhaiten homma toimii, kun kuvio on suorakulmion muotoinen.

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then '1 = vasen nappi
        If X > Shape1.Left And Y > Shape1.Top And X < Shape1.Left + Shape1.Width And Y < Shape1.Top + Shape1.Height Then
            MsgBox "Kuviota painettiin!"
        End If
    End If
End Sub