vb.net怎么無線循環(huán)編

一般多開線程寫無限循環(huán)行為。

公司主營業(yè)務：網(wǎng)站設計制作、成都網(wǎng)站制作、移動網(wǎng)站開發(fā)等業(yè)務。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領域給我們帶來的挑戰(zhàn)，讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)推出同仁免費做網(wǎng)站回饋大家。

//定義線程

Dim?th?As?New?Threading.Thread(New?Threading.ParameterizedThreadStart(AddressOf?test))

th.Start("aaa")//開始線程，可以傳參

//線程執(zhí)行函數(shù)

Public?Sub?test(ob?As?Object)

While?True

Console.WriteLine("線程正在運行中"??ob)

Threading.Thread.Sleep(1000)

End?While

End?Sub

vb.net do循環(huán)

你確信只循環(huán)一次嗎？我看不像，在最后添加上一句msgbox jishu1，多半顯示3。

是在第二塊代碼中有問題，你應該把chaxun4 = xlsheet.Range("l1").Value + 2分別放到兩個條件句中初始chaxun4變量。

因為上一個Do Until atmbianhaop = xlsheet.Range("B" chaxun4).Value 循環(huán)退出后，下一個循環(huán)一開始就符合退出條件了，所以循環(huán)沒有進行了。

vb.net的for each 循環(huán)問題

值傳遞和地址傳遞(引用)的而導致的問題。

在For Each 的時候

當對象是值對象的時候，等于獲得到一個副本。

當對象是引用對象的時候，則是獲得到一個指針。

而在For To 的時候

無論對象是什么，你都獲得到這個集合指定位置的指針。

更詳細的，可以請參考以下內(nèi)容，或直接去官方的MSDN了解

關于值類型和引用類型:

如果數(shù)據(jù)類型在它自己的內(nèi)存分配中存儲數(shù)據(jù)，則該數(shù)據(jù)類型就是“值類型”。“引用類型”包含指向存儲數(shù)據(jù)的其他內(nèi)存位置的指針。

值類型

值類型包括：

所有數(shù)字數(shù)據(jù)類型

Boolean、Char 和 Date

所有結構，即使其成員是引用類型

枚舉，因為其基礎類型總是 SByte、Short、Integer、Long、Byte、UShort、UInteger

或 ULong

引用類型

引用類型包括：

String

所有數(shù)組，即使其元素是值類型

類類型，如 Form

委托

非類型的元素

以下編程元素未限定為類型，因為您無法將它們中的任何一個指定為聲明元素的數(shù)據(jù)類型：

命名空間

模塊

事件

屬性和過程

變量、常數(shù)和字段

使用對象數(shù)據(jù)類型

可以將引用類型或值類型指派給 Object 數(shù)據(jù)類型的變量。Object

變量總是存儲指向數(shù)據(jù)的指針，從不存儲數(shù)據(jù)本身。然而，如果將值類型指派給 Object 變量，則 Object

變量將表現(xiàn)得像存儲自己的數(shù)據(jù)一樣。有關更多信息，請參見 Object 數(shù)據(jù)類型。

通過將 Object 變量傳遞給 Microsoft.VisualBasic

命名空間中 Information

類的 IsReference

方法，可以確定該變量是用作引用類型還是值類型。如果 Object 變量的內(nèi)容表示引用類型，則 Information.IsReference 返回 True。

vb.net 中在模塊（module）里如何實現(xiàn)委托

委托三個步驟

1、聲明委托 用Delegate 聲明一個委托 類型 參數(shù)要和 被委托的方法一樣 例如 Delegate Function a(byval x as string) as string

2、實例化委托 dim t as new a(AddressOf Function Name)

3.通過 t(參數(shù)) 或者 t.Invoke(參數(shù)調(diào)用委托)

示例：

Module module1

Delegate Function a(ByVal x As Integer, ByVal y As Integer) As Integer '聲明委托類型 委托可以使一個對象調(diào)用另一個對象的方法

