找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
尊貴會員無限觀看附件圖片尊貴會員無限看帖不用回覆搞笑、娛樂、精彩的影片讓你看
mg偷拍vrsiro中文gdkkbox
北投夢乃あい一条翡翠航海王劇fsdss 72鋼彈ucpred403

休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

[繁/無修正]魔都精兵

[繁]迷宮飯11-

[繁]肌肉魔法使-MASHL

✡ 斗破蒼穹 年番/鬥

[繁]香格里拉・開拓異

老媽沒收兒子的手機
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 10192|回復: 15

[問題] 厲害的來看一下 到底哪邊錯了Q.Q[複製鏈接]

Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

帖子
933
積分
14178 點
潛水值
37654 米
發表於 2020-4-30 02:25 PM|顯示全部樓層
分享使你變得更實在,可以使其他人感到快樂,分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。
厲害的來看一下 到底哪邊錯了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
...
瀏覽完整內容,請先 註冊登入會員
附件: 你需要登錄才可以下載或查看附件。沒有帳號?註冊
若新密碼無法使用,可能是數據未更新。請使用舊密碼看看。

使用道具檢舉

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
155
積分
1291 點
潛水值
47805 米
發表於 2020-5-1 08:10 AM|顯示全部樓層
如果瀏覽伊莉時速度太慢或無法連接,可以使用其他分流瀏覽伊莉,www01.eyny.com(02,03)。
我複製你的程式碼來跑,完全沒問題耶…
從你的錯誤訊息來看是TrackBar1.Value加到61了…

使用道具檢舉

Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

帖子
933
積分
14178 點
潛水值
37654 米
發表於 2020-5-1 12:38 PM|顯示全部樓層
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。
tryit244178 發表於 2020-5-1 08:10 AM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

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

你好啊感謝您的回答@@"我註解掉那兩行 還是會在即時運算視窗出現這個警示
...
瀏覽完整內容,請先 註冊登入會員

點評

復仇刺 如果正確 把這兩行註解掉之後 不知道秒後面的數字對不對Q.Q 'TrackBar1.Value = 1 'TrackBar1.Value = 0  發表於 2020-5-1 12:58 PM
復仇刺 'TrackBar1.Value = 1 'TrackBar1.Value = 0 不知是不識這兩行著書的人多打@@"  發表於 2020-5-1 12:41 PM
若新密碼無法使用,可能是數據未更新。請使用舊密碼看看。

使用道具檢舉

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
155
積分
1291 點
潛水值
47805 米
發表於 2020-5-1 02:26 PM|顯示全部樓層
成為伊莉的版主,你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛,那種滿足感等著你來嚐嚐喔。
復仇刺 發表於 2020-5-1 12:38 PM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

你好啊感謝您的回答@@"我註解掉那兩行 還是會在即時運算視窗出現這個警示
可程式會跑了@@"
但會有以下的 ...
...
瀏覽完整內容,請先 註冊登入會員

使用道具檢舉

Rank: 2Rank: 2

帖子
366
積分
201 點
潛水值
14812 米
發表於 2020-5-1 05:37 PM|顯示全部樓層
回覆中加入附件並不會使你增加積分,請使用主題方式發佈附件。
TrackBar1.Maximum = 60
你應該是上面的值沒有去設定到~
所以才會這樣~




使用道具檢舉

Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

帖子
933
積分
14178 點
潛水值
37654 米
發表於 2020-5-1 11:21 PM|顯示全部樓層
tryit244178 發表於 2020-5-1 02:26 PM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

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

Public Class Timer
    'Timer控制項範例
...
瀏覽完整內容,請先 註冊登入會員

點評

復仇刺 感謝tryit244178 指導@.@ 還有tvmateiii的回答@@  發表於 2020-5-1 11:53 PM
回覆中加入附件並不會使你增加積分,請使用主題方式發佈附件。

使用道具檢舉

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
155
積分
1291 點
潛水值
47805 米
發表於 2020-5-2 10:58 AM|顯示全部樓層
所有積分大於負-100的壞孩子,將可獲得重新機會成為懲罰生,權限跟幼兒生一樣。
復仇刺 發表於 2020-5-1 11:21 PM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

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

