Hallo,
habe es inzwischen mit etwas Hilfe hinbekommen:
Vielleicht hilft es Dir
Mit:
aktivesWerkzeug = 2 können Buttons angelegt werden
aktivesWerkzeug = 1 können bestehende Buttons resized und verschoben werden
Habe diese Zuordnung in einer Toolbar im MDI-Mainwindow, in welches die Form "WorkSpace" liegt
Benötigt:
1 Form "WorkSpace", in dieser
1 Button "nButton" mit Inde ...
Verfasst am: 23.09.2010, 18:39 Aufrufe: 811 Habs schon mal versucht mit dem "Verpackungs und Weitergabe
Assistent" zu Packen hatte aber 70 (!) MB
Das ganze ist ein Level Editor das ich meinem Manic Miner Spiel beilegen will. Damit kann man einfach per Button
Steuerelemte vervielfältigen und sie per Mouse Move belibig auf dem Bildschirm platzieren kann.
Zb: Gegner, Sich nach links Bewegende Plattform, Sich nach Oben Bewegende Plattform, G ...
Verfasst am: 10.12.2006, 17:11 Aufrufe: 768
mouse move:
Private Declare Sub mouse_event Lib "user32" _
(ByVal dwflags As Long, ByVal dx As Long, _
ByVal dy As Long, ByVal cButtons As Long, _
ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_MOVE = &H1
Private Sub fMouseMove(lXAxis As Long, lYAxis As Long)
mouse_event MOUSEEVENTF_MOVE, lXAxis, lYAxis, 0, 0
End Sub
Private Sub Command1_Click()
...
[ Time: 19.5248s ][ Queries: 67 (19.4005s) ][ GZIP on - Debug on ]