Punkte per Mausklick in einem Raster platzieren

[Jojo-dFG]

Hi Leute

Ich bin gerade dabei "Das Punktspiel" in Visual Basic zu coden.
Das Punktspiel ist eine Art Käsekästchen.
Der User hat ein Raster vor sich wie eine kariertes Schulheft.
Dann soll er Punkte auf beliebigen Schnittstellen des Rasters setzten können.
Wichtig ist das er Punkte nur auf eine Schnittstelle setzten kann.
Ich kann das nicht mit der PSet machen, da die Punkte zu klein sind
und sich nicht von meinem Karo Raster abheben. Ich muss also einen kleinen
ausgefüllten Kreis nehmen.

Was wäre eurer Meinung nach die eleganteste Möglichkeit den User Punkte
setzten zu lassen. Die Punkte sollten aber auf jeden Fall durch Koordinaten
eindeutig identifizierbar sein.

mfg und THX im Voraus
Jojo-dFG

 

[ZockDom]

Hi.

Versuchs mal mit Shapes.
Zuerst eine Shape anlegen mit "Index=0" (Index nicht leer lassen).
(Unten im Beispiel nenne ich die Shape "Shp")
Für die Shape mit Index 0 die Eigenschaft "Visible" auf "False" stellen.
Dann diese Prozedur (x und y sind die Koordinaten des Punktes auf der Form):

Dim Anz as Byte

Sub SetPoint( x as integer, y as integer)
Anz=Anz+1
Load Shp(Anz)
Shp(Anz).Visible = True
Shp(Anz).Left = x
Shp(Anz).Top = y
End Sub

Ich hoffe das löst das Problem das du hast.