Controls differenzieren ?
01.07.2003 14:59:36
N. Davidheimann
in der VBA-Hilfe steht unter Move-Methode der folgende Code, der Controls ausrichtet. Allerdings wird nicht zwischen z.B. Labels und Textboxen unterschieden. Kann man das ändern, also z.B. alle Labels left 20 und alle Textboxen left 50 ??
Gruß
Norbert
Private Sub CommandButton1_Click()
Dim MyControl As Control
CtrlTop = 5
For Each MyControl In Controls
If MyControl.Name = "CommandButton1" Then
'Don't move or resize this control.
Else
'Move method using named arguments
MyControl.Move Top:=CtrlTop, _
Height:=CtrlHeight, Left:=5
'Move method using unnamed arguments (left,
'top, width, height)
'MyControl.Move 5, CtrlTop, ,CtrlHeight
'Calculate top coordinate for next control
CtrlTop = CtrlTop + CtrlHeight + CtrlGap
End If
Next
End Sub