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

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

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

额,你还别说,我看错成左下角了。呵呵
没错,需要改一下。
温馨提示:内容为网友见解,仅供参考
第1个回答  2009-10-26
楼上基本正解,但是有一个地方不符楼主要求
稍稍修改下 Command1.Left = Me.ScaleWidth - Command1.Width
把原来那句话“Command1.Left = 0”改成上面的代码,而且在Form_Resize过程中也要加入这句代码,这样才能实现总在右下角。
相似回答