一道有关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
--
2022-12-05 广告
2022-12-05 广告
图形化编程简单理解为用积木块形式编程,scratch和python也是其中的一种,属于入门级编程,以其简单生动的画面获得无数学生的喜爱,深圳市创客火科技有限公司是一家做教育无人机的公司,旗下有编程无人机,积木无人机及室内外编队,每款飞机含有...
点击进入详情页
本回答由--提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询