Shape bei Anklick ausfüllen

[Blumeheinz]

Besteht die Möglichkeit, dass wenn ich ein Shape anklicke es auch ausfüllen zu lassen.
Normalerweise muss ich ja einen Button erstellen , der bei klick das shape ausfüllt. Da ich aber ein Mühlefeld machel und die 24 Steinpositionen mit Shapes darstelle tritt jetzt foögendes Problem auf:
Ich habe alle 24 Positionen in ein Arry gespeichert und die Shapes sollen jetzt bei Anklick des Shapes schwarz oder rot werden, je nach Spieler.
Nur wie macht man das?

 

[wincnc]

Hallo, Shapes haben kein Klick Ereignis. Nimm PictureBoxen, die kannst Du bei Klick mit
Picture1.BackColor = vbBlack füllen.

 

[Blumeheinz]

kann man die auch rund machen die picture box?

 

[wincnc]

Ja, kann man.

Private Sub Command1_Click()
Picture1.Width = 1000
Picture1.Height = 1000
Picture1.AutoRedraw = True
Picture1.FillColor = vbBlack
Picture1.Circle (465, 465), 465
Picture1.BorderStyle = 0
End Sub

 

[wincnc]

Hallo, habe eben gerade etwas herausgefunden.
Du kannst das Shape auf ein Frame setzen, dann hast Du ein Klick - Ereignis.

Private Sub Form_Load()
Shape1.FillStyle = 1
Frame1.BorderStyle = 0
End Sub

Private Sub Frame1_Click()
Shape1.BackColor = vbRed
End Sub

 

[Blumeheinz]

danke
wie ist es eigentlich wenn ich ein array von 24 positionen habe,
wie kann ich dann das shape1 also oben links, dem arrayplatz (0,0) zuweisen?
Also bei klick soll es rot oder schwarz werden und im array den platz belegen

 

[wincnc]

Poste mal Dein Code mit dem Array oder schick mir mal Dein Projekt.

 

[Blumeheinz]

email ist raus
habe jetzt die shapes rausgenommen gehabt, aber ich überlege ob ich es nicht so mache wie du es vorgeschlagen ahst

 

[wincnc]

OK, ich schau´s mir mal an.

 

[wincnc]

Also ich hab´s mal durchgesehen, aber habe im Moment keinen Plan.
Werde mir aber mal etwas einfallen lassen.