Keskustelu: Ohjelmointikysymykset: VB6 Piirretyn kuvion tunnistus

kayttaja-2087 [07.11.2006 21:25:59]

Onko mitään helppoa keinoa tunnistaa picturebox:iin piirrettyä ympyrän kokoa tai viivan pituutta kun kohdistin viedään sen päälle?

setä [07.11.2006 22:05:28]

Jos tallennat halutut tiedot muistiin piirtovaiheessa.

aloitteleva [11.11.2006 10:32:11]

Jos hiiren laittaa kuvan päälle nii tekee jonku sellasen:

If tähänjokuhiirikordinaattijuttu
Then
picturebox1.height = 1500

En oo visual basicciin koskenu ny 5 kuukautee nii meinaa unohtua noi.

Antti Laaksonen [11.11.2006 18:33:51]

Piirretyn kuvion tunnistus jälkeenpäin on aika vaikeaa.

Minkälaista ohjelmaa olet tekemässä?

JoreSoft [14.11.2006 13:08:52]

http://rookscape.com/vbgaming/tutAP.php
Tuolla hyvä esimerkki, miten voidaan tarkistaa törmäys neliöön/soikioon/ympyrään koska kyseessä API-funktio on toiminta aikas nopeaakin.
Soveltamalla tuota vaikka Mouse_Move funktioon, pitäisi kohdistimen tarkistaminenkin onnistua. Talletat vaan kuvioiden koordinaatit johonkin talukkoon...
;)
Tuli sitten tekstua se koodi samantein :D (Saikulla)

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Törmäys As Boolean, R As RECT
Dim udtTempRect As RECT
    R.Left = X
    R.Top = Y
    R.Right = X + 1
    R.Bottom = Y + 1
    frmMain.Caption = ""
    If mblnRects Then 'Tarkistetaan neliöön törmäys
        If IntersectRect(udtTempRect, R, mudtRect1) Then
            frmMain.Caption = "Törmäys neliöön 1"
        End If
        If IntersectRect(udtTempRect, R, mudtRect2) Then
            frmMain.Caption = "Törmäys neliöön 2"
        End If
    Else
        If GetDist(X, Y, msngCircle2X, msngCircle2Y) <= RADIUS2 Then
            frmMain.Caption = "Törmäys ympyrään 2"
        End If
        If GetDist(X, Y, msngCircle1X, msngCircle1Y) <= RADIUS1 Then
            frmMain.Caption = "Törmäys ympyrään 1"
        End If
    End If
End Sub

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen

Haku