txtName.Left<\/span> = 300\r\ntxtName.Top = 120\r\ntxtName.Width = 2100\r\ntxtName.Height = 270<\/pre>\nDas Ganze können Sie auch über einen With-Block<\/b> auf das Control<\/b> umsetzen und setzen besser noch den Container Me<\/b> des Steuerelements voran:<\/p>\nWith<\/span> Me!txtName\r\n .Left<\/span> = 300\r\n .Top = 120\r\n .Width = 2100\r\n .Height = 270\r\nEnd With<\/span><\/pre>\nDie Einheit dieser Werte ist unter Access immer Twips<\/b>. 15 Twips<\/b> entsprechen in der Regel 15 Pixeln und ein Zentimeter entspricht etwa 567 Twips<\/b>. Die Positionsangaben beziehen sich grundsätzlich auf die linke obere Ecke des Steuerelements als seinen Ursprung und sind, entgegen der Aussage in der Access-Hilfe, relativ zum jeweiligen Container. Das kann der Detailbereich sein, aber auch der Kopf- oder Fußbereich. Bei Berichten kommen noch weitere Containerflächen hinzu.<\/p>\n
Eine Alternative zum direkten Zuweisen der Werte an Left<\/b> und Top<\/b> stellt die Move<\/b>-Methode dar, die allen Steuerelementen zueigen ist. Mit ihr können Sie die vier Eigenschaften auf einen Schlag einstellen:<\/p>\nMe!txtName.Move 300, 120, 2100, 270<\/pre>\nAlle vier Angaben sind optional. Sie können also mit dieser Methode etwa nur Position oder nur die Abmessungen ändern, indem Sie die anderen Parameter weglassen:<\/p>\n
Me!txtName.Move 300,120\r\nMe!txtName.Move , , 2100, 270<\/pre>\nSchließlich gibt es mit der DoCmd<\/b>-Anweisung MoveSize<\/b> noch eine weitere Methode, die in ihren Parametern der Move<\/b>-Methode der Controls entspricht. Sie wirkt allerdings nicht nur auf Steuerelemente, sondern genauso auf Formularfenster. Das macht zur Bedingung, dass das zu positionierende Element zum Zeitpunkt ihres Aufrufs den Fokus besitzt:<\/p>\nMe!txtName.SetFocus\r\nDoCmd.MoveSize 300, 120, 2100, 270<\/pre>\nAuch hier sind alle Parameter optional. Die Methode entkoppelt die Anweisung vom Steuerelement und eignet sich daher nur für Fälle, in denen das Control<\/b>-Objekt ungewiss ist.<\/p>\nFliegende Steuerelemente<\/h2>\n
Das weitgehend sinnfreie Formular frmFlying<\/b> der Beispieldatenbank demonstriert die Verschiebeeffekte zur Laufzeit (Bild 1). In einer VBA-Schleife werden über den Timer des auf Adressdatensätzen basierenden Formulars sämtliche Steuerelemente fortlaufend verschoben. Damit sie nicht über den Rand hinaus geraten, was Access ohnehin mit einer Fehlermeldung quittieren würde, reflektieren sie quasi billardmäßig von den Seiten. Den Code, der beim Starten des Formulars zunächst ausgeführt wird, finden Sie in Listing 1. Er ist auf den ersten Blick nicht selbsterklärend.<\/p>\n
![\"Das](\"..\/tl_files\/images\/frmFlying.png\")
<\/a><\/p>\nBild 1: Das Formular frmFlying zeigt in der Gegend herumfliegende Steuerelemente<\/p>\n
Modulweit gelten die Variablen colCtl<\/b> (Collection<\/b>-Objekt) und das Array arrXY<\/b>. Die Collection<\/b> versammelt indiziert die Namen aller Controls des Formulars, arrXY<\/b> ist zweidimensional und speichert deren Positionen. Die For-Each-<\/b>Schleife durchläuft alle Steuerelemente über die Iteratorvariable ctl<\/b>. Das können Textboxen, Comboboxen oder Labels sein. In colCtl<\/b> werden per Add<\/b>-Methode die Indizes (i<\/b>) der Controls aufgenommen, wobei als Schlüssel jeweils der Steuerelementname herhält. Das Array arrXY<\/b> wird über ReDim<\/b> in der zweiten Dimension auf die Zahl der Steuerelemente dimensioniert (Controls.Count<\/b>) und andererseits auf 1<\/b> in der ersten Dimension, was bedeutet, dass zu jedem Array-Element zwei Werte abgespeichert werden können: ein X<\/b>– und ein Y<\/b>-Wert für die Positionsverschiebungen. Die Collection<\/b> dient dazu, um später aus einem Steuerelementnamen seinen Index für arrXY<\/b> bestimmen zu können. Außerdem wird das Array mit X<\/b>– und Y<\/b>-Verschiebefaktoren vorgefüllt, die sich aus Zufallszahlen (Rnd<\/b>) ergeben. Der Ausdruck<\/p>\n1 + 5 * (Rnd - 0.5)<\/pre>\nbewirkt, dass die Klammer positiv oder negativ wird, wenn Rnd<\/b> größer oder kleiner ist, als 0.5<\/b>. Der Bereich des Klammerausdrucks beträgt damit -2.5 <\/b>bis +2.5<\/b>. <\/p>\n
Abschließend wird der Timer<\/b> des Formulars aktiviert und auf 20 Millisekunden eingestellt, was zu 50 Wiederholungen pro Sekunde führen sollte. Die Prozedur des Timer-Events<\/b> in Listing 2 nimmt nun die eigentlichen Steuerelementverschiebungen vor und wertet aus, ob sie am Rand des Formulars reflektiert werden sollen.<\/p>\nPrivate Sub <\/span>Form_Timer()\r\n Dim <\/span>ctl As <\/span>Access.Control\r\n Dim <\/span>i As Long<\/span>\r\n \r\n For Each ctl In Me.Controls\r\n i = colCtl(ctl.Name)\r\n ctl.Left<\/span> = ctl.Left<\/span> + 30 * arrXY(0, i)\r\n ctl.Top = ctl.Top + 30 * arrXY(1, i)\r\n \r\n If <\/span>(ctl.Left<\/span> < 91) Then<\/span>\r\n arrXY(0, i) = -arrXY(0, i)\r\n ctl.Left<\/span> = 90\r\n End If<\/span>\r\n If <\/span>((ctl.Left<\/span> - 91) > (Me.InsideWidth - ctl.Width)) Then<\/span>\r\n arrXY(0, i) = -arrXY(0, i)\r\n ctl.Left<\/span> = Me.InsideWidth - ctl.Width - 90\r\n End If<\/span>\r\n If <\/span>(ctl.Top < 91) Then<\/span>\r\n arrXY(1, i) = -arrXY(1, i)\r\n ctl.Top = 90\r\n End If<\/span>\r\n If <\/span>((ctl.Top + 91) > (Me.InsideHeight - ctl.Height)) Then<\/span>\r\n arrXY(1, i) = -arrXY(1, i)\r\n ctl.Top = Me.InsideHeight - ctl.Height - 90\r\n End If<\/span>\r\n Next<\/span> ctl\r\n DoEvents\r\nEnd Sub<\/span><\/pre>\nListing 2: Timer-Prozedur des Formulars zum Bewegen der Steuerelemente<\/p>\n
Auch hier wird eine Schleife auf alle Controls des Formulars gesetzt. Aus colCtl<\/b> wird jeweils erst über den Namen der Control<\/b>-Variable ctl<\/b> dessen Index für das Array arrXY<\/b> errechnet und in der Variablen i<\/b> abgespeichert. Dann wird zu Left<\/b> und Top<\/b> des Controls der mit 30 multiplizierte Verschiebewert aus dem Array hinzuaddiert. Je höher dieser Multiplikator, desto schneller bewegt sich das Steuerelement zur Laufzeit über das Formular.<\/p>\nMöchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t