vb.net中如何設(shè)置進(jìn)程的基本優(yōu)先級(jí)

下面的代碼示例說明了更改線程優(yōu)先級(jí)的結(jié)果。創(chuàng)建兩個(gè)線程，其中一個(gè)線程的優(yōu)先級(jí)設(shè)置為 BelowNormal。兩個(gè)線程在 while 循環(huán)中都增加一個(gè)變量，并運(yùn)行一段設(shè)定的時(shí)間。

為長(zhǎng)寧等地區(qū)用戶提供了全套網(wǎng)頁(yè)設(shè)計(jì)制作服務(wù)，及長(zhǎng)寧網(wǎng)站建設(shè)行業(yè)解決方案。主營(yíng)業(yè)務(wù)為網(wǎng)站設(shè)計(jì)、成都網(wǎng)站設(shè)計(jì)、長(zhǎng)寧網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠(chéng)的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會(huì)得到認(rèn)可，從而選擇與我們長(zhǎng)期合作。這樣，我們也可以走得更遠(yuǎn)！

Option Explicit

Option Strict

Imports System

Imports System.Threading

Public Class Test

MTAThread _

Shared Sub Main()

Dim priorityTest As New PriorityTest()

Dim threadOne As Thread = _

New Thread(AddressOf priorityTest.ThreadMethod)

threadOne.Name = "ThreadOne"

Dim threadTwo As Thread = _

New Thread(AddressOf priorityTest.ThreadMethod)

threadTwo.Name = "ThreadTwo"

threadTwo.Priority = ThreadPriority.BelowNormal

threadOne.Start()

threadTwo.Start()

' Allow counting for 10 seconds.

Thread.Sleep(10000)

priorityTest.LoopSwitch = False

End Sub

End Class

Public Class PriorityTest

Dim loopSwitchValue As Boolean

Sub New()

loopSwitchValue = True

End Sub

WriteOnly Property LoopSwitch As Boolean

Set

loopSwitchValue = Value

End Set

End Property

Sub ThreadMethod()

Dim threadCount As Long = 0

While loopSwitchValue

threadCount += 1

End While

Console.WriteLine("{0} with {1,11} priority " _

"has a count = {2,13}", Thread.CurrentThread.Name, _

Thread.CurrentThread.Priority.ToString(), _

threadCount.ToString("N0"))

End Sub

End Class

Vb.net 多個(gè)線程執(zhí)行順序的問題

多個(gè)線程執(zhí)行的時(shí)候，是按CPU時(shí)鐘輪番執(zhí)行的，你可以在兩個(gè)SUB中增加一條輸出到即時(shí)窗口：debug.print test_time

看不出你的test1和test2做什么用的？

VB.NET 簡(jiǎn)單多線程

多線程一般是不推薦用的，因?yàn)榫€程之間如果有共享資源的話會(huì)引起競(jìng)爭(zhēng)，需要加鎖處理；而且線程間沒有時(shí)序關(guān)系，所以你在調(diào)試中可能會(huì)出現(xiàn)異步處理結(jié)束順序與開始處理順序不一致的情況（我在調(diào)試中已經(jīng)發(fā)現(xiàn)該問題）。

針對(duì)你提出的這個(gè)問題，采用了多線程處理，利用的是BackgroundWorker也就是異步處理控件進(jìn)行了處理。

代碼已經(jīng)經(jīng)過調(diào)試通過。歡迎交流，如有問題，留下QQ或其他聯(lián)系方式。

代碼如下，并附程序截圖。

‘---------------------------------------------------

Imports?System.ComponentModel?'導(dǎo)入異步控件命名空間

Public?Class?Form1

Private?howmany?As?Integer?=?10

Private?AnalysisNumber(0?To?howmany?-?1)?As?BackgroundWorker

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

ListBox1.Items.Clear()

creatNewBackgroundWorker()

addHandle()

startWork()

End?Sub

Private?Sub?creatNewBackgroundWorker()

For?i?As?Integer?=?0?To?AnalysisNumber.Length?-?1

AnalysisNumber(i)?=?New?BackgroundWorker

Next

End?Sub

Private?Sub?addHandle()

For?i?As?Integer?=?0?To?AnalysisNumber.Length?-?1

AddHandler?AnalysisNumber(i).DoWork,?AddressOf?AnalysisNumber_DoWork

AddHandler?AnalysisNumber(i).RunWorkerCompleted,?AddressOf?AnalysisNumber_RunWorkerCompleted

Next

End?Sub

Private?Sub?startWork()

For?i?As?Integer?=?0?To?9

Dim?temp(0?To?9)?As?Integer

For?j?As?Integer?=?1?To?10

temp(j?-?1)?=?10?*?i?+?j

Next

AnalysisNumber(i).RunWorkerAsync(temp)

Next

End?Sub

Private?Sub?AnalysisNumber_DoWork(ByVal?sender?As?Object,?ByVal?e?As?System.ComponentModel.DoWorkEventArgs)

Dim?data?As?Integer()

data?=?CType(e.Argument,?Integer())

Dim?temp?As?Integer

For?i?As?Integer?=?0?To?data.Length?-?1

temp?=?data(i)

data(i)?=?temp?*?temp

Next

e.Result?=?data

End?Sub

Private?Sub?AnalysisNumber_RunWorkerCompleted(ByVal?sender?As?Object,?ByVal?e?As?System.ComponentModel.RunWorkerCompletedEventArgs)

Dim?data?As?Integer()

data?=?CType(e.Result,?Integer())

For?i?As?Integer?=?0?To?data.Length?-?1

ListBox1.Items.Add(data(i))

Next

End?Sub

End?Class

VB.NET控件的一些事件的觸發(fā)順序是什么

一個(gè)一個(gè)回答吧。

1、CheckBox 的 MouseDown 事件發(fā)生在 CheckedChange 事件之前，但這是指在單步調(diào)試的狀態(tài)下，事實(shí)上在編譯好的程序中，這兩個(gè)事件是分別處在兩個(gè)不同的線程中，單純的考慮時(shí)間上的前后沒有意義。

2、MouseDown 在先。Scroll 事件發(fā)生在滾動(dòng)條移動(dòng)的過程中，而 ValueChange 事件發(fā)生在滾動(dòng)條的 Value 屬性發(fā)生改變的時(shí)候，兩者沒有必然聯(lián)系。舉例，當(dāng)你用鼠標(biāo)拖動(dòng)滾動(dòng)條移動(dòng)的時(shí)候，這時(shí)發(fā)生的是 Scroll 事件；松開鼠標(biāo)鍵后，Value 屬性值改變，這時(shí)候觸發(fā) ValueChange 事件。另外，如果滾動(dòng)條的 Value 是通過代碼改變的而非鼠標(biāo)拖動(dòng)的，是不觸發(fā) Scroll 事件只觸發(fā) ValueChange 事件。

3、ClientSize 是指控件的工作區(qū)的高度和寬度。比如說 form，它的 Size 值是包括標(biāo)題欄、邊框等，而 ClientSize 是工作區(qū)，不包括標(biāo)題欄、邊框等。

4、一般是 Load→Paint→Shown。