
一道有关vb编程的题目
请各位大虾帮我解决一道vb的题目他说要在窗体上放个标签label1,一个命令按钮command1,当窗体启动时使标签居于窗体的中间,并显示系统的当前时间,命令按钮显示为“...
请各位大虾帮我解决一道vb的题目
他说要在窗体上放个标签label1,一个命令按钮command1,当窗体启动时使标签居于窗体的中间,并显示系统的当前时间,命令按钮显示为“放大”,当单击命令按钮时,将标签中显示文字放大1~3倍(随即决定),并重新显示系统的当前时间。
特别说一下系统当前时间的代码,谢谢~~~~~~~~
那放大的代码也说一下好哇谢谢啦 展开
他说要在窗体上放个标签label1,一个命令按钮command1,当窗体启动时使标签居于窗体的中间,并显示系统的当前时间,命令按钮显示为“放大”,当单击命令按钮时,将标签中显示文字放大1~3倍(随即决定),并重新显示系统的当前时间。
特别说一下系统当前时间的代码,谢谢~~~~~~~~
那放大的代码也说一下好哇谢谢啦 展开
2个回答
展开全部
Private Sub form_load()
Show
Label1.AutoSize = True
Label1.Caption = Str(Time())
Label1.Top = Val(Form1.Height) / 2 - Val(Label1.Height) / 2
Label1.Left = Val(Form1.Width) / 2 - Val(Label1.Width) / 2
Command1.Caption = "放大"
End Sub
Private Sub command1_click()
Label1.FontSize = Val(Label1.FontSize) * 3
Label1.Caption = Str(Time())
Label1.Top = Val(Form1.Height) / 2 - Val(Label1.Height) / 2
Label1.Left = Val(Form1.Width) / 2 - Val(Label1.Width) / 2
End Sub
Show
Label1.AutoSize = True
Label1.Caption = Str(Time())
Label1.Top = Val(Form1.Height) / 2 - Val(Label1.Height) / 2
Label1.Left = Val(Form1.Width) / 2 - Val(Label1.Width) / 2
Command1.Caption = "放大"
End Sub
Private Sub command1_click()
Label1.FontSize = Val(Label1.FontSize) * 3
Label1.Caption = Str(Time())
Label1.Top = Val(Form1.Height) / 2 - Val(Label1.Height) / 2
Label1.Left = Val(Form1.Width) / 2 - Val(Label1.Width) / 2
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询