Function sum(ByVal x As Integer, ByVal y As Integer) As Integer

Return (x + y)

End Function

Sub main()

Dim d As New a(AddressOf sum) '實例化委托

Dim s = 0

s = d.Invoke(1, 2) '執(zhí)行委托

Console.WriteLine(s.ToString())

s = d(1, 2) '執(zhí)行委托

Console.WriteLine(s.ToString())

MsgBox("")

End Sub

End Module

vb.net多線程，循環(huán)導致窗口界面假死的問題

同學。。你這里的寫法其實根本沒有用到多線程

原因很簡單

你是定義了一個T的新線程，但是很可惜你在BeginDoSub這個獨立的線程中又定義了一個deSomeSub的委托，并且直接用Me.Invoke把實際的執(zhí)行任務提交給界面主線程運行了

所以你的圖片的處理函數(shù)實際上是在主線程中運行的，新線程等于沒用

正確的作法是，T定義為SomeSub這個函數(shù)為入口的線程，并啟動它

在界面進度條更改的時候再使用Invoke來調(diào)用委托來進行界面更改。

自己再好好看看吧，時間問題我要走了。

vb.net中如何用事件和委托，會C#中的事件和委托，但不知VB.net中的語法，望給個簡單的例子熟悉語法。

一委托：此示例演示如何將方法與委托關聯(lián)然后通過委托調(diào)用該方法。

創(chuàng)建委托和匹配過程

創(chuàng)建一個名為 MySubDelegate 的委托。

Delegate Sub MySubDelegate(ByVal x As Integer)

聲明一個類，該類包含與該委托具有相同簽名的方法。

Class class1

Sub Sub1(ByVal x As Integer)

MsgBox("The value of x is: " CStr(x))

End Sub

End Class

定義一個方法，該方法創(chuàng)建該委托的實例并通過調(diào)用內(nèi)置的 Invoke 方法調(diào)用與該委托關聯(lián)的方法。

Protected Sub DelegateTest()

Dim c1 As New class1

' Create an instance of the delegate.

Dim msd As MySubDelegate = AddressOf c1.Sub1

' Call the method.

msd.Invoke(10)

End Sub

二、事件

下面的示例程序闡釋如何在一個類中引發(fā)一個事件，然后在另一個類中處理該事件。AlarmClock 類定義公共事件 Alarm，并提供引發(fā)該事件的方法。AlarmEventArgs 類派生自 EventArgs，并定義 Alarm 事件特定的數(shù)據(jù)。WakeMeUp 類定義處理 Alarm 事件的 AlarmRang 方法。AlarmDriver 類一起使用類，將使用 WakeMeUp 的 AlarmRang 方法設置為處理 AlarmClock 的 Alarm 事件。

該示例程序使用事件和委托和引發(fā)事件中詳細說明的概念。

示例

' EventSample.vb.

'

Option Explicit

Option Strict

Imports System

Imports System.ComponentModel

Imports Microsoft.VisualBasic

Namespace EventSample

' Class that contains the data for

' the alarm event. Derives from System.EventArgs.

'

Public Class AlarmEventArgs

Inherits EventArgs

Private _snoozePressed As Boolean

Private nrings As Integer

'Constructor.

'

Public Sub New(snoozePressed As Boolean, nrings As Integer)

Me._snoozePressed = snoozePressed

Me.nrings = nrings

End Sub

' The NumRings property returns the number of rings

' that the alarm clock has sounded when the alarm event

' is generated.

'

Public ReadOnly Property NumRings() As Integer

Get

Return nrings

End Get

End Property

' The SnoozePressed property indicates whether the snooze

' button is pressed on the alarm when the alarm event is generated.

'

Public ReadOnly Property SnoozePressed() As Boolean

Get

Return _snoozePressed

End Get

End Property

' The AlarmText property that contains the wake-up message.

'

Public ReadOnly Property AlarmText() As String

Get

If _snoozePressed Then

Return "Wake Up!!! Snooze time is over."

Else

Return "Wake Up!"

End If

