欧阳音创编2021.03.11欧阳音创编2021.03.11首先打开vb6.0,新建一个工程,在窗体中放一个imagebox控件时间:2021.03.11创作:欧阳音然后在其中放一个timer控件再就是一个直线控件数组注意要把imagebox中的stretch属性改为true,直线控件数组是14个,要注意下面是我和程序代码,有一些注解的希望能对大家有帮助PrivateSubForm_Load()'设置窗体和计时器参数Timer1.Interval=100'设置计时器事件间隔是1/10秒Width=4000Height=4000Left=Screen.Width\22000Top=(Screen.HeightHeight)\2EndSubPrivateSubForm_Resize()'启动时和改变窗体时设置刻度和指针Dimi,angleFori=0To13Line1(i).Visible=TrueLine1(i).BorderWidth=4Ifi=0Ori>12ThenLine1(i).BorderColor=RGB(0,0,128)ElseLine1(i).BorderColor=RGB(0,128,0)EndIfNextiLine1(12).BorderColor=RGB(128,256,128)Line1(9).BorderColor=RGB(256,128,128)Line1(6).BorderColor=RGB(128,0,256)Line1(3).BorderColor=RGB(0,0,255)Line1(13).BorderColor=RGB(255,0,255)Line1(0).BorderWidth=5'时针的粗细Line1(14).BorderWidth=2'分针的粗细Line1(i).BorderColor=RGB(256,0,0)Fori=0To14Scale(1,1)(1,1)'画出
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
盘12个点和时,分.秒15条线angle=i*2*Atn(1)/3Line1(i).X1=0.9*Cos(angle)Line1(i).Y1=0.9*Sin(angle)Line1(i).X2=Cos(angle)Line1(i).Y2=Sin(angle)NextiEndSubPrivateSubTimer1_Timer()Consthh=0Constmh=13Constsh=14DimangleStaticlsIfSecond(Now)=lsThenExitSub'机器时钟停止程序退出ls=Second(Now)angle=0.5236*(15(Hour(Now)+Minute(Now)/60))'时钟转动设置Line1(hh).X1=0Line1(hh).Y1=0Line1(hh).X2=0.3*Cos(angle)Line1(hh).Y2=0.3*Sin(angle)angle=0.1047*(75(Minute(Now)+Second(Now)/60))'分钟转动设置Line1(mh).X1=0Line1(mh).Y1=0Line1(mh).X2=0.7*Cos(angle)Line1(mh).Y2=0.7*Sin(angle)angle=0.5236*(75Second(Now)/5)'秒钟转动设置Line1(sh).X1=0Line1(sh).Y1=0Line1(sh).X2=0.8*Cos(angle)Line1(sh).Y2=0.8*Sin(angle)Form1.Caption=Str(Now())'窗口显示日期和时间EndSub时间:2021.03.11创作:欧阳音