VB 如何做出像引擎轉速表的那種感覺

beyle

我想要做一個量化的指標,
圖型是用類似引擎轉速表圓形的模式,
不知那位高手指導一下....

virdoll

關鍵字 「vb gauge」，就可以找到螿多的例子參考了。

Waroger

10幾年前用VB6寫的指針事時鐘，你參考看看

1. '表單放置1個Timer及1個VScrollBar
   
2. Const Pi = 3.14159265358979
   
3. Dim X&, Y&, R&, Hh%, Mm%, Ss%
   
4.     Private Sub Form_Load()
   
5.     Dim A&, B&, I%, J$, W%, H%
   
6.    
   
7.     X = ScaleWidth \ 2: Y = ScaleHeight \ 2
   
8.     R = X: If Y < X Then R = Y
   
9.     R = R - 120
   
10.     AutoRedraw = True: DrawWidth = 1: ForeColor = 0
    
11.     J = 255
    
12.     For I = R To R + 90
    
13.         Circle (X, Y), I, RGB(J, 0, J)
    
14.         J = J - 1
    
15.     Next
    
16.     J = 1
    
17.     For I = 210 To 540 Step 30
    
18.         W = TextWidth(J) \ 2
    
19.         H = TextHeight(J) \ 2
    
20.         CurrentX = X - Sin(I / 180 * Pi) * (R - W * 2) - W
    
21.         CurrentY = Y + Cos(I / 180 * Pi) * (R - H * 2) - H
    
22.         Print J: J = J + 1
    
23.     Next
    
24.     R = R - H * 3
    
25.     Picture = Image
    
26.     VScroll1.Max = 1000: VScroll1.Min = 10: VScroll1 = 1000
    
27.     Hh = Hour(Now): Mm = Minute(Now): Ss = Second(Now)
    
28.     Timer1.Enabled = True
    
29. End Sub
    
30. 
    
31. Private Sub Timer1_Timer()
    
32.     Dim S%, I%, J%
    
33.    
    
34.     Cls
    
35.    
    
36.     DrawWidth = 4
    
37.     S = ((Hh Mod 12) + Mm / 60) * 30 + 180
    
38.     I = X - Sin(S / 180 * Pi) * R * 0.6
    
39.     J = Y + Cos(S / 180 * Pi) * R * 0.6
    
40.     Line (X, Y)-(I, J)
    
41.     DrawWidth = 2
    
42.     S = Mm * 6 + 180
    
43.     I = X - Sin(S / 180 * Pi) * R * 0.8
    
44.     J = Y + Cos(S / 180 * Pi) * R * 0.8
    
45.     Line (X, Y)-(I, J)
    
46.     DrawWidth = 1
    
47.     S = Ss * 6 + 180
    
48.     I = X - Sin(S / 180 * Pi) * R
    
49.     J = Y + Cos(S / 180 * Pi) * R
    
50.     Line (X, Y)-(I, J)
    
51.     Ss = Ss + 1
    
52.     If Ss > 59 Then Mm = Mm + 1: Ss = 0
    
53.     If Mm > 59 Then Hh = Hh + 1: Mm = 0
    
54.     If Hh > 12 Then Hh = 1
    
55.    
    
56. End Sub
    
57. 
    
58. Private Sub VScroll1_Change()
    
59.     Timer1.Interval = VScroll1
    
60. End Sub
    
61. 
    
62. Private Sub VScroll1_Scroll()
    
63.     Timer1.Interval = VScroll1
    
64. End Sub

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

Jeepluo

程式碼太長了，可以用「Analogue Clock」關鍵字找到圖及範例
就不知道是否你要的部份了

tryit244178

噢…不讓我貼連結，那貼關鍵字給你
你搜尋一下 【 VB 6 】指針式時鐘-動態指針的製作原理