s884812

讓他做大數運算可以嗎...？

dsbreak

這樣就可以了........

1. '先宣告 執行緒
   
2. Dim MsgTh As Threading.Thread
   
3. --------------------------------------------------- 略---------------------------
   
4. '副程式
   
5.     Sub MsgPT()
   
6.         MsgBox("123")
   
7.     End Sub
   
8. ------------------------------------------------略-------------------------------
   
9. '底下的寫在 Load 事件
   
10.         Do
    
11.             '重新宣告 執行緒 指定執行緒所執行的 Sub
    
12.             MsgTh = New Threading.Thread(AddressOf MsgPT)
    
13.             PrintTh.Start()
    
14.         Loop

複製代碼

gn02297012

這樣就可以了........
'先宣告 執行緒
Dim MsgTh As Threading.Thread
--------------------------------------------------- 略---------------------------
'副程式
    Sub MsgPT()
        MsgBox("123")
...
dsbreak 發表於 2009-7-20 09:44

我發現您這有一個小錯誤，以下是我修正後的

1. Public Class Form1
   
2.     '先宣告 執行緒
   
3.     Dim MsgTh As Threading.Thread
   
4. 
   
5.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   
6.         Do
   
7.             '重新宣告 執行緒 指定執行緒所執行的 Sub
   
8.             MsgTh = New Threading.Thread(AddressOf MsgPT)
   
9.             MsgTh.Start()
   
10.         Loop
    
11.     End Sub
    
12. 
    
13.     '副程式
    
14.     Sub MsgPT()
    
15.         MsgBox("123")
    
16.     End Sub
    
17. End Class

複製代碼

dsbreak

哈........ 我忘記把 變數名稱改過來了 .............

mark93803

用成無限回圈呀
跑到底的時候又跳上來重跑 就這樣一直循環 就會讓電腦很慢

只是想法而已 供你參考

cmj

我會不是VB的寫法XXXXD

1. FreeConsole();  // 隱藏 console
   
2. while 1
   
3.     no-op;         // 無窮回圈

複製代碼

這樣子基本上就看不道有程式在跑  也可以讓CPU衝到100%

不過如果是多核的話  還要再用multi-thread....

fongka2

很簡單的唷-3-
RE:
msgbox("草泥馬")
goto RE:
完成了=3=
-------------
還有可以
dim i  as integer
i = 0
do until i = 100
if i = 0 then
i=999
loop