Question

一道vb程序设计题目{急求答案}

设计一窗体，窗体上有一个文本框（text），一个命令按钮（command），运行时文本框显示“vb程序设计”，命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调节大小很位置，其中调整文本框使其：left=0，top=0，宽度和高度都为窗体大小的一半；命令按钮：始终位于窗体右下角的位置。请编写：
（1）用代码初始化各控件（提示：可写在form-load事件中）。
（2）文本框控件随窗体的大小而调整大小的代码，以及调整命令按钮位置始终位于右下角的代码（提示：调整大小的代码可写在form-load事件中）。
（3）结束程序的运行代码（命令按钮）。

Answer 1

Private Sub Form_Load()
Text1.Left = 0
Text1.Top = 0
Text1.Width = Me.ScaleWidth / 2
Text1.Height = Me.ScaleHeight / 2
Command1.Left = Me.ScaleWidth - Command1.Width
Command1.Top = Me.ScaleHeight - Command1.Height
End Sub

Private Sub Form_Resize()
Text1.Width = Me.ScaleWidth / 2
Text1.Height = Me.ScaleHeight / 2
Command1.Left = Me.ScaleWidth - Command1.Width
Command1.Top = Me.ScaleHeight - Command1.Height
End Sub

Private Sub Command1_Click()
End
End Sub

额，你还别说，我看错成左下角了。呵呵
没错，需要改一下。

Answer 2

楼上基本正解，但是有一个地方不符楼主要求
稍稍修改下 Command1.Left = Me.ScaleWidth - Command1.Width
把原来那句话“Command1.Left = 0”改成上面的代码，而且在Form_Resize过程中也要加入这句代码，这样才能实现总在右下角。