厲害的來看一下 到底哪邊錯了Q.Q

復仇刺

厲害的來看一下 到底哪邊錯了Q.Q
為什會跑錯誤

我照書做 為什有錯誤Q.Q

Public Class Timer
    'Timer控制項範例
    Dim min As Integer = 0 : Dim sec As Integer
    Dim a As Integer = 0 : Dim b As Integer = 0

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Timer1.Interval = 10
...

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

tryit244178

我複製你的程式碼來跑，完全沒問題耶…
從你的錯誤訊息來看是TrackBar1.Value加到61了…

復仇刺

tryit244178 發表於 2020-5-1 08:10 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

我複製你的程式碼來跑，完全沒問題耶…
從你的錯誤訊息來看是TrackBar1.Value加到61了… ...

你好啊感謝您的回答@@"我註解掉那兩行 還是會在即時運算視窗出現這個警示
...

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

tryit244178

復仇刺 發表於 2020-5-1 12:38 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

你好啊感謝您的回答@@"我註解掉那兩行 還是會在即時運算視窗出現這個警示
可程式會跑了@@"
但會有以下的 ...

...

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

tvmateiii

TrackBar1.Maximum = 60
你應該是上面的值沒有去設定到~
所以才會這樣~

復仇刺

tryit244178 發表於 2020-5-1 02:26 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

你設定TrackBar1.Value的值時，會觸發 TrackBar.ValueChanged事件把這段程式碼改寫在ValueChanged事件裡 ...

Public Class Timer
    'Timer控制項範例
...

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

tryit244178

復仇刺 發表於 2020-5-1 11:21 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

Public Class Timer
    'Timer控制項範例
    Dim min As Integer = 0 : Dim sec As Integer

如果還是不行的話，你可以去掉TrackBar1_ValueChanged()
...

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

tyfbbs

TrackBar1的Maximun等於60
修改一下判斷式就可以
TrackBar1.Value += 1
If TrackBar1.Value = 60 Then

改成
If TrackBar1.Value < 60 Then
    TrackBar1.Value += 1
Else
    TrackBar1.Value = 0
    '以下程式碼自行複製
End if

復仇刺

tryit244178 發表於 2020-5-2 10:58 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

如果還是不行的話，你可以去掉TrackBar1_ValueChanged()
然後把Timer1_Tick()改為

先感謝師傅0.0.......
為什執行後滑鼠右鍵要改變顏色 不給右鍵....點了沒反應....是系統有問題還是....
...

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

復仇刺

tyfbbs 發表於 2020-5-2 06:31 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

TrackBar1的Maximun等於60
修改一下判斷式就可以
TrackBar1.Value += 1

已改好
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
...

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

tryit244178

復仇刺 發表於 2020-5-2 06:43 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

先感謝師傅0.0.......
為什執行後滑鼠右鍵要改變顏色 不給右鍵....點了沒反應....是系統有問題還是....

...

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

復仇刺

tryit244178 發表於 2020-5-2 11:06 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

你有把快顯選單設到 Form1.ContextMenuStript 裡嗎？

多謝師傅了@.@
設定後可以正常執行右鍵也可以更改顏色了@@感恩@@
...

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

tryit244178

復仇刺 發表於 2020-5-3 12:44 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

多謝師傅了@.@
設定後可以正常執行右鍵也可以更改顏色了@@感恩@@

RichTextBox裡也有那個屬性，設在那就只會出現在RichTextBox之上...

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

tryit244178

閒著沒事，來點別的寫法

1. Public Class Form1
   
2.     Private microSecond As New Limit(10), milliSecond As New Limit(10)
   
3.     Private sec As New Limit(60), min As New Limit(60)
   
4.     Private carry10 As New Carrier(10)
   
5.     Private carry60 As New Carrier(60)
   
6. 
   
7.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   
8.         milliSecond = 0
   
9.         microSecond = 0
   
10.         sec = 0
    
11.         min = 0
    
12.     End Sub
    
13. 
    
14.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    
15.         Timer1.Enabled = Not Timer1.Enabled
    
16.     End Sub
    
17. 
    
18.     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    
19.         milliSecond += 1
    
20.         carry10.CheckCarry(microSecond, milliSecond)
    
21.         carry10.CheckCarry(sec, microSecond)
    
22.         carry60.CheckCarry(min, sec)
    
23.         Label1.Text = CUInt(min) & "分：" & CUInt(sec) & "秒：" & CUInt(microSecond) & CUInt(milliSecond)
    
24.     End Sub
    
25. End Class
    
26. 
    
27. Public Class Carrier
    
28.     Private _carry As UInteger
    
29. 
    
30.     Public Sub New(ByVal carry As UInteger)
    
31.         _carry = carry
    
32.     End Sub
    
33. 
    
34.     Public Sub CheckCarry(ByRef highOrder As Limit, ByRef lowOrder As Limit)
    
35.         If CUInt(lowOrder) = _carry Then
    
36.             lowOrder = 0
    
37.             highOrder += 1
    
38.         End If
    
39.     End Sub
    
40. End Class
    
41. 
    
42. Public Structure Limit
    
43.     Private Shared _min As UInteger
    
44.     Private Shared _max As UInteger
    
45.     Private _value As UInteger
    
46. 
    
47.     Public Sub New(ByVal Max As UInteger)
    
48.         _min = 0
    
49.         _max = Max
    
50.     End Sub
    
51. 
    
52.     Public Sub New(ByVal Min As UInteger, ByVal Max As UInteger)
    
53.         _min = Min
    
54.         _max = Max
    
55.     End Sub
    
56. 
    
57.     Public Shared Widening Operator CType(ByVal l As Limit) As UInteger
    
58.         Return l._value
    
59.     End Operator
    
60. 
    
61.     Public Shared Narrowing Operator CType(ByVal value As UInteger) As Limit
    
62.         If value < _min Or value > _max Then
    
63.             'Throw New ArgumentOutOfRangeException(value & "超出範圍")
    
64.             value = 0
    
65.         End If
    
66. 
    
67.         Dim result As New Limit(_min, _max)
    
68.         result._value = value
    
69.         Return result
    
70.     End Operator
    
71. 
    
72.     Public Shared Operator +(ByVal first As Limit, ByVal second As Limit) As Limit
    
73.         Dim result As New Limit(_min, _max)
    
74.         result = first._value + second._value
    
75.         Return result
    
76.     End Operator
    
77. End Structure

複製代碼

...

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

復仇刺

tryit244178 發表於 2020-5-3 01:52 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

RichTextBox裡也有那個屬性，設在那就只會出現在RichTextBox之上

...

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