vb 中单击command1,label1向窗体左上角移动的代码
实验目的:1.熟练掌握窗体的Hight(高度)、Width(宽度)、ScaleHight(除去标题栏后窗体的高度)、SacleWidht(出去边框后窗体的宽度)属性。2....
实验目的:
1.熟练掌握窗体的Hight(高度)、Width(宽度)、ScaleHight(除去标题栏后窗体的高度)、SacleWidht(出去边框后窗体的宽度)属性。
2.熟练掌握标签的Hight、Width、Top、Left属性、
3.掌握Move方法的使用。
实验内容:设计以下窗体,在窗体上添加一个标签,三个命令按钮
要求:运行程序时,单击“左上角”按钮,标签“VB学习”移到窗体的左上角。单击“窗体中央按钮”,标签移到除标题栏外窗体的中央。单击“右上角”按钮,标签移动到窗体的右上角。 展开
1.熟练掌握窗体的Hight(高度)、Width(宽度)、ScaleHight(除去标题栏后窗体的高度)、SacleWidht(出去边框后窗体的宽度)属性。
2.熟练掌握标签的Hight、Width、Top、Left属性、
3.掌握Move方法的使用。
实验内容:设计以下窗体,在窗体上添加一个标签,三个命令按钮
要求:运行程序时,单击“左上角”按钮,标签“VB学习”移到窗体的左上角。单击“窗体中央按钮”,标签移到除标题栏外窗体的中央。单击“右上角”按钮,标签移动到窗体的右上角。 展开
展开全部
Private Sub Command1_Click() '左上角
Label1.Left = 0
Label1.Top = 0
End Sub
Private Sub Command2_Click() '中央
Label1.Left = (Form1.ScaleWidth - Label1.Width) / 2
Label1.Top = (Form1.ScaleHeight - Label1.Height) / 2
End Sub
Private Sub Command3_Click() '右上角
Label1.Left = Form1.ScaleWidth - Label1.Width
Label1.Top = 0
End Sub
扩展资料
Public Function frameMove(frameTemp As Frame, Button As Integer, x As Single, y As Single)
With frameTemp
If Button = 1 Then '左键
.Left = x + .Left
.top = y + .top
End If
End With
参考资料:百度百科 命令按钮
展开全部
Private Sub Command1_Click() '左上角
Label1.Left = 0
Label1.Top = 0
End Sub
Private Sub Command2_Click() '中央
Label1.Left = (Form1.ScaleWidth - Label1.Width) / 2
Label1.Top = (Form1.ScaleHeight - Label1.Height) / 2
End Sub
Private Sub Command3_Click() '右上角
Label1.Left = Form1.ScaleWidth - Label1.Width
Label1.Top = 0
End Sub
Label1.Left = 0
Label1.Top = 0
End Sub
Private Sub Command2_Click() '中央
Label1.Left = (Form1.ScaleWidth - Label1.Width) / 2
Label1.Top = (Form1.ScaleHeight - Label1.Height) / 2
End Sub
Private Sub Command3_Click() '右上角
Label1.Left = Form1.ScaleWidth - Label1.Width
Label1.Top = 0
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Command1_Click()
Label1.Move 0, 0
End Sub
Private Sub Command2_Click()
Label1.Move Form1.ScaleWidth / 2 - Label1.Width / 2, Form1.ScaleHeight / 2 - Label1.Height / 2
End Sub
Private Sub Command3_Click()
Label1.Move Form1.Width - Label1.Width, 0
End Sub
Label1.Move 0, 0
End Sub
Private Sub Command2_Click()
Label1.Move Form1.ScaleWidth / 2 - Label1.Width / 2, Form1.ScaleHeight / 2 - Label1.Height / 2
End Sub
Private Sub Command3_Click()
Label1.Move Form1.Width - Label1.Width, 0
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询