如果還是不行的話,你可以去掉TrackBar1_ValueChanged()
...
瀏覽完整內容,請先 註冊登入會員

點評

復仇刺 OK哩 先謝謝師傅=V= ...下面還有一題@.@"...關於contentmenustrip....  發表於 2020-5-2 06:34 PM

使用道具檢舉

Rank: 1

帖子
30
積分
194 點
潛水值
7844 米
發表於 2020-5-2 06:31 PM|顯示全部樓層
回覆中加入附件並不會使你增加積分,請使用主題方式發佈附件。
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

點評

復仇刺 先多謝師傅@.@修改中  發表於 2020-5-2 10:05 PM
所有積分大於負-100的壞孩子,將可獲得重新機會成為懲罰生,權限跟幼兒生一樣。

使用道具檢舉

Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

帖子
933
積分
14178 點
潛水值
37654 米
發表於 2020-5-2 06:43 PM|顯示全部樓層
如果你忘記伊莉的密碼,請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出,系統就會把密碼寄到你的E-Mail。
tryit244178 發表於 2020-5-2 10:58 AM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

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

先感謝師傅0.0.......
為什執行後滑鼠右鍵要改變顏色 不給右鍵....點了沒反應....是系統有問題還是....
...
瀏覽完整內容,請先 註冊登入會員
附件: 你需要登錄才可以下載或查看附件。沒有帳號?註冊

點評

復仇刺 執行後輸入文字後 右鍵滑鼠游標一直閃 然後沒反應.....也沒跳功能表@..@....  發表於 2020-5-2 06:47 PM
如果發覺自己無法使用一些功能或出現問題,請按重新整理一次,並待所有網頁內容完全載入後5秒才進行操作。

使用道具檢舉

Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

帖子
933
積分
14178 點
潛水值
37654 米
發表於 2020-5-2 10:06 PM|顯示全部樓層
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
...
瀏覽完整內容,請先 註冊登入會員





成為伊莉的版主,你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛,那種滿足感等著你來嚐嚐喔。

使用道具檢舉

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
155
積分
1291 點
潛水值
47805 米
發表於 2020-5-2 11:06 PM|顯示全部樓層
如果發覺自己無法使用一些功能或出現問題,請按重新整理一次,並待所有網頁內容完全載入後5秒才進行操作。
本帖最後由 tryit244178 於 2020-5-2 11:07 PM 編輯
復仇刺 發表於 2020-5-2 06:43 PM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

先感謝師傅0.0.......
為什執行後滑鼠右鍵要改變顏色 不給右鍵....點了沒反應....是系統有問題還是....
...
瀏覽完整內容,請先 註冊登入會員
附件: 你需要登錄才可以下載或查看附件。沒有帳號?註冊
回覆中加入附件並不會使你增加積分,請使用主題方式發佈附件。

使用道具檢舉

Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

帖子
933
積分
14178 點
潛水值
37654 米
發表於 2020-5-3 12:44 AM|顯示全部樓層
tryit244178 發表於 2020-5-2 11:06 PM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

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

多謝師傅了@.@
設定後可以正常執行右鍵也可以更改顏色了@@感恩@@
...
瀏覽完整內容,請先 註冊登入會員
附件: 你需要登錄才可以下載或查看附件。沒有帳號?註冊

點評

復仇刺 不過我只針對RichTextBox1做設定@.@ 謝謝師傅指導@.@  發表於 2020-5-3 12:48 AM

使用道具檢舉

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
155
積分
1291 點
潛水值
47805 米
發表於 2020-5-3 01:52 AM|顯示全部樓層
復仇刺 發表於 2020-5-3 12:44 AM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

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

RichTextBox裡也有那個屬性,設在那就只會出現在RichTextBox之上...
瀏覽完整內容,請先 註冊登入會員

點評

復仇刺 正在看下面程式碼0.0川  發表於 2020-5-5 09:09 PM
復仇刺 恩我有去屬性欄修改看看=V=,有設定成功=V= 感謝師傅@V@  發表於 2020-5-5 09:08 PM

使用道具檢舉

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
155
積分
1291 點
潛水值
47805 米
發表於 2020-5-4 11:49 PM|顯示全部樓層
本帖最後由 tryit244178 於 2020-5-5 12:40 AM 編輯

