Hallo Leute!

Schreibe gerade ein Programm und bräuchte da dringed Hilfe. Ich lese Buttons aus einer Mssql Datenbank aus und stelle sie grafisch am Bildschirm da.


Meine Fragen jetzt dazu:

1. Wie schaffe ich es jetzt per Drag and Drop die Buttons zu bewegen?
2. Wie kann ich am Screen einen Raster darstellen? Ich meine so einen wie im Entwurfsmodus...

Gibt es dazu irgendwo Tutorials? Habe schon in der Msdn und Sdk geblättert, aber die haben nicht so gute Beispiele.

Danke für eure Hilfe

Mfg
Shaggy

Sieht noch etwas sehr komisch aus, aber ist vielleicht ein Ansatz

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Dim drag As Boolean Dim A As Single Dim B As Single   Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)     drag = True End Sub   Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)     If drag = True Then         Command1.Top = Y         Command1.Left = X     End If End Sub   Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)     drag = False End Sub   Private Sub Form_Load()     Command1.MousePointer = 15 End Sub

Nachtrag:

Jetzt funktionierts, auch mit beliebiger Anzahl an Buttons.
Du braucht ein Steuerelementefeld, und folgenden Code, dann gehts von selbst wenn du neue Schaltflächen anlegst.

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

Option Explicit   Dim A As Single Dim B As Single Dim A1 As Single Dim B1 As Single   Private Sub Command1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)     Command1(Index).Tag = True End Sub   Private Sub Command1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)     If Command1(Index).Tag = False Then         A1 = X         B1 = Y     End If     A = A + X - A1     B = B + Y - B1     MoveButton (Index) End Sub   Private Sub Command1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)     Command1(Index).Tag = False End Sub   Private Sub Form_Load()     Command1(0).Tag = False     Command1(0).MousePointer = 15     Command1(1).Tag = False     Command1(1).MousePointer = 15     Command1(2).Tag = False     Command1(2).MousePointer = 15 End Sub   Private Sub MoveButton(Index As Integer)     If Command1(Index).Tag = True Then         Command1(Index).Top = B         Command1(Index).Left = A     End If End Sub

Ein Raster kannst du anzeigen indem du zwei Schleifen verschachtelst, für X und Y Koordinate und bei jedem Durchlauf den Zähler um die Rasterbreite erhöst.
Dann beim Inneren Durchlauf auf X/Y einen Punkt zeichnen.

Packen wir das Ganze in eine Sub mit dem Namen ZeichneRaster und dann kannst es aus dem Paint-Ereignis des Formulars mit

Code :

1 2 3

if bRasterEinAus=True then     ZeichneRaster end if

bRasterEinAus ist eine Variable vom Typ Boolean in der du festlegen kannst ob das Raster angezeigt wird oder nicht.