关于控件在窗体的靠左,居中,靠右问题啊
在窗体上放置一个标签显示文字,然后画3个选项按钮,单击分别实现标签文本的“靠左”“居中”“靠右”。
请教,选项按钮下的代码如何写。我是这样写的,但不能实现啊。
Private Sub Option1_Click()
Label1.Move Form1.Left
End Sub
[解决办法]
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Label1.Move 0, (ScaleHeight - Label1.Height) / 2
Case 1
Label1.Move (ScaleWidth - Label1.Width), (ScaleHeight - Label1.Height) / 2
Case 2
Label1.Move (ScaleWidth - Label1.Width) / 2, (ScaleHeight - Label1.Height) / 2
End Select
End Sub