Richtung Neuzeichnung

Private Sub Image1_Click()
Dim T#, S#
On Error GoTo E2
MousePointer = 0: RiWi imX - 435, 435 - imY, S, T
If S < 120 Then Gesamt: Exit Sub
Select Case T * 63.662
  Case 375 To 399.9999, 0 To 25: OLy = OLy + dx * 0.7: OLx = OLx
  Case 25 To 75:   OLy = OLy + dx * 0.7: OLx = OLx + dy * 0.7
  Case 75 To 125:  OLy = OLy: OLx = OLx + dy * 0.7
  Case 125 To 175: OLy = OLy - dx * 0.7: OLx = OLx + dy * 0.7
  Case 175 To 225: OLy = OLy - dx * 0.7: OLx = OLx
  Case 225 To 275: OLy = OLy - dx * 0.7: OLx = OLx - dy * 0.7
  Case 275 To 325: OLy = OLy: OLx = OLx - dy * 0.7
  Case 325 To 375: OLy = OLy + dx * 0.7: OLx = OLx - dy * 0.7
End Select: Zeichne
E1: Exit Sub
E2: ShowError "": On Error GoTo 0: Resume E1
End Sub

Punkte nach der Entfernung zur Mauskoordinate sortieren

Private Sub Pic1_MouseDown(Button%, Shift%, xg!, yg!)
Dim dy As Recordset, dy2 As Recordset, Sql$
Const Umkreis = 100
If Button = 2 Then
  Sql = "Select *,int(sqr((Y-" + Val(xg) + ")^2 + (X- " + Val(yg) + ")^2)) as dS "
  Sql = Sql + "From PL Where y Between " + Val(xg - Umkreis) + " And " + Val(xg + Umkreis)
  Sql = Sql + " AND X Between " + Val(yg - Umkreis) + " And " + Val(yg + Umkreis)
  Set dy = gDB.OpenRecordset(Sql)
  Set dy2 = dy: dy2.Sort = "ds"
  Set dy = dy2.OpenRecordset(dy2.Type)
  Set Data1.Recordset = dy
  If Not dy.EOF Then
    DBGrid1.Visible = True
  Else
    DBGrid1.Visible = False
  End If
End If
End Sub