皮皮网

1.VB6.0制作电子表

VB6.0制作电子表

       è¿™æ˜¯ä¸€ä¸ªç”µå­å¼+指针式表，他需要一些数学知识如cos，sin函数

       ä½ ä»£ç æœ‰äº›é—®é¢˜ï¼Œæˆ‘已帮你修改，顺便附上 æ³¨é‡Š åŠ å›¾

       Dim alf(0 To ) '定义个刻度右方向水平偏转角

       Dim pi As Double '定义π

       Private Sub Form_Load()

       pi = 3. '设置π值

       End Sub

       Private Sub Timer1_Timer()

       rr = PicTime.Height / 2  '设置时针的旋转中心

       ddate = Format(Now,源码ptcms 源码 下载 "mm:dd:yy") '获得现在是 å‡ æœˆå‡ å·å‡ å¹´

       ttime = Format(Now, "hh:mm:ss") '获得现在是 å‡ æ—¶å‡ åˆ†å‡ ç§’

       tMonth = Left(ddate, 2) '得到月份

       tDay = Mid(ddate, 4, 2) '得到天数

       tYear = Right(ddate, 2) '得到年数

       hh = Left(ttime, 2) '得到小时

       ss = Right(ttime, 2) '得到秒

       mm = Mid(ttime, 4, 2) '得到月

       TxtYear.Text = "" & tYear '显示现在是.。年

       TxtMth.Text = tMonth '显示月

       TxtDay.Text = tDay '显示天

       LblTime.Caption = Time '得到现在的时间

       nWidth = PicTime.Width -  '设置刻度的宽度为PicTime宽-

       nHourLen = nWidth * 4 /  '设置时针长度，可自定义

       nMinLen = nWidth * 6 /  '设置分针长度，可自定义

       nSecLen = nWidth * 8 /  '设置秒针长度，可自定义

       alfsec = ((ss - ) / ) * pi '获得秒针右方向水平偏转角

       alfmin = ((mm + ss /  - ) / ) * pi '获得分针右方向水平偏转角

       alfhour = ((hh + mm /  + ss /  - ) / 6) * pi '获得时针针右方向水平偏转角

       PicTime.Refresh '刷新

       '---------------------以下是设置时钟刻度---------------------

       For I = 0 To  ' ç”»ä¸ªåˆ»åº¦

       alf(I) = I *  * pi /  '获得每一刻度右方向水平偏转角

       PicTime.DrawWidth = 1 '设置刻度线宽为1像素

       If I = 0 Or I = 3 Or I = 6 Or I = 9 Then '当刻度是0,3,6,9，时

       PicTime.DrawWidth = 3 '设置刻度线宽为3像素

       End If

       PicTime.Line (rr + (rr - ) * Cos(alf(I)), rr + (rr - ) * Sin(alf(I)))-(rr + (rr - ) * Cos(alf(I)), rr + (rr - ) * Sin(alf(I))), RGB(, 0, ) '

       '这句见图，

       '以 rr + (rr - ) * Cos(alf(I)), rr + (rr - ) * Sin(alf(I))  ä¸ºåˆ»åº¦åˆåæ ‡ï¼Œä»¥  rr + (rr - ) * Cos(alf(I)), rr + (rr - ) * Sin(alf(I))

       '为末坐标画一条 ç²‰è‰²çº¿

       Next I

       '-----------------------以下是设置各针的旋转--------------------

       PicTime.DrawWidth = 3 '设置时针的线条宽度为3像素

       PicTime.Line (rr, rr)-(rr + nHourLen * Cos(alfhour), rr + nHourLen * Sin(alfhour)) '同上

       PicTime.DrawWidth = 2 ''设置分针的线条宽度为2像素

       PicTime.Line (rr, rr)-(rr + nMinLen * Cos(alfmin), rr + nMinLen * Sin(alfmin)) '同上

       PicTime.DrawWidth = 1 ''设置秒针的线条宽度为1像素

       PicTime.Line (rr, rr)-(rr + nSecLen * Cos(alfsec), rr + nSecLen * Sin(alfsec)) '同上

       PicTime.DrawWidth = 5 '设置时钟中心点的大小为5像素

       PicTime.PSet (rr, rr), RGB(, 0, ) '在时钟中心画上一个粉色点

       End Sub