用VB编写程序。急!!!!!!!!!!!!
2个控件自己加,代码如下:
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
With Text1
。 Top = 0
。Left = 0
。Text = "Visual Basic"
。Height = Me。Height / 2
。Width = Me。 Width / 2
End With
With Command1
。Top = Me。Height - 。Height
。Left = Me。Width - 。Width
。 Caption = "结束"
End With
End Sub
Priva...全部
2个控件自己加,代码如下:
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
With Text1
。
Top = 0
。Left = 0
。Text = "Visual Basic"
。Height = Me。Height / 2
。Width = Me。
Width / 2
End With
With Command1
。Top = Me。Height - 。Height
。Left = Me。Width - 。Width
。
Caption = "结束"
End With
End Sub
Private Sub Form_Resize()
With Text1
。Top = 0
。Left = 0
。
Text = "Visual Basic"
。Height = Me。Height / 2
。Width = Me。Width / 2
End With
With Command1
。
Top = Me。Height - 。Height * 2。2
。Left = Me。Width - 。Width * 1。2
End With
End Sub。收起