閒著沒事,來點別的寫法
  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.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  7.         milliSecond = 0
  8.         microSecond = 0
  9.         sec = 0
  10.         min = 0
  11.     End Sub

  12.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  13.         Timer1.Enabled = Not Timer1.Enabled
  14.     End Sub

  15.     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  16.         milliSecond += 1
  17.         carry10.CheckCarry(microSecond, milliSecond)
  18.         carry10.CheckCarry(sec, microSecond)
  19.         carry60.CheckCarry(min, sec)
  20.         Label1.Text = CUInt(min) & "分:" & CUInt(sec) & "秒:" & CUInt(microSecond) & CUInt(milliSecond)
  21.     End Sub
  22. End Class

  23. Public Class Carrier
  24.     Private _carry As UInteger

  25.     Public Sub New(ByVal carry As UInteger)
  26.         _carry = carry
  27.     End Sub

  28.     Public Sub CheckCarry(ByRef highOrder As Limit, ByRef lowOrder As Limit)
  29.         If CUInt(lowOrder) = _carry Then
  30.             lowOrder = 0
  31.             highOrder += 1
  32.         End If
  33.     End Sub
  34. End Class

  35. Public Structure Limit
  36.     Private Shared _min As UInteger
  37.     Private Shared _max As UInteger
  38.     Private _value As UInteger

  39.     Public Sub New(ByVal Max As UInteger)
  40.         _min = 0
  41.         _max = Max
  42.     End Sub

  43.     Public Sub New(ByVal Min As UInteger, ByVal Max As UInteger)
  44.         _min = Min
  45.         _max = Max
  46.     End Sub

  47.     Public Shared Widening Operator CType(ByVal l As Limit) As UInteger
  48.         Return l._value
  49.     End Operator

  50.     Public Shared Narrowing Operator CType(ByVal value As UInteger) As Limit
  51.         If value < _min Or value > _max Then
  52.             'Throw New ArgumentOutOfRangeException(value & "超出範圍")
  53.             value = 0
  54.         End If

  55.         Dim result As New Limit(_min, _max)
  56.         result._value = value
  57.         Return result
  58.     End Operator

  59.     Public Shared Operator +(ByVal first As Limit, ByVal second As Limit) As Limit
  60.         Dim result As New Limit(_min, _max)
  61.         result = first._value + second._value
  62.         Return result
  63.     End Operator
  64. End Structure
複製代碼
...
瀏覽完整內容,請先 註冊登入會員

點評

tryit244178 structure是結構,書裡應該會寫…  發表於 2020-5-5 10:30 PM
tryit244178 https://zh.wikipedia.org/zh-tw/Windows_API  發表於 2020-5-5 10:30 PM
復仇刺 另問API 是這個嗎@.@ https://docs.microsoft.com/zh-tw/dotnet/visual-basic/language-reference/statements/structure-statement  發表於 2020-5-5 09:12 PM
復仇刺 先謝謝師傅0.0  發表於 2020-5-5 07:07 PM
若新密碼無法使用,可能是數據未更新。請使用舊密碼看看。

使用道具檢舉

Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

帖子
933
積分
14178 點
潛水值
37654 米
發表於 2020-5-6 02:34 PM|顯示全部樓層
若對尊貴或贊助會員有任何疑問,歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com
本帖最後由 復仇刺 於 2020-5-6 02:38 PM 編輯
tryit244178 發表於 2020-5-3 01:52 AM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

RichTextBox裡也有那個屬性,設在那就只會出現在RichTextBox之上
...
瀏覽完整內容,請先 註冊登入會員





附件: 你需要登錄才可以下載或查看附件。沒有帳號?註冊
所有積分大於負-100的壞孩子,將可獲得重新機會成為懲罰生,權限跟幼兒生一樣。

使用道具檢舉

您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明:本討論區是以即時上載留言的方式運作,對所有留言的真實性、完整性及立場等,不負任何法律責任。而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。於有關情形下,用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限,故不能完全監察所有留言,若讀者發現有留言出現問題,請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言,同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論,敬請自律。本網站保留一切法律權利。
回頂部