End Get

End Property

End Class

' Delegate declaration.

'

Public Delegate Sub AlarmEventHandler(sender As Object, _

e As AlarmEventArgs)

' The Alarm class that raises the alarm event.

'

Public Class AlarmClock

Private _snoozePressed As Boolean = False

Private nrings As Integer = 0

Private stopFlag As Boolean = False

' The Stop property indicates whether the

' alarm should be turned off.

'

Public Property [Stop]() As Boolean

Get

Return stopFlag

End Get

Set

stopFlag = value

End Set

End Property

' The SnoozePressed property indicates whether the snooze

' button is pressed on the alarm when the alarm event is generated.

'

Public Property SnoozePressed() As Boolean

Get

Return _snoozePressed

End Get

Set

_snoozePressed = value

End Set

End Property

' The event member that is of type AlarmEventHandler.

'

Public Event Alarm As AlarmEventHandler

' The protected OnAlarm method raises the event by invoking

' the delegates. The sender is always this, the current instance

' of the class.

'

Protected Overridable Sub OnAlarm(e As AlarmEventArgs)

RaiseEvent Alarm(Me, e)

End Sub

' This alarm clock does not have

' a user interface.

' To simulate the alarm mechanism it has a loop

' that raises the alarm event at every iteration

' with a time delay of 300 milliseconds,

' if snooze is not pressed. If snooze is pressed,

' the time delay is 1000 milliseconds.

'

Public Sub Start()

Do

nrings += 1

If stopFlag Then

Exit Do

Else

If _snoozePressed Then

System.Threading.Thread.Sleep(1000)

If (True) Then

Dim e As New AlarmEventArgs(_snoozePressed, nrings)

OnAlarm(e)

End If

Else

System.Threading.Thread.Sleep(300)

Dim e As New AlarmEventArgs(_snoozePressed, nrings)

OnAlarm(e)

End If

End If

Loop

End Sub

End Class

' The WakeMeUp class has a method AlarmRang that handles the

' alarm event.

'

Public Class WakeMeUp

Public Sub AlarmRang(sender As Object, e As AlarmEventArgs)

Console.WriteLine((e.AlarmText + ControlChars.Cr))

If Not e.SnoozePressed Then

If e.NumRings Mod 10 = 0 Then

Console.WriteLine(" Let alarm ring? Enter Y")

Console.WriteLine(" Press Snooze? Enter N")

Console.WriteLine(" Stop Alarm? Enter Q")

Dim input As String = Console.ReadLine()

If input.Equals("Y") Or input.Equals("y") Then

Return

Else

If input.Equals("N") Or input.Equals("n") Then

CType(sender, AlarmClock).SnoozePressed = True

Return

Else

CType(sender, AlarmClock).Stop = True

Return

End If

End If

End If

Else

Console.WriteLine(" Let alarm ring? Enter Y")

Console.WriteLine(" Stop Alarm? Enter Q")

Dim input As String = Console.ReadLine()

If input.Equals("Y") Or input.Equals("y") Then

Return

Else

CType(sender, AlarmClock).Stop = True

Return

End If

End If

End Sub

End Class

' The driver class that hooks up the event handling method of

' WakeMeUp to the alarm event of an Alarm object using a delegate.

' In a forms-based application, the driver class is the

' form.

'

Public Class AlarmDriver

Public Shared Sub Main()

' Instantiates the event receiver.

Dim w As New WakeMeUp()

' Instantiates the event source.

Dim clock As New AlarmClock()

' Wires the AlarmRang method to the Alarm event.

AddHandler clock.Alarm, AddressOf w.AlarmRang

clock.Start()

End Sub

End Class

End Namespace

標題名稱：vb.net委托循環(huán),vbnetfor循環(huán)
分享網(wǎng)址：http://chinadenli.net/article16/hcphdg.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供微信公眾號、網(wǎng)站營銷、服務器托管、營銷型網(wǎng)站建設、云服務器、網(wǎng)站導航

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉載內(nèi)容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)