Drag-Circle

Her er en metode:
(Den kan finpudses med f.eks. gentegninger osv)

Erklær to globale variable i et modul eller øverst i en form:
Public stX as Long, stY as Long

I Mouse_Down eventet indsættes:
stX = X
stY = Y

I Mouse_Up eventet indsættes:
Dim lRadius as Long
lRadius = Int(Sqr(((X - stX) ^ 2) + ((Y - stY) ^ 2)))
Circle (stX, stY), lRadius, RGB(255, 0, 0)

Nu kan du tegne en cirkel ved at trykke venstre museknap ned, -trække musen et stykke, og så slippe museknappen igen.

Dette vil tegne en cirkel på formen, med startpunkt, hvor du trykkede museknappen ned, og med periferi hvor du slipper museknappen igen.

MVH tjacob

Du kan også lægge følgende i Mouse_Move eventet:

    Dim iRadius As Integer
   
    If Button = 1 Then
        Form1.Cls
        iRadius = Int(Sqr(((X - stX) ^ 2) + ((Y - stY) ^ 2)))
        Circle (stX, stY), iRadius, RGB(255, 0, 0)
    End If

Så vil cirklen hele tiden blive gentegnet.

Ja det kan jeg godt se..Men man kan ikke se hvor stor cirklen er før at man slipper musen....Hvad kan man gøre der?

Hvis du bruger Mouse_Move koden kan du da se cirklen hele tiden?

Hvorfor bliver cirklen ikke på picturebox1 når man vil tegne en ny???

Det er pga Cls kommandoen, der sletter hele formen/pictureboxen, inden den gentegner.

Den er nødt til at være der, ellers bliver der tegnet en cirkel, hver gang Mouse_Move-eventet fyres af (op til 20 gange/sek).
(Du kan jo prøve at fjerne Cls kommandoen og se)


Man kunne omgå dette ved kun at slette den cirkel, der blev tegnet i sidste Mouse_Move-event.
(i modsætning til hele formen).
Men så skal der gemmes nogle andre globale variable, der kan holde startpkt + radius i den sidst tegnede cirkel. Denne cirkel skal så gentegnes med baggrundsfarven (-slettes) umiddelbart før den aktuelle cirkel tegnes.

mvh tjacob

Sådan her:
Erklær en global variabel mere:
sRadius as Long

i Mouse_Move:
    Dim iRadius As Integer
   
    If Button = 1 Then
        iRadius = Int(Sqr(((X - stX) ^ 2) + ((Y - stY) ^ 2)))
        Picture1.Circle (stX, stY), Sra, &H8000000F
        Picture1.Circle (stX, stY), iRadius, RGB(255, 0, 0)
        Sra = iRadius
    End If

Her har jeg sat farven til min PictureBox\'s BackColor. Det er muligt du skal ændre den.

/tjacob

Fejl: sRa erstattes med sRadius

Der er bare en lille ting...Når jeg vil tegne en cirkel så kommer der også en hel masse andre som er mindre end den støreste....

Har du sat den første cirkels farve lig med din Form/Pictureboxs BackColor?
Det er den der \"sletter\" den sidste cirkel.

Den sidste cirkel....he he
Jeg tror at der er ca 30 men ok...

Ja, der 30 når de ikke bliver slettet, men hvis den første cirkel bliver tegnet korrekt (altså i backcolor), så vil der hele tiden kun være en.

Fejlen kan også være at du har den forkerte radius.
Det SKAl være den radius du gemmer i den globale variabel i sidste linie før end if.

Hey sorry, men jeg får nok ikke så meget tid lige her for tiden, så jeg prøver at komme op med noget brugbart i næste uge.