Hallo Forum,
ich verwende seit einigen Tagen Visual Basic 2010 Express und habe nun eine Frage.
Ich finde mit Google einiges zum Thema "Picturebox Drag And Drop", aber die Pictureboxen werden in den Beispielen immer "von Hand" im Formular platziert. Meine Vorgehensweise ist aber eine andere:
Ein Formular enthält einen SplitContainer, in dem sich unter anderem ein TableLayoutPanel mit neun Spalten und neun Zeilen befindet. Dieses Raster fülle ich per Code mit Pictureboxen, die als "Controls" erzeugt werden. Diese Pictureboxen sollen per Drag And Drop mit einem (angrenzenden) Feld des Rasters vertauscht werden (können).
Hat jemand einen (idealerweise deutschsprachigen) Link für mich?
Gruß Peter
ich verwende seit einigen Tagen Visual Basic 2010 Express und habe nun eine Frage.
Ich finde mit Google einiges zum Thema "Picturebox Drag And Drop", aber die Pictureboxen werden in den Beispielen immer "von Hand" im Formular platziert. Meine Vorgehensweise ist aber eine andere:
Ein Formular enthält einen SplitContainer, in dem sich unter anderem ein TableLayoutPanel mit neun Spalten und neun Zeilen befindet. Dieses Raster fülle ich per Code mit Pictureboxen, die als "Controls" erzeugt werden. Diese Pictureboxen sollen per Drag And Drop mit einem (angrenzenden) Feld des Rasters vertauscht werden (können).
VB.NET-Quellcode
- Public Class frmSpielfeld
- ...
- ' objekte der class definieren
- Dim ctrSpielstein As Control
- Dim dicSpielstein As New Dictionary(Of Integer, Image)
- Dim rndZufallszahl As New Random
- ...
- Private Sub Spielsteine_Anzeigen()
- ' variablen der sub definieren
- Dim intSpalte As Integer
- Dim intZeile As Integer
- ' sichtbare spielsteine generieren
- For intZeile = 5 To 13
- For intSpalte = 5 To 13
- ' spielstein erzeugen
- ctrSpielstein = New PictureBox
- ' spielstein initialisieren
- With ctrSpielstein
- .AllowDrop = True
- .BackgroundImage = dicSpielstein(intSpielsteine(intZeile, intSpalte))
- .Height = 72
- .Tag = intSpielsteine(intZeile, intSpalte)
- .Width = 64
- End With
- ' spielstein anzeigen
- tblSpielfeld.Controls.Add(ctrSpielstein, intSpalte - 5, intZeile - 5)
- Next
- Next
- End Sub
- ...
- End Class
Hat jemand einen (idealerweise deutschsprachigen) Link für mich?
Gruß Peter
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „bondi“ () aus folgendem Grund: VB-Code eingefügt